Discussion :

[Ltspitfire]

Bonjour,

Je cherche comment cocher toutes les checkbox d'une list box et comment les décocher a l'aide d'un bouton je sais pas si cela est faisable.

J'ai essayé en mettant :

Code :

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

1
2
For k = 0 To ListBox1.ListCount - 1
CheckBox = True

Cependant rien ne se passe.

Merci d'avance,
Cordialement,
Ltspitfire

[Theze]

Bonsoir,

Regarde si ça te convient :

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 CommandButton1_Click()
 
    Static Cocher As Boolean
    Dim I As Integer
 
    Cocher = Not Cocher
 
    For I = 0 To Me.ListBox1.ListCount - 1
 
       Me.ListBox1.Selected(I) = Cocher
 
    Next I
 
End Sub

Hervé.

[Ltspitfire]

Bonjour,

Merci beaucoup Theze cela marche parfaitement.
Bonne journée.

Cordialement,
Ltspitfire