Listbox deux colonnes affichée dans deux cellules Excel [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,

j'ai trouvé le code suivant pour récupérer une plage de cellules dans une listbox:

Option Explicit

Private Sub UserForm_Initialize()
    Dim TabTemp As Variant
    
    'Chargement d'une plage de cellules dans la variable TabTemp
    TabTemp = Sheets("40101").Range("A1:b11").Value
    
    'Définit le nombre de colonnes pour la ListBox.
    ListBox1.ColumnCount = UBound(TabTemp)
    'Chargement du tableau dans la ListBox
    ListBox1.List() = TabTemp
End Sub


La première étape est donc faite.

Maintenant que j'ai fait le choix dans ma listbox, je voudrais que le choix effectué dans ma listbox des deux cellules soit affiché dans deux autres cellules, par exemple C4 et C5.
Si je demande listbox1.value, il ne me met que la première value.

Pourriez-vous m'aider?
N'hésitez pas à me dire si je ne suis pas clair.

Merci bcp par avance

1 réponse

Messages postés
16376
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
25 janvier 2021
3 116
Bonjour

pour extraire la 2° colonne d'une listbox à N colonnes
essies
range("B2")=ListBox1.List(ListBox1.ListIndex, 1)
2°col=1 car on commence à 0

D'après un tuto précieux pour le VBA avec les userforms:
https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-G
Michel
Messages postés
64
Date d'inscription
mercredi 19 septembre 2012
Statut
Membre
Dernière intervention
17 mars 2015

Merci beaucoup