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

Modeste

XLDnaute Barbatruc

• 17 Juin 2012

• #2

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

VB:

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

Edit: salut job 🙂

 

Dernière édition: 17 Juin 2012

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Juin 2012

• #3

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 :

Code:

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

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

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Juin 2012

• #4

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 :

Code:

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+

 

Vote positif 0 Vote négatif

M

michir

XLDnaute Occasionnel

• 17 Juin 2012

• #5

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

 

Vote positif 0 Vote négatif

M

michir

XLDnaute Occasionnel

• 17 Juin 2012

• #6

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Juin 2012

• #7

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

Re,

michir à dit:

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

Cliquez pour agrandir...

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

michir à dit:

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

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif