LBound et Array

Bonjour,

J'ai voulu mettre dans une chaîne texte tout un ensemble de valeurs sous la forme "EXEMPLE1","EXEMPLE2","EXEMPLE3","EXEMPLE4",...., "EXEMPLE1xxx", pensant pouvoir utiliser ensuite le résultat contenu dans la variable (Varaible1)par

Code:

---

Variable2= Array (Variable1)

---

Code:

---

1 2 3

For i = LBound(Variable2) To UBound(Variable2) ...... Next i

---

mais UBound(Variable2) ne retourne que 1 et Variable2 (1) par exemple, retourne la totalité de la chaîne et pas EXEMPLE1

Je ne comprends pas pourquoi

Merci pour votre aide

Salut,

Il faut eclater ta chaine pour avoir un tableau en entree pour Ubound.

Un exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Test() Dim Variable1 As String, Variable2() As String Dim i as Interger   Variable1 = "EXEMPLE1,EXEMPLE2,EXEMPLE3,EXEMPLE4,EXEMPLE5" Variable2 = Split(Variable1, ",")   For i = 0 To UBound(Variable2) '... Next End Sub

---

Ok Merci !