Discussion :

[retraite83]

Bonjour

je constate que certains utilisateurs sont perdus lorsqu'ils ont décalé leur feuille à droite ou vers le bas avec l'ascenseur ou le curseur

j'ai donc cherché une solution simple pour afficher les feuilles comme elles sont à l'origine, j'ai essayé plusieurs solutions et 2 solutions me semblent mieux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_Activate()
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
End Sub

Cette solution me conviendrait bien car standard pour toutes les feuilles visibles à l'utilisateur mais je constate que si la ligne 1 est bien recadrée la colonne 1 quand à elle ne se recadre pas systématiquement

Autre solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Worksheet_Activate()
ActiveSheet.Unprotect Password:=mp
Application.Goto Reference:=ActiveSheet.Range("A1"), Scroll:=True
ActiveSheet.Protect Password:=mp, DrawingObjects:=False, Contents:=True, Scenarios:=True
End Sub

Cette solution marche bien mais à l'inconvénient de devoir déprotéger et reprotéger la feuille avec le risque d'erreur sur les paramètres

La 1ere solution me conviendrai mieux si je comprenai pourquoi elle ne recadre pas sur la colonne 1

Avez-vous une autre solution ?

[retraite83]

En fait j'ai compris

la solution 1 marche si toute la ligne 1 ou toute la colonne 1 est hors de l'écran

S'il reste "un bout" de la ligne ou de la colonne visible le recadrage ne se fait pas

Donc la solution 2 recadre mieux

[Franc]

Salut,
Et si tu ajoutais simplement Range("A1").Select à ta première solution au début de la Sub ?

[retraite83]

Salut Franc

oui ça marche à condition de sélectionner ensuite la 1ere cellule active de l'écran sinon le curseur reste en A1

[Franc]

Tu veux dire revenir à la cellule qui était active avant le scroll ?

[retraite83]

A la 1ere cellule déprotégée de la feuille, pour la saisie de l'utilisateur.

Par exemple si une seule cellule déprotégée dans la feuille en C5, le curseur est en A1 avec Range("A1").Select dans la Sub bien que la feuille soit protégée

Je trouve cela curieux, je n'avais jamais remarqué

[Franc]

je comprends pas bien, ta feuille est protégée sauf C5 et c'est là que tu veux revenir ou tu veux trouver la première cellule de ta feuille qui n'est pas protégée ?

[retraite83]

oui c'est ça ma feuille est protégée sauf C5 et c'est là que je veux revenir

donc j'ai ajouté range("C5").select

[Franc]

C'est donc résolu ?

[retraite83]

Pas complétement

je m'explique. Si la colonne A n'est pas totalement hors de l'écran (encore visible en partie) alors le cadrage ne se fait pas

C'est du détail mais j'aimerai bien trouver une solution complète

[Franc]

Tu peux fournir la macro complète avec l'ajout que tu as fait ?

[retraite83]

J'ai compris
j 'ai ajouté le code dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Worksheet_Activate()

mais la feuille a aussi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Worksheet_Change(ByVal Target As Range)

je dois aussi mettre le code dans cette macro de la feuille