Listbox deux colonnes affichée dans deux cellules Excel

Résolu/Fermé
chrisdemontigny Messages postés 64 Date d'inscription mercredi 19 septembre 2012 Statut Membre Dernière intervention 17 mars 2015 - Modifié par pijaku le 17/03/2015 à 07:53
chrisdemontigny Messages postés 64 Date d'inscription mercredi 19 septembre 2012 Statut Membre Dernière intervention 17 mars 2015 - 17 mars 2015 à 23:55
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

A voir également:

1 réponse

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 17/03/2015 à 06:44
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
0
chrisdemontigny Messages postés 64 Date d'inscription mercredi 19 septembre 2012 Statut Membre Dernière intervention 17 mars 2015
17 mars 2015 à 23:55
Merci beaucoup
0