Discussion :

[Tartenpion]

Bonjour,

Le code suivant devrait me lister le contenu de mes lignes A1 a Ax.

Code :

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

1
2
3
4
5
Private Sub cbxCAList_DropButtonClick()
 
    With ThisWorkbook.Sheets("Post BC Data").Range("A1")
    Me.cbxCAList.RowSource = "Data!A1:B" & Sheets("Post BC Data").Cells(1, 1).End(xlDown).Row
End With

J'obtiens l'erreur suivante:

Code :

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

1
2
Run time error 438
Object does not support this proerty or method

Quelqu'un aurait une idee?

[AlainTech]

Déjà, ton With ne sert à rien puisque tu n'as aucun .qqch dans la ligne suivante.

Charge ta liste avec une boucle plutôt que par le RowSource.
Il y a plein d'exemples (récents) sur ce forum.

[SilkyRoad]

bonjour Tartenpion , bonjour Alain

une autre possibilité sans boucle

Code :

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

1
2
3
4
Dim i As Integer
i = Sheets("Feuil1").Range("A1").End(xlDown).Row 
ComboBox1.ColumnCount = 2 'definit le nombre de colonnes dans le ComboBox
ComboBox1.List() = Sheets("Feuil1").Range("A1:B" & i).Value

bone journée
michel

[Tartenpion]

Merci bien, problem resolu!