Aller dans une cellule précise si changement d'onglet

[herve80]

Bonjour à tous/toutes,

J'enrage moi-même de la stupidité de ma question, mais voilà :

Soit 6 feuilles d'un classeur Excel 2003 : comment, à chaque changement des 5 premiers onglets (donc pas le 6ième), passer en cellule P6 ?

Je fais un private sub et un sheets(1).select, mais ça ne fonctionne pas !

Merci de me prendre au sérieux...

 

[Pierrot93]

Re : Aller dans une cellule précise si changement d'onglet

Bonjour,

essaye ceci à placer dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <> "nom6èmefeuille" Then Range("P6").Select
End Sub

bonne journée
@+

 

[herve80]

Re : Aller dans une cellule précise si changement d'onglet

Bonjour Pierrot,

Merci.
C'est bon : ça fonctionne, à part la dernière feuille où il faut mettre le nom de cette feuille-là, nom qui change tous les mois.

Bonne journée

 

[Pierrot93]

Re : Aller dans une cellule précise si changement d'onglet

Re,

si c'est bien toujours la dernière feuille qui n'est pas concernée :

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Index <> Sheets.Count Then Range("P6").Select
End Sub