Récupérer l'ensemble d'une listbox dans Excel

Résolu
2000Kennedy -  
Bonjour,

Comment puis-je procéder pour extraire l'ensemble du contenue d'une listbox dans une feuille Excel?
Je sais comment procéder avec un seul élément d'une listbox: 

.
.
.
DerniereLigneA = ws.Range("A65536").End(xlUp).Row + 1
Range("A" & DerniereLigneA) = ListBox15.Value
.
.
.


Merci d'avance bonne journée !

2 réponses

  1. 2000Kennedy Auteur
    Bonjour pijaku, Merci de te pencher sur mon problème.
    Par contre, ce bout de code ne prend pas en compte la première ligne de ma listbox? Comment faire pour que vraiment l'ensemble de ma LB soit exportée? Ici c'est juste la première ligne de ma listbox qui n'est pas prise en compte. Le reste ça va bien.
    1
    1. pijaku Modérateur
      Comprends pas... ça fonctionne bien chez moi.
      Peut être est elle construite différemment... Essaie en changeant l'index : 
      Dim lig As Integer, DerniereLigneA As Integer 
DerniereLigneA = ws.Range("A65536").End(xlUp).Row + 1 
For lig = 0 To ListBox1.ListCount - 1 
    Cells(DerniereLigneA, 1) = ListBox1.List(lig - 1) 
    DerniereLigneA = DerniereLigneA + 1 
Next
      0
    2. 2000Kennedy Auteur
      Cela ne marche pas comme je le souhaite chez moi.
      En tout cas je vois l'esprit :) merci beaucoup je vais essayer de traficoter. Bonne journée!!
      0
    3. 2000Kennedy Auteur
      Voilou ça marche merci Pijaku. Pour chopper entièrement une listbox: 

                    Dim lig As Integer, DerniereLigneA As Integer 
              DerniereLigneA = ws.Range("A65536").End(xlUp).Row + 1 

               For lig = 0 To ListBox1.ListCount
                        Cells(DerniereLigneA, 2) = ListBox1.List(lig - 1)
                        DerniereLigneA = DerniereLigneA + 1
                Next
      0
  2. pijaku Modérateur
    Bonjour,
    Un exemple : 
    Dim lig As Integer, DerniereLigneA As Integer
DerniereLigneA = ws.Range("A65536").End(xlUp).Row + 1
For lig = 0 To ListBox1.ListCount - 1
    Cells(DerniereLigneA, 1) = ListBox1.List(lig)
    DerniereLigneA = DerniereLigneA + 1
Next
    0