Listbox multiple

[timeodanao]

Bonjour le forum,

J'ai un souci sur une listebox multiple utilisé via un userform.
Je n'arrive pas à récupérer les données sélectionnées pour les coller par exemple sur mon classeur à partir de la cellule A72.
Quelqu'un pourrait-il m'aider svp?

Merci d'avance

 

[Pierrot93]

Re : Listbox multiple

Bonsoir,

il faut faire une boucle en testant la propriété "Selected" de la "listbx", exemple ci-dessous :

Dim i As Byte
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        Cells(i + 1, 1) = ListBox1.List(i, 1)
   End If
Next i

bonne soirée
@+

 

[timeodanao]

Re : Listbox multiple

nikel

merci

 

[timeodanao]

Re : Listbox multiple

je me suis avancé un peu trop vite car ça ne fonctionne pas.
il reconnait bien les éléments selectionnés mais ne les colle pas sur une feuilel excel els uns ç la suite des autres.

Merci

 

[dra72]

Re : Listbox multiple

Bonjour à vous,

Si le but est de coller sur la dernière ligne du tableau, il faut remplacer

Cells(i + 1, 1) = ListBox1.List(i, 1)

par

Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1).Value = ListBox1.List(i, 1)

Bonne soirée

 

[timeodanao]

Re : Listbox multiple

ça ne fonctionne toujours pas !
Je te joint mon fichier pour que tu vois. => onglet "PdG" bouton "Contrats"
Merci

 

[dra72]

Re : Listbox multiple

Bonjour,

Je ne saisis pas bien ce que tu veux ajouter dans ta colonne O de ta feuille paramètres.

Prenons un exemple: Si tu sélectionnes AIR FRANCE dans la liste, que doit-on retrouver dans la colonne O?

Ta liste ne comprend qu'une seule colonne numérotée 0. List(i, 1) retourne une valeur nulle.

Si tu veux ajouter AIR FRANCE, il faut remplacer par List(i, 0) ou List(i) tout simplement.

 

[timeodanao]

Re : Listbox multiple

merci c'est bon j'ai trouvé
j'ai utilisé List(i) à la place de List(i,0)