Listbox multiselect

guillaumenicolas
Messages postés
12
Date d'inscription
mardi 24 novembre 2009
Statut
Membre
Dernière intervention
27 mai 2010
- 19 mai 2010 à 10:42
Calade
Messages postés
1207
Date d'inscription
dimanche 20 avril 2003
Statut
Membre
Dernière intervention
4 juin 2016
- 19 mai 2010 à 11:01
Bonjour à tous,

Je réalise actuellement une application sous Vba Excel 2003.

j'utilise une listbox en mode -fmmultiselectmulti
et je voudrais récupérer les valeurs des éléments sélectionnés pour les comparer a des valeurs entrées dans des cellules.
j'ai donc réalisé ce petit code pour déjà essayer de comparer seulment le listbox1.list ne renvoit qu'un nombre et non la valeur de l'item

For i = userform1.listox1.ListCount To 0
Step -1

if userform1.listox1.list(i) = sheets(1).cells(1,1).value then
MsgBox "ok"
else
MsgBox "faux"
End If

Next


Merci pour votre aide, ça fait deux jours que je cherche et que je ne trouve pas

1 réponse

Calade
Messages postés
1207
Date d'inscription
dimanche 20 avril 2003
Statut
Membre
Dernière intervention
4 juin 2016
10
19 mai 2010 à 11:01
Essaie comme ceci (à tester)

For i = userform1.listox1.ListCount To 0 Step -1

if userform1.listox1.selected(i) then
if userform1.listox1.list(i) = sheets(1).cells(1,1).value then
MsgBox "ok"
else
MsgBox "faux"
End If
end if
Next 



Calade
0