comment sélectionner l'ensemble d'une listbox dans un USF

[marie49]

Bonjour,

je souhaiterai que l'utilisateur sélectionne l'ensemble de la liste box d'un USF grace a un bouton de choix.

Voici ce que j'ai mis :

Private Sub OptionButton1_Click()

Dim i As Integer

For i = 0 To UserForm1.ListBox1.ListCount - 1 'passe toute les lignes de userform1
UserForm1.ListBox1.Selected (i)
Next i
End Sub

Cela ne marche pas.

Pouvez vous m'aider?
merci
marie


J'ai trouvé ca :
Private Sub OptionButton1_Click()

Dim i As Integer

For i = 0 To UserForm1.ListBox1.ListCount - 1 'passe toute les lignes de userform1

ListBox1.ListIndex = i

Next i
End Sub

Mais ce n'est pas mieux

 

[kjin]

Re : comment sélectionner l'ensemble d'une listbox dans un USF

Bonjour,
J'ai utlisé une checkbox à la place de l'OptionButton
La propriété Multiselect de la Listbox doit être sur 1

Private Sub CheckBox1_Change()
For j = 0 To ListBox1.ListCount - 1
If CheckBox1 = True Then
ListBox1.Selected(j) = True
Else
ListBox1.Selected(j) = False
End If
Next
End Sub

A+
kjin

 

[marie49]

Re : comment sélectionner l'ensemble d'une listbox dans un USF

Bonjour,

Merci, ca marche. Je n'ai pas mis le test. Ca ne marche pas avec le test...

Maintenant lorsque je sélectionne le boution d'option et ensutie que je veux le déselectionner je ne peux pas.

Avez vous une idée? Je vais continuer de chercher

Merci
Marie

 

[kjin]

Re : comment sélectionner l'ensemble d'une listbox dans un USF

Re,
Pourquoi t'ai je proposé de remplacer l'OptionButton par une Checkbox, si ce n'est pas pour pouvoir déselectionner les lignes de la Listbox ?
A+
kjin

 

[marie49]

Re : comment sélectionner l'ensemble d'une listbox dans un USF

ok, je vais essayer

 

[kjin]

Re : comment sélectionner l'ensemble d'une listbox dans un USF

Re,
C'est l'OptionButton que l'on remplace par une Checkbox, pas la Lisbox..
A+
kjin

 

[marie49]

Re : comment sélectionner l'ensemble d'une listbox dans un USF

Merci, ca fonctionne très bien
Marie