combobox à nom variable

Bonjour,

J'essaye d'alimenter mes combobox avec le contenu de mes colonnes B, E, F, H. J'ai un probleme sur les noms de mes combobox. il n'accepte pas ma variable (expl: liste(k).ListIndex = -1) qui me permet de passer d'une combobox a une autre a chaque tour de boucle.

Comment dois je rectifier le code?
Merci davance

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

Dim colonne(3) As String Dim liste(3) As String   colonne(0) = "B" colonne(1) = "E" colonne(2) = "F" colonne(3) = "H"   liste(0) = materiau liste(1) = types liste(2) = origine liste(3) = caracteristiques   For k = 0 To 3   For i = 2 To Sheets("B.D.D.").Range(colonne(k) & 1000).End(xlUp).Row liste(k) = Sheets("B.D.D.").Range(colonne(k) & i) If liste(k).ListIndex = -1 Then liste(k).AddItem Sheets("B.D.D.").Range(colonne(k) & i) Next i   Next k     End Sub

---

Bonjour,

Essaye avec la collection Controls

Code:

---

Controls("liste" & k)

---

C'est a dire?
je renomme mes combobox liste1 liste2 liste3 liste4
puis je recode

Code:

---

1 2 3 4

' ... Controls("liste" & k) = Sheets("B.D.D.").Range(colonne(k) & i) If Controls("liste" & k).ListIndex = -1 Then Controls("liste" & k).AddItem Sheets("B.D.D.").Range(colonne(k) & i) ' ...

---

mais ca ne marche pas.
je debute tout juste en vba.:?
Si vous pouviez me préciser un peu plus...

finalement ca marche correctement, j'avais juste oublié de changer le nom des combobox au début lors de l'effacement de leur contenu.

controls("liste" & k). ...
est la bonne solution.

merci