Bonjour a tous,

Novice en VBA, ce forum m'a jusqu'à maintenant très bien renseigné. J'en suis à la dernière étape de mon projet mais là je butte sur le problème si dessous.

Situation actuelle:

une worksheet produit qui contient 3 colonnes A pour idProduit, B pour designation, et C pour prix

je souhaite mettre sur une listeProduit les 3 colonnes de la worksheet produit.

PS: la worksheet produit contient 22 ligne

j'ai fait le code suivant mais ca marche toujours pas.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
For i = 1 To 22
       With wk.Sheets("Produit")
           'Ajoute une ligne et insère l'idProduit dans la colonne de gauche
           UserForm1.listProduit.AddItem .Range("A" & i + 1)
           'Ajoute la designation dans la colonne du centre
           UserForm1.listProduit.List(UserForm1.listProduit.ListCount - 1, 2) = .Range("B" & i + 1)
           'Ajoute le prix dans la colonne du droite
           UserForm1.listProduit.List(UserForm1.listProduit.ListCount - 1, 3) = .Range("C" & i + 1)
 
       End With
    Next i
un indice??