VBA EXCEL - données multiples listbox Résolu

Question

Bonjour
Je voudrais sélectionner plusieurs nombres à partir d'une listbox et pouvoir les récupérer pour les utiliser ensuite.
Par le biais de la fenêtre Exécution, ces nombres apparaissent mais comment les récupérer pour les stocker dans des variables.
La fenêtre Exécution peut-elle être insérée dans une procédure ?
Merci de vos suggestions.

Armojax · Accepted Answer

Je t'ai fait un petit exemple. Un Form avec une ListBox et un bouton.
A l'initialize du Form (option MultiSelect), un met en place une liste d'items.
Après avoir choisi plusieurs éléments, en cliquant sur le bouton, on stocke la sélection dans les cellules de la colonne A de Feuil1.

Private Sub UserForm_Initialize()
  ListBox1.Clear
  ListBox1.AddItem "tata"
  ListBox1.AddItem "tete"
  ListBox1.AddItem "titi"
  ListBox1.AddItem "tintin"
  ListBox1.AddItem "toto"
  ListBox1.AddItem "toutou"
  ListBox1.AddItem "tutu"
  ListBox1.AddItem "tyty"
End Sub

Private Sub CommandButton1_Click()
  Dim I As Integer, J As Integer
  Sheets("Feuil1").Range("A1:A8").ClearContents
  J = 0
  For I = 0 To 7
    If ListBox1.Selected(I) Then
      J = J + 1
      Sheets("Feuil1").Cells(J, 1).Value = ListBox1.List(I)
    End If
  Next
End Sub

Evidemment, on peut stocker aussi les valeurs dans un tableau plutôt que dans une feuille, etc. Ensuite on en fait ce qu'on veut...

Armojax · Answer

Bonjour malbjp,

Une méthode, par exemple : utiliser la propriété Selected. Si tu as 10 items dans ta liste (indexés de 0 à 9), tu peux faire une boucle :

For i = 0 To 9
  If ListBox1.Selected(i) = True Then
    '<l'item a été sélectionné>
  End If
Next i

Selected est à True si l'item est sélectionné, et à False sinon.

malbjp · Answer

Bonsoir
Merci de t'intéresser à mon problème...
Voilà ce que j'ai mis dans le contrôle Valider

Private Sub valid_Click()
Dim compt
For compt = 0 To (listchoix.ListCount - 1)
If listchoix.Selected(compt) = True Then
Debug.Print listchoix.List(compt)
End If
end sub

mais comment faire pour récupérer la sélection 1, 7 et 9 par exemple, pour pouvoir les utiliser ensuite ?
si tu as une idée je suis preneur ... merci

Marco · Answer

Bien Joué!!!
Marco

icofiktou · Answer

j'ai une question j'ai le meme probleme sauf que je dois choisir plusieurs elements mais j'arrive pas a les recuperes la methode a Marco recupere qu'une seule donnée est ce que l'un de vous arrive a me dire comment faire svp

Trounk · Answer

Salut, en fait c'est tout simple, tu fais une boucle balayant les valeurs de ta liste et pour chacune ".Selected(index)" te permet de savoir si elle est ou non sélectionnée et ".List(index)" te donne sa valeur.

Donc en code, cela donnerait quelque chose du genre :
(je suppose qu'il y a N lignes dans la liste)

for i = 0 to N-1
   If ListBox.Selected(i) then 
      msgbox "la valeur suivante est sélectionnée : " & ListBox.List(i)
   end if
next i

magi123 · Answer

comment je peux mettre des informations ds une liste box à partir de différentes feuilles d'un seul classeur

VBA EXCEL - données multiples listbox

7 réponses

Discussions similaires

Newsletters