[VBA-E]Erreur avec une combobox qui liste le contenu de cell

Bonjour,

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

Code:

---

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:

---

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

---

Quelqu'un aurait une idee?

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.

bonjour Tartenpion , bonjour Alain

une autre possibilité sans boucle

Code:

---

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

Merci bien, problem resolu!