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
A voir également:

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
Rejoignez-nous