1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Dim Var0, Var1, Var2, Var3, Var4
' .......................
'PourTbl contient: "un;deux;trois;quatres;cinqiéme et dernier;"
MeTbl = split(PourTbl,";")
'for T =0 to ubound(MeTbl)-1
' MsgBox "la variable MeTbl indice(" & T & ") contient: " & MeTbl(T)
'next
var0 = MeTbl(0)
var1 = MeTbl(1)
var2 = MeTbl(2)
var3 = MeTbl(3)
var4 = MeTbl(4)
MsgBox "var0 contient: " & var0 & vbcrlf _
& "var1 contient: " & var1 & vbcrlf _
& "var2 contient: " & var2 & vbcrlf _
& "var3 contient: " & var3 & vbcrlf _
& "var4 contient: " & var4 |
Partager