SPLIT

[calipsso]

Bonjour,

Quelqu'un pourrait-il m'aider pour créer une fonction split. Thierry a déjà fait un projet pareil.

D'avance merci pour vos réponses

 

[Eric C]

Bonjour le forum
Bonjour calipsso

Tu n'es pas sur le bon forum.
Pas certain d'avoir cerné ton problème mais si l'instruction intervient dans un de tes prog qui tourne sous XL97 il est exact que ça ne fonctionnera pas - Donc, je te joint une fonction (Qui n'est pas de moi) dite de substitution

Function split_97(chaine$, separateur$)
Dim tablo(), pos%, s$
s = Trim(chaine): ReDim tablo(0)
recurse:
pos = InStr(1, s, separateur)
If pos = 0 Then
tablo(UBound(tablo)) = s
split_97 = tablo()
Exit Function
Else
tablo(UBound(tablo)) = Left(s, pos - 1)
s = Right(s, Len(s) - pos)
ReDim Preserve tablo(UBound(tablo) + 1)
GoTo recurse
End If
End Function