Discussion :

[bosk1000]

bonjour a tous
j'ai fait cette boucle sur une série de 10 combobox a l'ouverture du formulaire

Code :

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

1
2
3
4
5
 
Dim i As Byte
For i = 1 To 10
Me.cmb_main(i).RowSource = "source!b2:b" & Sheets("source").Cells(2, 1).End(xlDown).Row
Next i

et j'obtiens le message

"erreur de compilation - Membre de méthode ou de données introuvable"

je sèche sur l'erreur dans la boucle
car j'ai bien nommé mes 10 combo cmb_main1, cmb_main2, etc... jusqu'à 10
si je teste sans la boucle en remplaçant le (i) par un chiffre comme 10, cela fonctionne bien sur la combo 10

merci pour votre aide

[Gorfael]

Salut bosk1000 et le forum

Code :

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

1
2
3
4
Dim i As Byte
For i = 1 To 10
Me.controls("cmb_main" & i).RowSource = "source!b2:b" & Sheets("source").Cells(2, 1).End(xlDown).Row
Next i

A+

[bosk1000]

merci Gorfael

Ok, je vois mon erreur

je test ce soir et je préciserais résolu

merci