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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
 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?