Nommer des plages automatiquement

[Sofiane Boukecha]

Bonjour tout le monde,

j'ai classeur avec plusieurs feuilles, pour distinguer ma zone de recherche je dois nommer des plages sur chaque feuille.
Nom de plage 1 = Nom de la feuille active.
référence = B7:AT170

Nom de plage 2 = "Etat_Lin_" & le numéro du mois de la cellule G5 (ex: si le mois en G5= Aout, je veux avoir le Nom de plage 2 = Etat_lin_08)
référence = B6:AT6

NB: je préfère avoir 2 codes séparés pour chaque Nom

merci à vous tous

 

[Robert]

Bonjour Sofiane, bonjour le forum,

Plage 1 :

Sub Macro1()
ActiveSheet.Range("B7:AT170").Name = ActiveSheet.Name
End Sub

Plage 2 : Que contient G5 :
- une date ?
- du texte ? Le mois en entier ? le mois abrégé ?
le code si c'est une date :

Sub Macro2()
ActiveSheet.Range("B6:AT6").Name = "Etat_Lin_" & Format(Month(Range("G5")), "00")
End Sub

 

[Sofiane Boukecha]

exactement c'est ce que cherche, vos codes fonctionnent très bien. merci beaucoup.
bonne journée