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
Partager