Discussion :

[zandru]

bonjour,

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

Code :

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

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

quelqu'un aurait une idée ???

[zazaraigné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.

[zandru]

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

Code :

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

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.