Liste déroulante UserForm

Bonjour,

Dans un UserForm j'ai une liste déroulante et dans "UserForm_Initialize()" J'ai fait un code pour que la liste de fournisseur s'alimente suivant une liste qui est dans une autre feuille que celle ou je suis de base.

Voici le code que j'ai utiliser:

Dim j As Integer
'Récupère les données de la colonne A...
    For j = 2 To ThisWorkbook.Worksheets(BDD_Fournisseur).Range("A2").End(xlDown).Row
        Fournisseur = ThisWorkbook.Worksheets(BDD_Fournisseur).Range("A" & j)
    Next j

Quand je fais ça il y a une erreur d'exécution '9'
L'indice n'appartient pas à la sélection.

Savait vous quel est le problème ?

Bonjour

Ton code comporte des erreurs.

Joins ton fichier et on le corrigera.

Bye !

Bonjour le fil, bonjour le forum,

D'accord avec GMB, avec le fichier c'est plus facile... À tout hasard :

Private Sub UserForm_Initialize()
Dim O As Worksheet
Dim DL As Integer

Set O = Worksheets("BDD_Fournisseur")
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row
Fournisseur.List = O.Range("A2:A" & DL).Value
End Sub