additem sur plusieurs combobox

bonjour,
:help:
j'essai de remplir 12 combobox avec les mêmes items.
j'ai essayé de la façon suivante :

Code:

---

1 2 3 4 5 6

Dim comboaff As ComboBox For Each comboaff In Me.Controls If InStr(comboaff.Name, "aff") <> 0 Then comboaff.AddItem (numerosaff.Cells(ligne, 4)) End If Next comboaff

---

mais cela plante sur la ligne "for each..." avec le message " incompatibilité de type". :pleure:

quelqu'un aurait une idée ???

Salut

1. Ta variable comboaff doit être de Type Control.
2. Dans ta structure répétitive (communément appelée boucle) For Each, tu dois tester aussi (et d'abord) si ton objet comboaff est bien un ComboBox via l'instruction TypeOf. Il y a un exemple (ou une note explicative) dans l'aide sous la rubrique For Each.

merci pour ton aide.
voici le code modifié, il fonctionne :king: :

Code:

---

1 2 3 4 5 6

Dim comboaff As Control For Each comboaff In Me.Controls If InStr(comboaff.Name, "aff") <> 0 And TypeOf comboaff Is ComboBox Then comboaff.AddItem (numerosaff.Cells(ligne, 4)) End If Next comboaff

---

j'ai eu du mal à trouver l'aide de typeof, je l'ai trouvé dans l'aide de if,then,else.