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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager