[vba] fonction split inconnue ?

fonction split inconnue ? [vba] - VB/VBA/VBS - Programmation

Marsh Posté le 19-06-2004 à 19:35:27    

voilà un code simple :
j'ai une erreur sur la deuxième ligne "erreur de compilation sub ou fonction non défini) pourtant la fonction split existe !!!
 
 
 
Dim tabl() As String
tabl = Split(chaine, ":" )
MsgBox (tabl(0))

Reply

Marsh Posté le 19-06-2004 à 19:35:27   

Reply

Marsh Posté le 19-06-2004 à 19:47:51    

ben si tu défini tabl() comme un tableau et qu'ensuite tu assignes ton Split(chaine, ":" ) à tabl tout court ça doit pas marcher.
T'as essayé de virer les () dans ta déclaration de tabl ou alors de faire tabl(0) = Split(chaine, ":" )  ?

Reply

Marsh Posté le 19-06-2004 à 20:09:25    

Glod 2 a écrit :

ben si tu défini tabl() comme un tableau et qu'ensuite tu assignes ton Split(chaine, ":" ) à tabl tout court ça doit pas marcher.
T'as essayé de virer les () dans ta déclaration de tabl ou alors de faire tabl(0) = Split(chaine, ":" )  ?


 
j'ai essayer, c'est comme si le compilateur ne reconnait pas la fonction split.
 
voici un exemple complet qui ne marche PAS
 
Private Sub CommandButton1_Click()
Dim chn As String
chn = " mixed:colsed"
Dim tabl As String
tabl = Split(ch, ":" )
MsgBox (tabl(0))
End Sub


Message édité par startx25 le 19-06-2004 à 20:11:41
Reply

Marsh Posté le 19-06-2004 à 20:42:50    

je me demande si j'ai pas un problème de bibliotheque ...
même cet exemple tiré du site de microsoft ne fonctionne pas :
 
Private Sub CommandButton2_Click()
Dim MyString, MyArray, Msg
MyString = "VBScriptXisXfun!"
MyArray = Split(MyString, "x", -1, 1)
Msg = MyArray(0) & " " & MyArray(1)
Msg = Msg & " " & MyArray(2)
MsgBox Msg
End Sub
 
ça cale à chaque fois sur la fonction split (inconue)
 

Reply

Marsh Posté le 19-06-2004 à 20:59:33    

c'est pas plutôt le paramètre qui ne contiendrait pas ce que Split attend? (une chaîne)
 
Split est une fonction standard donc la question de sa disponibilité ne se pose pas.


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 19-06-2004 à 21:09:03    

drasche a écrit :

c'est pas plutôt le paramètre qui ne contiendrait pas ce que Split attend? (une chaîne)
 
Split est une fonction standard donc la question de sa disponibilité ne se pose pas.


 
moi je veux bien mais quand je prends l'expmple texto du tutorial microsoft :
 
Private Sub CommandButton2_Click()
Dim MyString, MyArray, Msg
MyString = "VBScriptXisXfun!"
MyArray = Split(MyString, "x", -1, 1)
Msg = MyArray(0) & " " & MyArray(1)
Msg = Msg & " " & MyArray(2)
MsgBox Msg
End Sub  
 
et que j'ai le même message d'erreur je me pose des quetions :cry:  :cry:  :cry:  :cry:  

Reply

Marsh Posté le 21-06-2004 à 02:14:52    

tu bosses sous office 95 ? :??:


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 21-06-2004 à 10:49:34    

Regarde ici http://forum.hardware.fr/forum2.ph [...] subcat=396
 
J'ai mis un exemple d'utilisation de split
Cette fonction n'existe pas sous Office97 et antérieur


Message édité par tegu le 21-06-2004 à 10:49:48
Reply

Marsh Posté le 21-06-2004 à 10:58:08    

tegu à écrit "Cette fonction n'existe pas sous Office97 et antérieur"
 
y'a t'il moyen de la rajouter sur office 97

Reply

Marsh Posté le 21-06-2004 à 11:35:01    

Il te reste à regarder ici où j'ai donné à la fin le code pour simuler la fonction Split()
 
http://forum.hardware.fr/forum2.ph [...] =0&subcat=

Reply

Marsh Posté le 21-06-2004 à 11:35:01   

Reply

Marsh Posté le 21-06-2004 à 11:42:55    

startx25 a écrit :

tegu à écrit "Cette fonction n'existe pas sous Office97 et antérieur"
 
y'a t'il moyen de la rajouter sur office 97


tu peux la programmer toi même en utilisant les fonctions mid et InStr (quoi que je ne sais pas si ça existe sous office97)


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed