fonction split inconnue ? [vba] - VB/VBA/VBS - Programmation
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, ":" )  ?
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.  | 
 
 
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
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) 
 
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.
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)  | 
 
 
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  
   
   
   
  
Marsh Posté le 21-06-2004 à 02:14:52
tu bosses sous office 95 ? 
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
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
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=
Marsh Posté le 21-06-2004 à 11:42:55
| startx25 a écrit : tegu à écrit "Cette fonction n'existe pas sous Office97 et antérieur"  | 
 
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)
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))