listbox

M

MichelXld

XLDnaute Barbatruc

• 14 Octobre 2005

• #2

bonjour

j'espere que cet exemple répondra à ta demande


Private Sub CommandButton1_Click()
Dim i As Byte, j As Byte

For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
j = j + 1
Cells(j, 1) = ListBox1.List(i)
End If
Next i
End Sub



bon week end
MichelXld

 

Vote positif 0 Vote négatif

T

toubib

Guest

• 14 Octobre 2005

• #3

merci bcp pour ta réponse maintenant je vais essayer de l'adapter à mon projet
bon we à toi et à tout le forum

 

Vote positif 0 Vote négatif

T

toubib

Guest

• 14 Octobre 2005

• #4

bon ben je te confirme que ct effectivement tout à fait ce que je voulais merci bcp bcp bcp bcp ^^

 

Vote positif 0 Vote négatif