Changer le nom d'un bouton

Bonjour à tous

Voilà j'ai un soucis, je voudrai changer le caption d'un boutton ( lui donner la valeur contenue dans une cellule, en l'occurence, la cellule A1) à chaque modification d'une cellule, comme ceci :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

CommandButton1.Caption = [A1]

End Sub

Le problème c'est que cela ne fonctionne pas... en revanche si je met la ligne de code de modification du nom du bouton dans le code du bouton, cela marche; ie :

'que ce soit en private ou non cela marche aussi
Sub CommandButton1_Click()

CommandButton1.Caption = [A1]

End Sub

Donc avez vous une solution pour que cela marche aussi dans Workbook_SheetChange ???

Merci beaucoup pour votre aide.

nb : le boutton est crée via excel avec la boite à outils contrôles

en fait je viens de trouver, il faut préciser une propriété/objet :

ActiveSheet.CommandButton1.Caption = [A1]
Rechercher des sujets similaires à "changer nom bouton"