Discussion :

[gsacre]

Bonjour,

J'ai dans un formulaire, une liste déroulante avec cases à cocher, liée à une table.

Est il possible d'insérer dans cette liste déroulante la fonction "tout cocher" afin de cocher en une seule fois toutes les cases de cette liste ??

Merci pour votre aide

[LedZeppII]

Bonjour,

Je suppose que c'est pour un champ à plusieurs valeurs (comme ici).

Voici un exemple avec champ contenant de multiples entiers longs.
C'est le code de l'événement "Sur clic" d'un bouton. Je ne sais pas ajouter des boutons dans la liste déroulante.

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
16
17
Private Sub CmdSelectionnerTout_Click()
Dim l As Long, L1 As Long
Dim vValues() As Variant
 
L1 = 0
If Me.NomDeLaListe.ColumnHeads Then L1 = 1
 
For l = L1 To Me.NomDeLaListe.ListCount - 1
    ReDim Preserve vValues(0 To l - L1)
    ' CLng pour convertir en entier long car mon champ
    ' contient des valeurs de type entier long.
    ' Si le champ contient des valeurs texte, enlever CLng
    vValues(l - L1) = CLng(Me.NomDeLaListe.ItemData(l))
Next
Me.NomDeLaListe.Value = vValues
 
End Sub

A+

[simjen]

Bonjour, et merci à LedZeppII pour ce code qui marche très bien.
Toutefois je me permet de poster ici car j'ai trouvé un code un tout petit peu plus simple que je tiens à partager; il a le mérite de fonctionner tant pour la sélection que la dé-sélection; peut-être cela sera-t-il utile à quelqu'un.

Code :

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

1
2
3
4
5
6
7
8
Private Sub NomDuBouton_Click()
    Dim n As Integer
    Me.NomDeLaListe
        For n = 0 To .ListCount - 1
            .Selected(n) = True
        Next n
    End With
End Sub

Pour tout désélectionner, il suffit de remplacer

Code :

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

.Selected(n) = True

par

Code :

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

 .Selected(n) = False

Cordialement.