Afficher une feuille en obligeant l'affichage d'une cellule définie

[michir]

Bonjour à tous,
Voilà, soit un classeur d'une trentaine de feuilles (dont les 12 mois de l'année)
L'affichage est réglé avec un figer les volets sur B5 par exemple
Je souhaiterais qu'à l'affichage de chaque feuille, la cellule B5 soit sélectionnée et affichée, de manière que la saisie se fasse bien sur la première ligne utile (ligne 5)
Je ne sais si je suis assez clair ?
Merci à tous
Michel

 

[Modeste]

Re : Afficher une feuille en obligeant l'affichage d'une cellule définie

Bonjour michir,

Pour autant que je sache, la seule solution est de travailler par macro. Plus particulièrement, sans doute, avec l'événement "Worksheet_Activate". Si ce doit être le cas pour toutes les feuilles du classeur, l'événement "Workbook_SheetActivate" serait sans doute mieux adapté encore?

Teste ce qui suit dans le code de l'objet Workbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Sh.Range("B5").Activate
End Sub

Edit: salut job 🙂

 

[job75]

Re : Afficher une feuille en obligeant l'affichage d'une cellule définie

Bonjour michir, salut Modeste 🙂

Si toutes les feuilles sont concernées il vaut mieux 2 macros dans ThisWorkbook :

Private Sub Workbook_Activate()
[B5].Select
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
[B5].Select
End Sub

A+

 

[job75]

Re : Afficher une feuille en obligeant l'affichage d'une cellule définie

Re,

Peut-être faut-il sélectionner la 1ère cellule vide dans une plage, alors :

Private Sub Workbook_Activate()
Selectionne
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Selectionne
End Sub

Sub Selectionne()
Dim plage As Range
Set plage = [B5:E65536] 'plage à adapter
IIf(IsEmpty(plage(1)), plage(1), plage.Find("", , xlFormulas, , xlByRows)).Select
End Sub

A+

 

[michir]

Re : Afficher une feuille en obligeant l'affichage d'une cellule définie

Merci à vous deux Modeste et Job75.
J'ai essayé en copiant le code de Job75 dans ThisWorkbook, mais cela ne fonctionne pas
Je dois préciser que j'ai déjà une Private Sub Worbook, cela peut il être un handicap ?
Mes feuilles sont protégées
La macro de job s'excecute-t- elle à chaque ouverture , (dois je fermer et réouvrir) ?
Merci
Michel

 

[michir]

Re : Afficher une feuille en obligeant l'affichage d'une cellule définie

Re,
Je viens de trouver grâce à vous deux
Je recopie dans le module de chaque feuille:
Private Sub Worksheet_Activate()
[B5].Select
End Sub
et cela fonctionne
Merci à vous deux et bon week end (votez bien)
Michel

 

[job75]

Re : Afficher une feuille en obligeant l'affichage d'une cellule définie

Re,

J'ai essayé en copiant le code de Job75 dans ThisWorkbook, mais cela ne fonctionne pas

Persévérez, ce n'est guère compliqué 🙄

Je dois préciser que j'ai déjà une Private Sub Worbook, cela peut il être un handicap ?

Ce n'est pas un handicap, mais sachez qu'il ne peut pas y avoir 2 macros portant le même nom.

Si vous n'y arrivez toujours pas joignez le fichier.

A+