XL 2016 Utiliser une Checkbox pour afficher/Masquer d'autres Checkbox

[babooche]

Bonjour,

Je souhaite utiliser une macro afin que lorsque je coche la checkbox "Témoin" (Cellule D2), les checkbox 'Option1" (Cellule C3), "Option2" (Cellule C4), "Option..." soient visibles, sinon elles sont invisibles.

Il me semblait que c'était relativement simple :
- Nommer l'objet : ici les checkbox
- Puis lancer la macro suivante

Private Sub Temoin_Click()
Option1.Visible = IIf(Temoin.Value = True, 1, 0)
End Sub

Je pense que mon problème vient des checkbox qui ne sont pas trouvées par la macro mais pas de la macro elle même.
Est ce que je me trompe ? Pouvez vous m'aider à fixer le probleme?

Merci d'avance

 

[Hasco]

Bonsoir,

Aimant mes vieilles habitudes j'ai renommé vos objets en les préfixant par shp (pour shape).
C'est bête mais dans un long programme cela peut indiquer très vite à quoi on à affaire.
La macro se trouve dans un module de code général.

Bonne soirée

 

[babooche]

Merci Roblochon.

J'ai regardé ton excel et ça répond parfaitement à mon besoin.
Bon par contre va falloir que je ressorte mes cours pour comprendre chaque ligne. Heureusement il n'y en a pas beaucoup 🙂

 

[patricktoulon]

bonjour a tous
@Roblochon bien vu le test typename je n'y aurais pas pensé
mais on peut se passer des goto et/ou exit sub 😉

Public Sub Temoin_Click()
'
' Vérification de l'appelant de la macro
    If TypeName(Application.Caller) = "String" Then
        '
        ' Vérification du nom de l'appelant
        If Application.Caller = "shpTémoin" Then
            With ActiveSheet.Shapes
                .Range(Array("shpOption1", "shpOption2")).Visible = (.Item(Application.Caller).ControlFormat.Value = 1)
            End With
        End If
    End If
End Sub

 

[Hasco]

Re,

mais on peut se passer des goto et/ou exit sub

A chaque fois c'est l'hésitation entre les très vielles habitudes (que j'aime bien parfois) et les nouvelles., mais c'est jamais sans réfléchir🙂

A+