Est-il un moyen de modifier la légende sur la Forme des boutons de Contrôle?

Bien, clic droit sur l'onglet de la feuille Sheet1 sur le bas de la feuille de calcul et sélectionnez afficher le code

Copier coller le code suivant

Private Sub Worksheet_Activate()
    Buttons("Button 1").Caption = "NEW TEXT"
End Sub

Cet événement se déclenche lorsque la feuille "Sheet1" est activé et il modifie la légende sur le bouton pour NEW TEXT

Évidemment, vous pouvez vous référer à vos boutons par leur nom ou leur index. Vous souhaitez modifier la "Button 1" si vous souhaitez modifier le texte sur un objet différent.

Vous pouvez l'affecter à une variable ou à l'évaluation d'une expression si vous remplacez le "NEW TEXT"

Par exemple

si sur Sheet2 vous tapez quelque chose dans la cellule A1, vous pouvez modifier le code de la feuille Sheet1 et l'utilisation

Private Sub Worksheet_Activate()
    Buttons("Button 1").Caption = Sheets("Sheet2").Range("A1")
End Sub

de cette façon, chaque fois que vous activez la feuille Sheet1 le texte sur un bouton pour être ramassés à partir de la feuille Sheet1, la Cellule A1

Trouver le nom du bouton regardez ici

Dans cet exemple, la Légende de la Forme-Bouton de Contrôle avec le nom "Bouton 1" est modifiée en fonction de la valeur de la cellule modifié en 'Feuil1'. Le bouton est sur la feuille Sheet1, le code vient de la Classe du module de la feuille Sheet1. HTH

' Sheet1 module:

Private Sub Worksheet_Change(ByVal Target As Range)
    Const buttonName As String = "Button 1"

    Dim targetButton As Excel.Button

    On Error Resume Next
    Set targetButton = Target.Worksheet.Buttons(buttonName)
    On Error GoTo 0

    If targetButton Is Nothing Then _
        Exit Sub

    If Target.Value <> "" Then _
        targetButton.Caption = Target.Value

End Sub