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

3 réponses

  1.
    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
  2. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonsoir,

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

    eric
    0
  3. juliet
     
    Bonjour,

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