Afficher un message avec un interrupteur

Bonjour,

Je souhaiterais afficher/masquer un message qui sera dans une macro à l'aide d'un interrupteur.

Merci de votre aide

Daniel

voir modèle en pièce jointe

Bonjour Potola Daniel, le forum,

Un essai en utilisant une Zone de texte nommée "TxtMessage"....j'ai renommé ta case "interrupteur"...

Sub Caseàcocher1_Cliquer()
  With Sheets("Feuil1").Shapes("TxtMessage")
   .Visible = IIf(Feuil1.Shapes("interrupteur").ControlFormat.Value = xlOn, True, False)
  End With
End Sub

Cordialement,

Bonjour,

ton modèle est exactement ce que je veux, je fais un copier collé de la macro en changeant le nom de la feuille, ma feuille se nome "FICHE A IMPRIMER"

j'ai laissé le nom de l'interrupteur "Caseàcocher1" ça me met un débogage, en fait l'image en dessous c'est ce que je voudrais avec le nom de l'interrupteur "CLIENT GEM"

Bonjour,

Pourrais je avoir de l'aide svp, c'est urgent

Merci a vous

Bonjour Daniel, le forum,

Merci pour le retour,

Vois si ce fichier peut t'aider.....

Sub Caseàcocher1_Cliquer()
  With Sheets("Fiche à imprimer").Shapes("ZoneTexte 1")
   .Visible = IIf(Sheets("Fiche à imprimer").Shapes("Case à cocher 1").ControlFormat.Value = xlOn, True, False)
  End With
End Sub

Cordialement,

Bonjour,

Super ça fonctionne merci beaucoup pour votre aide.

Daniel