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