Récuperer selection Listbox Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
A
Ali Nabil
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 22 octobre 2013
Version d'Excel : 2007 fr

Message par Ali Nabil » 27 juin 2016, 22:08

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,
listbox.xlsm
(80.5 Kio) Téléchargé 83 fois
Avatar du membre
galopin01
Passionné d'Excel
Passionné d'Excel
Messages : 6'550
Appréciations reçues : 174
Inscrit le : 18 septembre 2008
Version d'Excel : 2016
Téléchargements : Mes applications

Message par galopin01 » 27 juin 2016, 23:24

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+
Question portant sur VBA : Je ne répond pas si la question ne comporte pas le classeur KIVABIEN avec.
A
Ali Nabil
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 22 octobre 2013
Version d'Excel : 2007 fr

Message par Ali Nabil » 28 juin 2016, 00:15

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)...

+
Avatar du membre
galopin01
Passionné d'Excel
Passionné d'Excel
Messages : 6'550
Appréciations reçues : 174
Inscrit le : 18 septembre 2008
Version d'Excel : 2016
Téléchargements : Mes applications

Message par galopin01 » 28 juin 2016, 03:19

bonjour,
...
   'Après insertion, on remet les valeurs initiales
   ListBox1.Clear
   ListBox1.List() = Worksheets("Code Famille").Range("A1:A154").Value
End Sub
A+
Question portant sur VBA : Je ne répond pas si la question ne comporte pas le classeur KIVABIEN avec.
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message