Rechercher : dans
Par :

VBA EXCEL - données multiples listbox

Dernière réponse le 22 nov 2007 à 13:53:37 malbjp, le 31 mai 2006 à 11:39:59 
 Signaler ce message aux modérateurs

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.

1

Armojax, le 31 mai 2006 à 17:15:09
  • +5

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.

Répondre à Armojax

2

malbjp, le 31 mai 2006 à 18:49:29

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

Répondre à malbjp

3

Armojax, le 31 mai 2006 à 20:57:50
  • +5

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

Répondre à Armojax

4

Marco, le 27 jun 2007 à 17:19:32

Bien Joué!!!
Marco

Répondre à Marco

5

icofiktou, le 10 sep 2007 à 16:13:52

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

Répondre à icofiktou

6

Trounk, le 18 sep 2007 à 23:33:19
  • +2

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

Répondre à Trounk

7

 magi123, le 22 nov 2007 à 13:53:37

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

Répondre à magi123