Remplissage combobox depuis donnée de classeur

Bonjour,

Je souhaiterais intégrer dans un comboBox les données (texte) situées dans la colonne A à partir de A2, sachant que le nombre de donnée est variable.

J'ai essayer différents codes mais aucun ne fait effet ...

Private Sub UserForm_ad_Initialize()
Dim Plage As String
With Sheets("Code_Fournisseur")
    Plage = .Range("A2:A" & .Range("A65536").End(xlUp).Row).Address
End With
ComboBox_supp.RowSource = "Code_Fournisseur!" & Plage
End Sub

et d'autres que je ne parviens pas à retrouver ...

Par avance merci de vos retours.

Private Sub UserForm_ad_Initialize()

Dim derLig as long
derLig=Sheets("Code_Fournisseur").cells(rows.count,1).end(xlup).row

for i = 2 to derLig
     ComboBox_supp.AddItem sheets("Code_Fournisseur").Cells(i,1).value
next

End Sub

A essayer

Bonjour à toi,

Cela ne fonctionne pas

Si tu peux fournir un fichier exemple

Rechercher des sujets similaires à "remplissage combobox donnee classeur"