Tableau Dynamique VBA

Bonjour,

j'aimerais savoir si en VBA on peut par exemple dire :

Code:

---

1 2 3 4 5

Dim tableau() As String For i = 0 To (liste.ListCount - 1) tableau(i) = Me.liste.List(i) Next i

---

car je ne sais pas combien de donnée il y aura, car cela dépendra du nombre de données dans la liste "liste"

Ou alors, j'ai besoins de créer dynamiquement la taille de mon tableau, c'est à dire incrémenter sa taille à chaque fois que ça boucle.
j'ai regardé des tutos mais je n'ai pas réussie, un message me disais "Taille déjà alloué" par exemple.

merci de votre aide,

Voir Redim :

Code:

---

1 2	Dim tableau() As String Redim Tableau (liste.ListCount - 1)

---

Si tu veux rajouter une ligne à ton tableau tu dois utiliser "redim preserve" pour qu'il garde les valeurs présentes.

Code:

---

ReDim Preserve Tableau(1 To UBound(Tableau, 1) + 1)

---

Si tu utilise uniquement Redim ici, ton tableau sera bien agrandi d'une ligne, mais il aura perdu toutes ses données.


Un petit exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

Option Explicit   Dim monTableau() As Variant   Sub Test()   Dim i As Long, j As Long Dim tabChar() As Variant ReDim monTableau(1 To 1) monTableau(1) = "debut" tabChar = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j")   'Donne une valeur aléatoire Randomize For i = 1 To Int((100 * Rnd) + 1) For j = 0 To UBound(tabChar, 1) Call AjouterValeur(i, tabChar(j)) Next j   Next i   MsgBox "Nombre de ligne : " & UBound(monTableau)   End Sub     Private Sub AjouterValeur(ByRef lng As Long, ByVal s As String)   Dim a As String Dim i As Long   For i = 1 To lng a = a + s Next i   'A chaque passage, la taille du tableau est augmenté d'une unité tout en conservant les données présentes. ReDim Preserve monTableau(1 To UBound(monTableau, 1) + 1) monTableau(UBound(monTableau)) = a End Sub

---

Merci, de vos réponse
je vais tester ça :)

Edit : ça, marche impeccable :)