Remplir ComboBox avec boucle

Bonjour,

Je souhaite remplir une liste de combobox avec des valeurs contenues dans un classeur.

Lorsque j'exécute le code ci-dessous, j'obtiens le message d'erreur :"Erreur définie par l'application ou par l'objet".

Les checkboxs vont bien de la numéro 1 à la numéro 51 (de 2 en 2), idem pour les plages

Private Sub UserForm_Initialize()

 Dim i As Integer
 Dim derLigne As Integer

 'Sheets("BD-art").Activate
 For i = 1 To 51 Step 2
    derLigne = Sheets("BD-art").Cells(2, i).End(xlDown).Row
    UserForm2.Controls("ComboBox" & i).RowSource = Sheets("BD-art").Range(Cells(2, i), Cells(derLigne, i))
 Next i

 End Sub

Quelqu'un aurait une idée?

bonjour,

Je ne suis pas sur, mais il me semble qu'avec RowSource, il faut indiquer la feuille de la plage.

Essaye donc ceci :

"BD-art!" & Sheets("BD-art").Range(Cells(2, i), Cells(derLigne, i))

Tu peux aussi essayer ceci :

UserForm2.Controls("ComboBox" & i).List = Sheets("BD-art").Range(Cells(2, i), Cells(derLigne, i)).Value

Ca devrait fonctionner, sinon reviens vers nous.

A plus !

J'ai essayé mais même problème

Private Sub UserForm_Initialize()

 Dim i As Integer
 Dim derLigne As Integer

 'Sheets("BD-art").Activate
 For i = 1 To 51 Step 2
    derLigne = Sheets("BD-art").Cells(2, i).End(xlDown).Row
    UserForm2.Controls("ComboBox" & i).RowSource = "BD-art!" & Sheets("BD-art").Range(Cells(2, i), Cells(derLigne, i))
 Next i

 End Sub

J'ai essayé la seconde solution et j'obtiens le message "L'indice n'appartient pas à la sélection"

Mea culpa, la seconde solution fonctionne bien.

Par contre, je ne comprend pas pourquoi je n'ai qu'une ligne par combobox.

Solution trouvée

Merci beaucoup Braters

Bonjour

peux être comme ca car sans modèle ses un peux dur

Private Sub UserForm_Initialize()
Dim Sh As Object
Dim I As Long
Dim DerLigne As Long
Set Sh = Sheets("BD-art")
For I = 1 To 51 Step 2
DerLigne = Sh.Cells(Rows.Count, I).End(xlUp).Row
Controls("ComboBox" & I).List = Sh.Range(Cells(2, I), Cells(DerLigne, I)).Value
Next
End Sub

A+

Maurice