Discussion :

[Gioge]

Bonjour,

Je cherche à charger un combobox, mais ça fonctionne "à moitié"

En effet j'ai utilisé deux codes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Initialize()
ComboBox_nomcombobox.List = Worksheets("feuille information").Range("g2:g12").Value
end sub

Dans ce code, cela charge bien ma liste, mais lorsque je veux afficher mon useform de nom "monuserform" avec monuserform.show, ça plante en disant que l'indice n'appartient pas à la selection.

J'ai adapté donc naturellement la formule en ecrivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Private Sub monuserform_Initialize()
ComboBox_nomcombobox.List = Worksheets("feuille information").Range("g2:g12").Value
end sub

ça ne plante plus, mais ça ne charge plus ma liste non plus..
Que puis-je faire pour ne pas planter et avoir ma liste chargé également ?
Merci

[MarcelG]

Bonjour Gioge et bienvenu sur ce Forum,

Bonjour le Forum,

Essaie en adaptant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
Dim c As Range
Cbx_laliste.Clear
For Each c In Worksheets(1).Range("H3:H5")
        Cbx_laliste.AddItem c.Value
Next c
End Sub