Discussion :

[krina85]

Bonjour,

Sur un formulaire, j’ai plusieurs cases à cocher. Sur le principe du groupe d’options, j’aimerai faire 2 sous groupes (1 groupe avec 1 seule case, 1 groupe avec le reste des cases du formulaire).
En pratique, quand je clique sur n’importe quelle case du 2ème groupe, si celle du 1er groupe est cochée, elle se décoche.
Si une ou plusieurs cases du 2ème groupe est cochée (je dois avoir la possibilité de cocher plusieurs cases), sur click de la case du 1er groupe, celle du 2ème groupe se décoche.

Auriez-vous une idée pour réaliser cela ?

Merci d’avance

[FreeAccess]

Bonjour.....

Sur le principe du groupe d’options, j’aimerai faire 2 sous groupes .....(je dois avoir la possibilité de cocher plusieurs cases)

Donc ici pas de groupe d'options, car ce type de regroupement ne te permet le choix que d'une seule option par groupe d'options...

Par contre sur ton formulaire, tu va utiliser simplement des contrôles "Cases à cocher" que tu disposera ensemble.

Petit exemple (..pas optimisé, c'est juste pour comprendre le principe..)

Groupe1 constitué d'une seule Case à cocher (Ok1_1)
Groupe2 constitué du nombre de Case à cocher nécessaires (Ok2_1, Ok2_2,.............Ok2_9)

Ensuite, tu utilise l'événement "Après MAJ" des différentes Cases à cocher..:

..sur click de la case du 1er groupe, celle du 2ème groupe se décoche.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Ok1_1_AfterUpdate()
Dim ctrl As Control
If Ok1_1.Value = True Then
    For Each ctrl In Me.Controls
        If Left(ctrl.Name, 3) = "Ok2" Then
            ctrl.Value = False
        End If
    Next
End If
End Sub

quand je clique sur n’importe quelle case du 2ème groupe, si celle du 1er groupe est cochée, elle se décoche

....sur chaque événement "Après MAJ" des cases à cocher du Groupe2.:

Code :

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

1
2
3
Private Sub Ok2_1_AfterUpdate()
Me.Ok1_1.Value = False
End Sub

...voici en gros le principe à suivre.......à adapter à ton application....

Bonne continuation...

[krina85]

Bonsoir

Merci FreeAccess pour l'idée et les lignes de code. ça marche très bien. Personnellement, j'ai mis le code sur l'évènement OnClick des cases à cocher, ça passe sans problème.

Je met donc résolu.