aide pour listbox

JNP

XLDnaute Barbatruc

• 16 Mars 2010

• #2

Re : aide pour listbox

Bonjour P'tit lulu 🙂,
Teste

Code:

Private Sub CommandButton1_Click()
For I = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(I) = True Then
MsgBox ListBox1.List(I, 0) & " : " & Format(ListBox1.List(I, 1), "# ##0.00€")
End If
Next I
End Sub

Il te restera à remplacer le MsgBox par l'envoi des données dans ta feuille.
Bonne journée 😎

 

Vote positif 0 Vote négatif

P

p'tit lulu

Guest

• 16 Mars 2010

• #3

Re : aide pour listbox

Merci d'avoir pris le temps de me répondre JNP, mais malheureusement je ne sais pas faire ça moi... 🙁

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 16 Mars 2010

• #4

Re : aide pour listbox

Re 🙂,
Tu as de la chance que je sois de très bonne humeur 😛...
En principe, je déteste mâcher le travail, avec le code fourni, et un peu de recherche, tu avais toutes les cartes en main pour compléter toi-même 😱...
C'est pas de la fainéantise de ma part, mais si tu ne prends pas part active à ce que tu crée, tu dépendras toujours des autres pour la moindre correction 🙄...
Bon, ton fichier en PJ.
Bonne soirée 😎

 

Pièces jointes

• Proformat ludo(1).xls

  54.5 KB · Affichages: 70

Vote positif 0 Vote négatif

P

p'tit lulu

Guest

• 17 Mars 2010

• #5

Re : aide pour listbox

super !!! merci JNP !!!!! encore mieux que ce que je voulais !!!! je comprends bien ce que tu veux me dire, je me suis acheté un bouquin pour apprendre mais c'est pas évident quand on a personne pour expliquer aussi ! et puis tellement débordé au boulot que le temps me manque malheureusement.

Mais encore grand merci à toi !! 😀 😀 😀

 

Vote positif 0 Vote négatif