T toubib Guest 14 Octobre 2005 #1 Bonjourà tous, je travaille sur une listbox et je souhaiterais que tous les éléments selectionnés dans la listbox soient copiés vers un emplacement dans une feuille: comment peut on faire d'après vous?
Bonjourà tous, je travaille sur une listbox et je souhaiterais que tous les éléments selectionnés dans la listbox soient copiés vers un emplacement dans une feuille: comment peut on faire d'après vous?
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
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
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
merci bcp pour ta réponse maintenant je vais essayer de l'adapter à mon projet bon we à toi et à tout le forum
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