problème ListeBox multi-colonne
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:
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??
