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

Résolu/Fermé
2000Kennedy Messages postés 40 Date d'inscription mercredi 8 septembre 2010 Statut Membre Dernière intervention 16 novembre 2010 - 3 nov. 2010 à 09:58
2000Kennedy Messages postés 40 Date d'inscription mercredi 8 septembre 2010 Statut Membre Dernière intervention 16 novembre 2010 - 3 nov. 2010 à 14:22
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 !
A voir également:

2 réponses

Réponse 1 / 2
2000Kennedy Messages postés 40 Date d'inscription mercredi 8 septembre 2010 Statut Membre Dernière intervention 16 novembre 2010 2
3 nov. 2010 à 11:35
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
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 758
Modifié par pijaku le 3/11/2010 à 11:51
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
2000Kennedy Messages postés 40 Date d'inscription mercredi 8 septembre 2010 Statut Membre Dernière intervention 16 novembre 2010 2
3 nov. 2010 à 14:04
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
2000Kennedy Messages postés 40 Date d'inscription mercredi 8 septembre 2010 Statut Membre Dernière intervention 16 novembre 2010 2
3 nov. 2010 à 14:22
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
Réponse 2 / 2
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 758
3 nov. 2010 à 10:34
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

Colis shein terminal fret
Lele -
bazfile -

Bonjour, ayant vue beaucoup de personnes dans mon cas car j’ai reçu un mess de shein en me disant qu’il était livré alors que je ne l’avais pas reçu… shein m’a dit que c’était une erreur ect mais par la suite je n’ai toujours pas reçu mon colis alors que j’ai commandé le 4 oct et a été envoyé le 7 que faire demain on dépasse les 12j avait vous eu des nouvelles ??

1 réponse