il faut que tu réintroduise la première ligne
après le nom de ta macro "sub nommacro()" que tu utilise.
et ensuite tu traite les données, car je suppose que tu fais quelque chose avec ce bouton (donc j'ai remplacé ces données par le message "ça marche" mais toi tu l'efface et tu mets ce qui doit être exécuté à ce moment-là.
puis tu termine par la troisième ligne : activesheet........ qui réinitialise le bouton comme à l'origine en appelant la deuxième macro "réinitZonedeText(n)quand_click(). tu dois bien sûr remplacer le numéro du textboxe par celui dont du te sert. Attention suivant la version excel Textboxes peut s'appeler peut-être autrement, mais je ne crois pas, à vérifier.
ActiveSheet.TextBoxes(1).Text = "x"
MsgBox "ça marche !"
ActiveSheet.TextBoxes(1).OnAction = "réinitZonedetexte1_QuandClic"
End Sub
Sub réinitZonedetexte1_QuandClic()
ActiveSheet.TextBoxes(1).Text = "c'est OK"
ActiveSheet.TextBoxes(1).OnAction = "Zonedetexte1_QuandClic"
End Sub
Je n'ai pas réussi à t'envoyer le fichier, ça aurait été plus clair. et je ne suis pas sur mon micro et pas sur la bonne version excel. la version présente est 2003, ça peut être perturbant.
J'espère que cette fois-ci ce sera plus clair.