Discussion :

[diude54]

Bonjour,
J'ai créé un userform avec une listbox.
Quand l'userform s'initialise, je charge les valeurs de la liste box via

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Listbox1.additem "exemple"

Jusque là tout va bien, j'ai les bon choix dans ma listbox.
Maintenant j'ai activé la selection multiple, donc je peux selectionner plusieures valeures.

Comment faire pour utiliser les valeures selectionnées.

J'ai essayé de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
for i =1 to listbox1.listcount
If listbox1.selected(i)=true then...

J'ai aussi essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if listbox1.item(i).selected=true then

Mais dans les deux cas j'ai une erreur.

Comment faire?

[Krovax]

Bonjour
Il faut partir de 0 et aller jusqu'a listcount-1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then MsgBox ListBox1.List(i)
    Next i

Un petit lien vers un faq qui devrais t'intéresser
http://silkyroad.developpez.com/VBA/...serForm/#LII-G

[diude54]

Merci, en fait il fallait que je fasse:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With listbox1
if .selected=true then...
end with

[Krovax]

Hmm il doit manquer un truc non?
Car chez moi selected demande un argument et tel quel ca plante ou alors j'ai raté un truc et on ne parle pas de la même chose

Surtout que la je ne voix pas comment tu sais ce qui a été selectionné

Enfin si c'est bon pense au mais j'aimerais bien comprendre le pourquoi du comment

[diude54]

Effectivement je me suis trompé c'est bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With lisbox1
if .selected(i)=true then...
end with

[Krovax]

dans ce cas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With lisbox1
if .selected(i)=true then...
end with

est strictement identique a

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if lisbox1.selected(i)=true then...

Du coup si tu n'as pas modifier le reste du code je suis toujours aussi sceptique

[diude54]

Voici le lien vers une discussion ou j'ai mis tous le code:
http://www.developpez.net/forums/d79...m/#post4571054
Je pensais aussi comme toi mais visiblement il doit y avoir quelque chose de différent.

[Krovax]

Peut être une faute de frappe la première fois qui sait Quoi qu'il en soit je ne suis pas sur que tu détecte la selection de la première ligne de ta liste box tu devrais faire quelque test pour voir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If ListBox1.Selected(i) = True Then nom = ListBox1.List(i)

cela fonctionne bien chez moi
mais bon ne nous attardons pas la dessus je vais voir si j'ai une idée pour ton autre soucis

[diude54]

J'ai fait exprès de commencer à la 2ème ligne de ma list box, la première ligne est "Toutes", et dans listbox change, si la valeur est "toutes" alors je selectionne toutes les autres lignes de la liste box.