Discussion :

[pikameuh]

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?

[pikameuh]

La solution résidait dans le 'AddItems' :

Code :

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

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 !