Remplir plusieurs combobox avec les mêmes données

[Cougar]

Bonjours le forum,

J'essai de remplir 16 combobox (combobox17 à 32) avec les mêmes plages de données mais les combobox demeurent vides ?

Où se trouve mon erreur ?

Private Sub UserForm_Initialize()
For i = 17 To 32
Controls("Combobox" & i).AddItem
For j = 1 To 7
Controls("Combobox" & j).AddItem Sheets(j).Range("f1")
Next j
Next i
End Sub

Merci

 

[Modeste]

Re : Remplir plusieurs combobox avec les mêmes données

Bonsoir Cougar,

Pourquoi passer de "Combobox" & i à "Combobox" & j 😕😕

 

[Paf]

Re : Remplir plusieurs combobox avec les mêmes données

Bonsoir à tous

For i = 17 To 32
Controls("Combobox" & i).AddItem

Il manque la donnée à ajouter dans la combobox !

For j = 1 To 7
Controls("Combobox" & j).AddItem Sheets(j).Range("f1")

On ajoute une données aux combobox de 1 à 7 et non de 17 à 32

de plus, la plage de données ne sera pas identique pour toutes les combobox : cellule F1 de la feuille d'indice 1 pour combo 1, d'indice 2 pour la combo 2 .....

A+


Edit: je viens de comprendre en lisant le post
https://www.excel-downloads.com/thr...obox-avec-donnees-sur-plusieurs-pages.225913/

Comme le dit modeste, dans la boucle For j = 1 To 7 , il faut conserver Controls("Combobox" & i)....

et supprimer Controls("Combobox" & i).AddItem de la boucle For i = 17 To 32

 

[Cougar]

Re : Remplir plusieurs combobox avec les mêmes données

Bonjour à tous,

Pour les Combobox 1 à 16, je dois les alimenter avec la feuil8 cellule A1 à A150 sans doublons. Pour les combobox 17 à 32 avec les cellule F1 des feuil1 à feuil7. Voir fichier joint.

Merci