Copier une listebox vers une feuille excel

juliet -  
 juliet -
Bonjour,

J'aurais voulu transferer le contenu d'une lisbox vers une feuille excel, mais ma listbox se rempli sous condition et donc n'a pas toujours le meme nombre de ligne.

J'ai écris ca, mais ca prends que la première valeur de ma liste.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Sheets("LISTE DE CHOIX").Range("C2") = historiquegranulo.ListBox1.List
End Sub

D'avance, merci

A voir également:

3 réponses

Polux31 Messages postés 7219 Statut Membre 1 204
 
Bonjour,

Si j'ai bien compris, tu veux écrire dans une suite de cellules, le contenu d'une listbox à la fermeture de ton formulaire ?

Si c'est ça, il faut faire comme ça :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim i As Long

    For i = 0 To Me.ListBox1.ListCount - 1
        Sheets(1).Range("C" & i + 2).Value = Me.ListBox1.List(i)
    Next i
    
End Sub


;o)

0
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 282
 
Bonsoir,

ou bien :
Sheets("LISTE DE CHOIX").Range("C2").resize(historiquegranulo.ListBox1.Listcount,1) = historiquegranulo.ListBox1.List()

eric
0
juliet
 
Bonjour,

merci our vos réponses, ca marche impec.
0