Comment rendre le nom du bouton de commande dynamique dans Excel ?

Cet article explique comment faire en sorte que le nom d'un bouton de commande change dynamiquement en fonction des modifications apportées à une cellule spécifiée. Par exemple, lorsque la valeur de la cellule A1 est modifiée en « test », le nom d'un certain bouton de commande sera automatiquement changé en « test ».

Rendre le nom du bouton de commande dynamique avec la valeur d'une cellule via un code VBA

Rendre le nom du bouton de commande dynamique avec la valeur d'une cellule via un code VBA

Le code VBA suivant peut vous aider à rendre le nom d'un bouton de commande dynamique en fonction de la valeur d'une cellule spécifiée dans une feuille de calcul. Veuillez procéder comme suit.

1. Cliquez sur Développeur > Insérer > Bouton de commande (Contrôle ActiveX) pour insérer un bouton de commande dans la feuille de calcul. Voir capture d'écran :

2. Après avoir inséré le bouton de commande, faites un clic droit sur l'onglet de la feuille et cliquez sur Affichage du code dans le menu contextuel comme le montre la capture d'écran ci-dessous :

3. Dans la fenêtre Microsoft Visual Basic pour Applications qui s'ouvre, veuillez copier et coller le code VBA ci-dessous dans la fenêtre.

Code VBA : Rendre le nom du bouton de commande dynamique avec la valeur d'une cellule

Dim xStr As String
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xShapeRg As ShapeRange
    On Error Resume Next
    If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
        Me.CommandButton1.Caption = Target.Text
        Set xShapeRg = ActiveSheet.Shapes.Range(xStr)
        If xShapeRg Is Nothing Then Set xShapeRg = ActiveSheet.Shapes.Range("CommandButton1")
        Application.EnableEvents = False
        xShapeRg.Select
        Application.EnableEvents = True
        Selection.Name = Target.Text
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Not Intersect(Target, Range("A1")) Is Nothing) And Target.Text <> "" Then
        xStr = Target.Text
    End If
End Sub

Remarque : dans le code, CommandButton1 est le nom du bouton dont vous souhaitez rendre le nom dynamique, et A1 est la cellule dont vous référencerez automatiquement la valeur pour le nom du bouton.

4. Appuyez sur les touches Alt + Q pour quitter la fenêtre Microsoft Visual Basic pour Applications.

5. Désactivez le Mode Création en cliquant sur Développeur > Mode Création.

Dès maintenant, le nom du bouton de commande changera dynamiquement en fonction de la valeur spécifiée dans votre feuille de calcul.

Comme le montre la capture d'écran ci-dessous, lorsque la valeur de la cellule A1 est modifiée, le nom du bouton de commande changera automatiquement vers la même valeur.

Découvrez la magie d'Excel avec Kutools AI

• Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
• Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
• Codage VBA : Écrivez et implémentez du code VBA sans effort.
• Interprétation des formules : Comprenez facilement des formules complexes.
• Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils alimentés par l'IA. Téléchargez maintenant et découvrez une efficacité sans précédent !

Articles connexes :

• Comment utiliser un bouton de commande pour enregistrer la feuille de calcul active sous forme de fichier PDF dans Excel ?
• Comment insérer automatiquement une nouvelle ligne vide avec un bouton de commande dans Excel ?