Modifier nom Bouton Formulaire par Macro

Bonjour à tous,

Tout nouveau sur ce forum, et après maintes recherches sur le web, je fais appel a vos lumières.

Je suis en train de créer un fichier Excel dans lequel je souhaite intégrer un bouton de Formulaire auquel est déjà rattaché une macro.

Le texte qui apparait actuellement sur le bouton est "Activer" et je souhaiterai lors du clic sur le bouton, qu'il se transforme en "Effacer"

Malgré mes nombreuses tentatives je n'y parviens pas.

Vous remerciant par avance de votre aide

Cordialement

Bonjour et bienvenu sur le forum,

Pour commencer, il faut insérer un bouton de commande(objet ActiveX et non pas un bouton de formulaire) et lier ce bouton au code suivant pour changer le texte :

Private Sub CommandButton1_Click()
    If CommandButton1.Caption = "Activer" Then
        CommandButton1.Caption = "Effacer"
    Else
        CommandButton1.Caption = "Activer"
    End If
End Sub

]Bonjour,

Avant tout, merci de votre réponse

J'ai déjà le bouton de commande de créé avec une macro déjà affectée.

J'ai essayé d'ajouter le code que vous m'avez donné dans la fenêtre VBA en l'adaptant au nom du bouton sans succès à la suite de ma macro

Il se peut que je confonde pas mal de choses, je suis un réel débutant dans le VBA, Macro etc etc, si tel est le cas, ne m'en voulez pas

Je vous joint un exemple de la où j'en suis avec le bouton, la macro affecté et le module d'écriture manuscrite

[attachment=0]Classeur aide.xlsm[/attachment

Merci

Re,

Quand je clique sur le bouton, il se passe rien, Est-ce normal ?

Bonjour

Bonjour Raja

Avec ton bouton

Sub Bouton2_Cliquer()
Dim Sh As Shape

  Set Sh = ActiveSheet.Shapes(Application.Caller)
  With Sh.TextFrame.Characters
    If .Text = "Activer" Then
      .Text = "Effacer"
    Else
      .Text = "Activer"
    End If
  End With

  With Sheets("Feuil1").InkPicture1
      .InkEnabled = False
      .Ink.DeleteStrokes
      .InkEnabled = True
   End With
End Sub

Bonjour Banzai,

Merci énormément c'est exactement ça !

Afin de pousser le truc dans ses derniers retranchements, est-il possible de faire en sorte que lorsque le bouton passe de Activer à Effacer, il reste ensuite sur Effacer peu importe le nombre de clics suivants?

Si ce n'est pas possible c'est déjà super comme ça merci beaucoup a vous deux !

EDIT: J'ai trouvé tout seul comme un grand en modifiant le "Activer" de ELSE en "Effacer "

Merci beaucoup !