récupérer valeurs multiples dans spreadsheet

[daniel]

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é]

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

 

[daniel]

hello hervé, le forum !

Ca marche super, merci ! J'ai juste déclaré i et l as integer, car je dépassais la capacité des bytes

Encore merci de ton aide

Bonne après midi

Daniel