Activer + feuille en excel

[jcdudu]

Bonjour
Comment faire en vb excel pour activer plusieur onglet equivalemnt de
onglet 1 shitf onglet de fin en excel
Merci de votre aide

 

[jcdudu]

J'ai oublie de preciser que le nombre de feuilles peut etre aléatoire donc impossible de mettre le nom en dur dans la formule
merci encore

 

[m.lecxe]

salut,
je ne sais pas vraiment si je vais repondre à ta question mais peut etre d'aiguiller.

Sheets(sheets.count) te donne le dernier onglet de ton classeur.
après, est ce que
sheets(1) shift Sheets(sheets.count) je ne sais pas


à tt hasrd
Sub Macro1()
ActiveWindow.NewWindow
Windows.Arrange ArrangeStyle:=xlHorizontal
Windows(ThisWorkbook.Name & ":1").Activate
Sheets(1).Select
Windows(ThisWorkbook.Name & ":2").Activate
Sheets(Sheets.Count).Select
End Sub

@+