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 SubRemarque : 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.
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 ?
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels