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

Résolu
2000Kennedy Messages postés 44 Statut Membre -  
2000Kennedy Messages postés 44 Statut Membre -
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 Messages postés 44 Statut Membre 2
     
    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 Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      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 Messages postés 44 Statut Membre 2
       
      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 Messages postés 44 Statut Membre 2
       
      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 Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    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

Discussions similaires

Récupérer son compte Leboncoin avec son numéro de téléphone
Nono -
MPMP10 -

6 réponses