Remplir une liste avec des variables

Bonjour à tous les developpeurs,

J'ai besoin de charger dans une ComboBox une liste Excel.
Pour ce faire rien de plus facile, prenons une liste au hasard :

Code:

---

1 2 3 4

' Liste des etages Dim CellEtage As String CellEtage = Sheets("LISTE").Range("X1").End(xlDown).Address FormBranchRenouvele.ListeEtage.RowSource = "X2:" & CellEtage

---

Mais cette fois j'ai besoin de faire une traitement sur la liste avec de l'insérer dans la ComboBox. Mon code actuel est :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim CellTypeMateriauxDepose As String Dim compt, i As Integer Dim nature As String   ' Remplir la listeMateriauxDepose compt = Cells(1, 30).End(xlDown).Row ' Parcourir la liste For i = 2 To compt nature = CodeToNat(Cells(i, 30)) FormBranchRenouvele.ListeApCTR.RowSource = FormBranchRenouvele.ListeApCTR.RowSource & nature Next

---

Mais la ligne FormBranchRenouvele.ListeApCTR.RowSource = FormBranchRenouvele.ListeApCTR.RowSource & nature est incorrect.

Pouvez vous m'aidez ?

Si je remplace la ligne incorrect par :

Code:

---

FormBranchRenouvele.ListeApCTR = FormBranchRenouvele.ListeApCTR & nature

---

Le texte se charge mais tout sur la même ligne... Comment lui dire qu'à chaque fois ça correspond à une ligne différente?

La solution résidait dans le 'AddItems' :

Code:

---

1 2 3 4 5

' Parcourir la liste For i = 2 To compt nature = CodeToNat(Cells(i, 30)) FormBranchRenouvele.ListeApCTR.AddItem (nature) Next

---

j'espere que ça en aidera d'autre que moi.
Sur ce, bonne journée !