Récuperer selection Listbox

Bonsoir à tous,

Ci-joint mon fichier,

L'idée c'est de m'aider à récupérer les 4 données sélectionné dans une listbox pour les placer dans des cellules.

Je crois avoir compris qu'il fallait utiliser la propriété Selected ...mais j'en suis incapable. Alors, j'ai pensé à vous.

Merci d'avance,

120listbox.xlsm (80.50 Ko)

Bonsoir,

Une solution :

Private Sub CommandButton_Ajouter_Click()
   'Si le formulaire est complet, on insère les valeurs sur la feuille
   Dim no_ligne As Integer, civilite As String, Dico
   'no_ligne = N° de ligne de la dernière cellule non vide de la colonne +1
   no_ligne = Range("A65536").End(xlUp).Row + 1
   'Insertion des valeurs sur la feuille
   Set Dico = CreateObject("Scripting.Dictionary")
   For i = 0 To ListBox1.ListCount - 1
      If ListBox1.Selected(i) = True Then Dico(ListBox1.List(i)) = ""
   Next i
   i = Dico.Count
   Cells(no_ligne, 1).Resize(1, Dico.Count) = Dico.keys
   'Après insertion, on remet les valeurs initiales

End Sub

A+

Parfait, Merci bcp!

J'ai pu l’intégrer dans mon fichier, sauf que chez moi la remise a zéro ne marche pas (les éléments sélectionnés initialement, le reste après validation)...

+

bonjour,

...
   'Après insertion, on remet les valeurs initiales
   ListBox1.Clear
   ListBox1.List() = Worksheets("Code Famille").Range("A1:A154").Value
End Sub

A+

Rechercher des sujets similaires à "recuperer selection listbox"