Listbox : Sélectionner tout une listbox avec checkbox

Version imprimable

Bonjour à tous,

Je suis sur un problème que je n'arrive pas à solutionner.
J'utilise une checkbox pour sélectionner / déselectionner toute une listbox.

Cependant je veux lorsque je déselectionne dans ma listbox une donnée que la checkbox se désélectionne et inversement si je sélectionne toutes mes données de ma listbox que la checkbox se sélectionne.

Et c'est la que ça bloque. J'ai mis un Sub sur un Click pour la checkbox et sur un Change pour la Listbox. Mais lorsque je change la valeur de la checkbox par le code, il considère que c'est un click.

Avez vous une solution ?

Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
Dim update_Valeur as Boolean
Private Sub CB_SELECTION_Click()
    Dim i As Integer
 
    update_Value = True
    LB_OPTION_Change
 
End Sub
 
 
 
Private Sub LB_OPTION_Change()
    Dim i As Integer
    Dim tout As Boolean
 
    If update_Value = True Then
        If CB_SELECTION.Value = True Then
            For i = 0 To LB_OPTION.ListCount - 1
                If LB_OPTION.Selected(i) = False Then
                    LB_OPTION.Selected(i) = True
                End If
            Next i
        Else
            For i = 0 To LB_OPTION.ListCount - 1
                If LB_OPTION.Selected(i) = True Then
                    LB_OPTION.Selected(i) = False
                End If
            Next i
        End If
    Else
        update_Value = False
        tout = True
        For i = 0 To LB_OPTION.ListCount - 1
            If LB_OPTION.Selected(i) = False Then
                tout = False
            End If
        Next i
        If tout = False Then
            CB_SELECTION.Value = False
        Else
            CB_SELECTION.Value = True
        End If
    End If
End Sub

06/07/2022, 13h41
Philippe Tulliez
Bonjour,
Je n'ai pas examiné votre code complètement mais je peux vous aider à alléger votre procédure.
Plutôt que d'utiliser un If...Then...Else, pour modifier la valeur booléenne de la propriété d'un objet, il est plus simple de l'inverser par l'instruction Not

Exemple pour masquer/afficher des colonnes d'une feuille
Code:

1 2 3 With Columns("D:F").EntireColumn .Hidden = Not .Hidden End With
A lire éventuellement mon billet titré VBA - De la mauvaise utilisation d'un If...Then...Else pour modifier une propriété Booléenne

Bonjour,

Une façon de faire est de réagir à la fois sur CB_Selection_Change(), et sur CB_Selection_MouseUp() et CB_Selection_KeyUp():

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Option Explicit
 
Dim UpdateLB As Boolean
 
Private Sub CB_Selection_Change()
    Debug.Print "CB_Selection_Change"
    LB_OPTION_Change
End Sub
 
Private Sub CB_Selection_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Debug.Print "CB_Selection_KeyUp"
    UpdateLB = True
End Sub
 
Private Sub CB_Selection_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Debug.Print "CB_Selection_MouseUp"
    UpdateLB = True
End Sub
 
Private Sub LB_OPTION_Change()
    Dim i As Integer
    Dim Tout As Boolean
    If UpdateLB = True Then
        If CB_Selection.Value = True Then
            For i = 0 To LB_Option.ListCount - 1
                If LB_Option.Selected(i) = False Then
                    LB_Option.Selected(i) = True
                End If
            Next i
        Else
            For i = 0 To LB_Option.ListCount - 1
                If LB_Option.Selected(i) = True Then
                    LB_Option.Selected(i) = False
                End If
            Next i
        End If
    Else
        Tout = True
        For i = 0 To LB_Option.ListCount - 1
            If LB_Option.Selected(i) = False Then
                Tout = False
            End If
        Next i
        If Tout = False Then
            CB_Selection.Value = False
        Else
            CB_Selection.Value = True
        End If
    End If
    UpdateLB = False
End Sub

Cordialement.

Bonjour,
Autre approche en utilisant simplement la valeur booléenne des deux contrôles

Un UserForm avec

CheckBox nommé chk_Selection
ListBox nommé lst_Selection

Procédure qui coche ou décoche tous les éléments de la liste en fonction de la propriété Value du CheckBox
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Select_Unselect() Dim e As Integer With Me With .lst_Selection For e = 0 To .ListCount - 1 .Selected(e) = Me.chk_Selection.Value Next End With End With End Sub
Procédure événementielle qui Invoque Select_Unselect
Code:

1 2 3 4 Private Sub chk_Selection_Change() Select_Unselect ' With chk_Selection: .Caption = msg(Abs(.Value)): End With End Sub
On pourrait prévoir également de définir la propriété Value du CheckBox à Null si les éléments sont partiellement cochés