Macro renommer bouton avec nom variable
Résolu
volfoss
Messages postés
37
Date d'inscription
Statut
Membre
Dernière intervention
-
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
pour les besoins d'un programme j'ai créer un bouton qui lance une macro pour créer des autres boutons afin d'ouvrir différents fichiers.
1) J'aimerais renommer à partir d'une macro ce nouveau bouton en fonction d'une cellule dont le nom est variable (ce serait l'année) et qui est placé en I 31 ?
2) est- il possible de déterminer dans la macro l'emplacement du nouveau bouton créer (par exemple en E 30 ?
Merci pour votre aide.
pour les besoins d'un programme j'ai créer un bouton qui lance une macro pour créer des autres boutons afin d'ouvrir différents fichiers.
1) J'aimerais renommer à partir d'une macro ce nouveau bouton en fonction d'une cellule dont le nom est variable (ce serait l'année) et qui est placé en I 31 ?
2) est- il possible de déterminer dans la macro l'emplacement du nouveau bouton créer (par exemple en E 30 ?
Merci pour votre aide.
A voir également:
- Macro renommer bouton avec nom variable
- Renommer des fichiers en masse - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Renommer iphone - Guide
- Bouton on off ✓ - Forum Loisirs / Divertissements
- Comment renommer quelqu'un sur instagram - Guide
1 réponse
Bonjour,
Bienvenue sur le forum
Tu peux le faire avec ce type de macro :
Bienvenue sur le forum
Tu peux le faire avec ce type de macro :
ActiveSheet.Buttons.Add([E30].Left, [E30].Top, [E30].Width, [E30].Height).Select
Selection.Characters.Text = [I31].Value
Selection.OnAction = "Macro ?" En remplaçant "Macro ?" par ton nom de macro que tu veux lancer avec ton bouton.
Je voudrais que le bouton fasse :
Sheets("2017").Visible = True
Sheets("2017").Select
Range("B2:F2").Select
Est-ce réalisable en une seul macro ?
Mon code actuel :
Sub EnregtistrerFichierBagues()
Sheets("Bagues").Visible = True
Sheets("Bagues").Select
ActiveSheet.Buttons.Add([E10].Left, [E10].Top, [E10].Width, [E10].Height).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 28.5
Selection.ShapeRange.Width = 57#
Selection.Characters.Text = [I31].Value
Selection.OnAction = "'Gestion élevage.xls'!Bagues2017"
J'aimerais réaliser ici la macro lancer par le nouveau bouton (bagues2017) créer juste au-dessus.
Sheets("2017").Visible = True
Sheets("2017").Select
Range("B2:F2").Select
Sheets("Création bagues").Visible = True
Sheets("Création bagues").Select
' copie et renomme l'onglet avec l'année d'élevage
Sheets("Création bagues").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Sheets("Création bagues").Range("B2")
ActiveSheet.Visible = True
Sheets("Création bagues").Visible = False
Sheets("2017").Visible = False
End Sub
Tu enregistres ta macro et tu mets son nom 'EnregtistrerFichierBagues' dans la ligne 'OnAction' comme je te l'ai écrit