transfert d'une listbox à une autreRésolu

Question

Bonjour,

voilà, j'ai une listbox1 de deux colonnes avec une série d'articles et leurs prix (dans la seconde colonne) dans un userform (la listbox est chargée a partir de données dans une feuille excel

J'ai un bouton, lorsque l'utilisateur clique dessus, il fait un copié collé de l'article et du prix dans la seconde listbox. il peut ainsi ajouter plusieurs fois le meme article et il aura un label qui lui indiquera le montant total des articles.

Mon souci est que je n'arrive pas à transférer les deux colonnes!!!

j'arrive à faire l'une ou l'autre mais pas les deux. et a chaque fois il me les transfert dans la premiere colonne de la listbox2... je ne sais pas comment faire...

'Transfert des articles de la listbox1 vers la listbox2 pour la vente
Private Sub CommandButton_Ajouter_Click()
    Dim ligne As Variant
    Dim i As Integer
        i = ListBox1.ListIndex
    ListBox2.AddItem ListBox1.List(i, 1)
    ListBox2.List(ListBox2.ListCount - 1) = ListBox1.List(i, 0)

quelqu'un pour m'aider?!

bigfish_le vrai · Accepted Answer

Salut,

essaye ça :
    ListBox2.AddItem ListBox1.List(i, 0) 
    ListBox2.List(ListBox2.ListCount - 1,1) = ListBox1.List(i, 1)

A+

cs_Fabian123 · Answer

Merci!!!


ça marche nickel!!

Krosiane · Answer

Bonjour,
moi j'aimerai faire la même chose mais avec 3 colonnes au lieu de 2 je ne vois pas comment modifier le code help me pliz =)

Krosiane · Answer

c'est bon j'ai reussi a le faire tout seul =)
j'ai juste ajouter une ligne ^^
ListBox2.List(ListBox2.ListCount - 1,2) = ListBox1.List(i, 2)

Transfert d'une listbox à une autre

4 réponses

Votre réponse

Discussions similaires