Discussion :

[PAPAJUJUCHACHA]

Bonjour,
J'ai une listbox de valeurs, de type multi-sélections avec affichage des cases à cocher.
- La première ligne est arbitrairement "ALL".
- Les autres sont issues d'une colonne Excel.

Quand je sélectionne le choix "ALL", je voudrais décocher toutes les autres lignes de ma listbox.
J'ai essayé avec le change, mais ça boucle.
Avez-vous une idée ?
Merci.

[patricktoulon]

re
si ton premier item est "all" c'est l'item zero

donc dans l'evenement mouseUP de la listbox tu réinitialise ta listbox tout simplement
je dis bien dans le mouseUP sinon ca ne fonctionne pas les autres evenement ont besoins du mouseUP pour etre pris en compte

Code :

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

1
2
3
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If ListBox1.Selected(0) Then ListBox1.List = ListBox1.List
End Sub

ATTENTION!!!
si tu utilise l'evenement change de ta liste dans ton userform tu devra englobé tout le code de ton evenement dans un

Code :

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

1
2
3
4
if listbox1.listindex<>-1 then 
'....
'....
end if

pas plus compliqué

[PAPAJUJUCHACHA]

Merci Patrick pour le tuyau.
Effectivement c'était simple.
Pour finaliser :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub maListe_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
' SI je clique ailleurs que sur le 1er item ( qui est = "ALL" )
' ALORS l'item "ALL" est décoché
If maListe.ListIndex > 0 Then
  maListe.Selected(0) = False
End If
 
' SI je clique sur le 1er item ( qui est = "ALL" )
' ALORS je décoche toutes les autres lignes
If maListe.Selected(0) Then
  maListe.List = maListe.List
  maListe.Selected(0) = True
End If
End Sub