passer d'une chaine contenant des espaces a un tableau [Trucs & Astuces]

[flyfrog]

Le code d'une procedure VBA prenant comme premier arguement une chaine puis la subdivise suivant le motif espace " " (le chaine peut contenir 0 ou plusieurs espaces). Le resultat est stocké dans le deuxieme arguement, un tableau de chaines.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub splitTab(ChWithSpaces As Variant, TabResult() As String)
 
Dim tablo1() As String
tablo1 = Split(ChWithSpaces, " ")
j = 0
 
For i = 0 To UBound(tablo1) - LBound(tablo1)
If (tablo1(i) <> "") Then
    ReDim Preserve TabResult(0 To j)
    TabResult(j) = tablo1(i)
    j = j + 1
End If
Next i
 
End Sub

[ThierryAIM]

Merci, mais quelques explications seraient les bienvenues

(but, description, commentaires, ...)

[flyfrog]

J'aimerais partager ce code avec des gens qui le chercheraient. S'il y'a un endroit plus approprié qu'ici et que j'en ai pas connaissance, merci de placer ce code la bas.

Merci d'avance

[ThierryAIM]

non, c'est parfait, ici, et je t'en remercie

rajoute seulement, si tu veux bien, (en editant ton message initial), qques infos, comme je te l'ai dit plus haut, afin d'informer au mieux, les futurs utilisateurs de ce code