XL 2016 VBA x feuilles en arrières

abouttheweather · 6 Février 2017

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 · 6 Février 2017

Bonjour,

Code:

Sheets("Nom de la feuille").Activate

mutzik · 6 Février 2017

bonjour

pourquoi 6 ?

abouttheweather · 18 Février 2017

mutzik à dit:
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 · 18 Février 2017

Bonjour à tous,

Si c'est la dernière feuille :

VB:

Sheets(Sheets.Count - 6).Activate

A+ à tous

Modeste geedee · 18 Février 2017

bonsour®

abouttheweather à dit:
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 · 18 Février 2017

Bonsoir à tous,

VB:

Sheets(ActiveSheet.Index - 6).Activate

Modeste geedee · 19 Février 2017

Modeste geedee à dit:
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

XL 2016 VBA x feuilles en arrières

abouttheweather

XLDnaute Nouveau

M12

XLDnaute Accro

mutzik

XLDnaute Barbatruc

abouttheweather

XLDnaute Nouveau

JCGL

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

Discussions similaires