Discussion :

[gritchou]

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

[ucfoutu]

Bonjour,

Essaye avec la collection Controls

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Controls("liste" & k)

[gritchou]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[gritchou]

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