Microsoft 365 initialiser des combobox

dg62

XLDnaute Barbatruc
Bonsoir le Forum,
VB:
For ind = 0 To UBound(listecombo)
nomcombo = listecombo(ind)
For j = 2 To .Cells(1, ind + 1).End(xlDown).Row
item = .Cells(j, ind + 1)

UserForm1.nomcombo.AddItem item
Next j
Next ind
J'ai un tableau qui contient les noms des combo d'un userform (nomcombo)
j'ai sur une feuille les contenus des combo (item)

je souhaite et c'est là que sa bloque, initialiser mes combo par une boucle. Le problème nomcombo n'est pas reconnu alors qu'il est bien assigné à un combo existant.

Est-il possible de pratiquer de la sorte et si oui pourquoi ça bloque ?

Merci et bonne soirée
 

Pièces jointes

  • boucle_combo.xlsm
    18.9 KB · Affichages: 4
Solution
Bonsoir dg62,

Remplacez ReDim listecombo(derlig) par ReDim listecombo(derlig - 1)

Et UserForm1.nomcombo.AddItem item par Me(nomcombo).AddItem item

Bien sur en feuille Listes remplissez la colonne F (Samedi).

A+

job75

XLDnaute Barbatruc
UserForm1.Controls(nomcombo).AddItem item c'est la même chose que ce que j'ai indiqué.

C'est à dire Me(nomcombo).AddItem item qui est un peu plus ramassé.

Faut quand même regarder ce que les autres ont proposé avant d'intervenir.
 

Discussions similaires

Réponses
15
Affichages
429