listbox multiselect

Question

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

Calade · Answer

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

Listbox multiselect

1 réponse

Votre réponse

Discussions similaires