"tout cocher" dans une liste déroulante

[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 :

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+