Remplir des cellules selon les lignes choisies sur un listbox

[Résolu/Fermé]
Signaler
Messages postés
64
Date d'inscription
mercredi 19 septembre 2012
Statut
Membre
Dernière intervention
17 mars 2015
-
Messages postés
64
Date d'inscription
mercredi 19 septembre 2012
Statut
Membre
Dernière intervention
17 mars 2015
-
Bonjour,

je reprends vba sur excel après 1.5 an d'arrêt ; je me retrouve bloqué ce soir sans savoir comment aller plus loin, j'espère que je ne vais pas me décourager comme début 2013.

J'ai une question, je pense, qui est simple:

comment afficher sur une feuille excel les éléments sélectionnés dans un listbox

Merci par avance

2 réponses

Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 653
Bonjour,

Supposons que tu veuilles tes valeurs, sélectionnées dans la ListBox1', dans la Feuil1, colonne C, à partir de la première cellule vide de cette colonne :


Dim i As Integer
With Sheets("Feuil1")
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then 
            .Range("C" & .Range("C" & Rows.Count).End(xlUp).Row + 1) = ListBox1.List(i)
        End If
    Next i
End With

Messages postés
64
Date d'inscription
mercredi 19 septembre 2012
Statut
Membre
Dernière intervention
17 mars 2015

et bien merci bcp!
J'ai trouvé entre temps par une solution proche de la tienne