userform et références horizontales

[bellous]

Bonjour à tous,

Dans les propriétés d'un combobox avec menu déroulant, la RowSource fontionne comme son nom l'indique : les références sont sur une colonne.
Existe-t-il une instruction pour que la référence soit une ligne (entière ou pas) et non une colonne ?

Merci de votre aide

 

[Cousinhub]

Re : userform et références horizontales

Bonjour, tu peux essayer :

Private Sub UserForm_Initialize()
For Each cel In Range("A1:D1")
If cel.Value <> "" Then Me.ComboBox1.AddItem cel.Value
Next cel
End Sub

 

[bellous]

Re : userform et références horizontales

Merci pour ta réponse bhbh mais ça plante : accès refusé

 

[Cousinhub]

Re : userform et références horizontales

Re-,

😕😕

Peux-tu joindre un fichier exemple qui plante?

 

[bellous]

Re : userform et références horizontales

pardon pour le temps de réponse :

voilà

 

[Cousinhub]

Re : userform et références horizontales

Re-,
chez moi, cela fonctionne parfaitement...
as-tu bien la référence Microsoft Forms 2.0 Object Library de coché dans "Outils/Références" de l'éditeur VBE?

 

[bellous]

Re : userform et références horizontales

Encore merci bhbh, c'était cela qui me manquait.
bonne journée