XL 2016 Cases à options conditionnelles pour cases à cocher

[Gabriel.T]

Bonjour à tous,

Je n'arrive pas à trouver sur internet la solution à mon problème donc je vous l'expose ici:
J'ai un dossier excel avec 2 cases d'options (oui et non) ainsi que 4 cases à cocher (FR,K,C,D).
J'aimerais que lorsque le "non" est choisi, les cases à cocher soient verrouillées (aucune case cochée) et lorsque le "oui" est choisi, les cases à cocher soient libres.
J'ai un début de Macro mais je ne suis pas sur que cela vous soit utile:

Sub Macro1()
If Oui.Value = False Then
K.Value = False
FR.Value = False
C.Value = False
D.Value = False
If Oui.Value = True Then
K.Value = True
FR.Value = True
C.Value = True
D.Value = True

End Sub


Merci d'avance pour votre aide!

Gabriel

 

[Modeste]

Bonjour Gabriel,

Ceci -dans la fenêtre de code de la Feuil1- semble fonctionner chez moi:

Private Sub Oui_Click()
K.Enabled = True
FR.Enabled = True
C.Enabled = True
D.Enabled = True
End Sub
Private Sub Non_Click()
K.Enabled = False
FR.Enabled = False
C.Enabled = False
D.Enabled = False
'K = False
'FR = False
'C = False
'D = False
End Sub

Les 4 dernières sont en commentaire ... je ne sais pas si elles te seront utiles?

[Edit:] Salut thebenoit59

 

[thebenoit59]

Bonjour Gabriel.

Tu peux directement travailler sur l'évènement Click des deux Cases d'options.
En effet quand tu cliqueras sur Oui la valeur sera True automatiquement, de même pour le Non.

Le code donnerait :

Option Explicit

Private Sub Oui_Click()
    With Me
        .K.Value = True
        .FR.Value = True
        .C.Value = True
        .D.Value = True
    End With
End Sub

Private Sub Non_Click()
    With Me
        .K.Value = False
        .FR.Value = False
        .C.Value = False
        .D.Value = False
    End With
End Sub

Edit: Bonjour Modeste.

 

[Gabriel.T]

Messieurs,

Je vous remercie de vos réponses rapides qui, de plus, sont parfaitement adaptées à mon problème.

Merci encore et bonne journée!

Gabriel