XL 2016 VBA x feuilles en arrières

[abouttheweather]

Bonjour,

Pour aller à la 6ème feuille en arrière de celle active, j'utilise

ActiveSheet.Previous.Activate
ActiveSheet.Previous.Activate
ActiveSheet.Previous.Activate
ActiveSheet.Previous.Activate
ActiveSheet.Previous.Activate
ActiveSheet.Previous.Activate

N'y a-t'il pas moyen d'optimiser ceci ?

Bonne semaine à tous

 

[M12]

Bonjour,

Sheets("Nom de la feuille").Activate

 

[mutzik]

bonjour

pourquoi 6 ?

 

[abouttheweather]

bonjour

pourquoi 6 ?

bonsoir, cela correspond à un besoin : chaque nouveau mois, je dupplique la dernière feuille en l'adaptant un peu
et une macro doit revenir 6 feuilles en arrière ....le nom de la feuille ne sera jamais le même

 

[JCGL]

Bonjour à tous,

Si c'est la dernière feuille :

Sheets(Sheets.Count - 6).Activate

A+ à tous

 

[Modeste geedee]

bonsour®

bonsoir, cela correspond à un besoin : chaque nouveau mois, je dupplique la dernière feuille en l'adaptant un peu
et une macro doit revenir 6 feuilles en arrière ....le nom de la feuille ne sera jamais le même

pourquoi ne pas faire référence au mois dans le nom de feuille ???

 

[mapomme]

Bonsoir à tous,

Sheets(ActiveSheet.Index - 6).Activate

 

[Modeste geedee]

bonsour®
pourquoi ne pas faire référence au mois dans le nom de feuille ???

Sheets("blablaFichier "& Format(Application.EDate(Now, -6), "mmmm-yy") &" blablaSujet").Activate