Microsoft 365 initialiser des combobox

[dg62]

Bonsoir le Forum,

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

 

[job75]

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+

 

[laurent3372]

Pour accéder au combobox,par son nom il faut coder:

UserForm1.Controls(nomcombo).AddItem item

J'ai aussi corrigé diverses petites erreurs

Cordialement,
--
LR

 

[job75]

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.

 

[dg62]

Bonsoir job75,

Merci ça fait 2 jours que je bloquais sur la syntaxe à utiliser.

 

[dg62]

Pour accéder au combobox,par son nom il faut coder:

UserForm1.Controls(nomcombo).AddItem item

J'ai aussi corrigé diverses petites erreurs

Cordialement,
--
LR

Merci pour ta contribution