récupérer valeurs multiples dans spreadsheet

D

daniel

Guest
Bonjour le forum !

Je suis toujours dans mes spreadsheets...et je découvre encore ce très intéressant contrôle.

Mon problème est le suivant : comment puis je récupérer les valeurs sélectionnées dans une listbox à choix multiples et les afficher, les unes à la suite des autres, dans la première colonne de ma spreadsheet ?

merci pour vos tuyaux...

Bon après midi

Daniel
 

Hervé

XLDnaute Barbatruc
Bonjour daniel


Un essai :

Private Sub CommandButton1_Click()
Dim i As Byte
Dim l As Byte

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


salut
 

Discussions similaires

  • Résolu(e)
Microsoft 365 Code de tri
Réponses
22
Affichages
490

Statistiques des forums

Discussions
312 848
Messages
2 092 786
Membres
105 534
dernier inscrit
EmilieG60