une boucle with combobox

[steven]

bonjour tout le monde

soynons bref, en fait je veux alimenter +ieurs combobox avec les mémes données, mais j'arrive pas avec la boucle cidessous;
les combobox contient les jours de 01.....31


For k = 1 To 5 'k est impaire
With Controls('ComboBox' & k)
For i = 1 To 9
.AddItem '0' & i
Next
For a = 10 To 31
.AddItem a
Next a
End With
k = k + 2

 

[porcinet82]

Salut Steven,

Tout d'abord première chose, la boucle que tu veux faire ne fonctionne que si tu travails sur un USF, et je viens de la tester chez moi et elle fonctionne. Tu peux seulement modifier légèrement le code en mettant la ligne suivante

For k = 1 To 5 Step 2

à la place de ton k=k+2.
Dernière chose, il manque un Next k à la fin de code.

Je te joint le fichier que j'ai fais pour tester ton code au cas ou. Pour remplir les combo, il faut appuyer sur le bouton du USF.

[file name=Steven.zip size=9405]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Steven.zip[/file]

@+

 

[steven]

thank you verry verry much porcinet82
ca fonctionne