Macro - changer le nom des onglets automatiquement
Bonjour,
J'essaye depuis plusieurs jours de créer une maccro me permettant de changer le nom de mes onglets automatiquement suivant des cellules de paramétrages.
En furetant sur le forum, j'ai trouvé cette solution : https://forum.excel-pratique.com/excel/nom-de-l-onglet-t16947.html
J'ai alors utilisé ce code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Name = Range("C3").Value
End Sub
Lorsque je suis sur un onglet dont je veux changer le nom, je clique sur la cellule C3, fais F5.
Cela m'ouvre la fenêtre "atteindre", je clique alors sur "Cellules...", je sélectionne alors "Zone en cours", et je clique sur "OK".
Tout ceci fonctionne parfaitement (je remercie d'ailleurs les auteurs de la solution du sujet cité ci-dessus).
Cependant, ayant plusieurs onglets, 6 au total, je cherche à changer leur nom en cliquant sur un bouton auquel j'aurais affecté une macro.
J'ai tenté de la créer en faisant nouvelle macro et en répétant la procédure citée ci-dessus plusieurs fois puis d'arrêter l'enregistrement.
Je l'ai maintenant supprimée car cela m'activait le débogeur.
Auriez-vous une idée sur la façon de procéder?
Bien cordialement
JVV
PS: mon fichier est beaucoup trop lourd pour pouvoir le joindre (4mo, me semble que la limite autorisée est de 200ko).
Bonjour,
merci cela m'a beaucoup aidé
j'ai essayé de toutes les combiner en une seule
j'ai donc créé 6 boutons sur chaque onglet + 1 sur mon onglet paramètre
quand je clique sur ce dernier, tout se met à jour maintenant
cependant quand je rechange la date, il ne reconnait plus cette derniere macro
j'ai écrit ceci
Sub changer()
'
' changer Macro
' Macro enregistrée le 28/11/2011 par T0129886
'
'
Sheets("Feuil2").Select
Application.Run _
"'Copie de CAPEX MYB Ntest + changement de nom.xls'!Feuil2.Change_Nom"
Sheets("Feuil3").Select
Application.Run _
"'Copie de CAPEX MYB Ntest + changement de nom.xls'!Feuil3.Change_Nom"
Sheets("Feuil4").Select
Application.Run _
"'Copie de CAPEX MYB Ntest + changement de nom.xls'!Feuil4.Change_Nom"
Sheets("Feuil5").Select
Application.Run _
"'Copie de CAPEX MYB Ntest + changement de nom.xls'!Feuil5.Change_Nom"
Sheets("Feuil13").Select
Application.Run _
"'Copie de CAPEX MYB Ntest + changement de nom.xls'!Feuil13.Change_Nom"
Sheets("Feuil6").Select
Application.Run _
"'Copie de CAPEX MYB Ntest + changement de nom.xls'!Feuil6.Change_Nom"
Sheets("Paramètres").Select
End Sub
merci pour ton aide
JVV