Macro renommer bouton avec nom variable
Résolu/Fermé
volfoss
Messages postés
31
Date d'inscription
jeudi 21 juillet 2016
Statut
Membre
Dernière intervention
15 octobre 2023
-
Modifié par volfoss le 21/07/2016 à 16:52
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 22 juil. 2016 à 18:06
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 22 juil. 2016 à 18:06
A voir également:
- Macro renommer bouton avec nom variable
- Bouton shift pc ✓ - Forum Windows
- Renommer plusieurs fichiers - Guide
- Trouver une adresse avec un nom de famille gratuit ✓ - Forum Mobile
- Vba range avec variable ✓ - Forum VB / VBA
- Nom de l'adresse - Forum Réseaux sociaux
1 réponse
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 681
21 juil. 2016 à 22:31
21 juil. 2016 à 22:31
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.
22 juil. 2016 à 17:22
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
22 juil. 2016 à 18:06
Tu enregistres ta macro et tu mets son nom 'EnregtistrerFichierBagues' dans la ligne 'OnAction' comme je te l'ai écrit