XL 2019 Scroll area ne fonctionne pas

[pat66]

Bonjour le forum,

J'ai un problème avec cette macro qui ne limite pas le défilement vertical à la ligne 42 comme demandé.
Quelqu'un aurait il la gentillesse de me dire ce qui colle pas dans cette macro ?

merci et bonne journée

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
 Range("A1:P20").Select ' pour centrer l'affichage
     ActiveWindow.Zoom = True
     ScrollArea = "A1:O42"  ' pour limiter le scrolling vertical
     Range("G26").Select
 End Sub

 

[cp4]

Bonjour le forum,

J'ai un problème avec cette macro qui ne limite pas le défilement vertical à la ligne 42 comme demandé.
Quelqu'un aurait il la gentillesse de me dire ce qui colle pas dans cette macro ?

merci et bonne journée

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
 Range("A1:P20").Select ' pour centrer l'affichage
     ActiveWindow.Zoom = True
     ScrollArea = "A1:O42"  ' pour limiter le scrolling vertical
     Range("G26").Select
 End Sub

Bonjour,
Au lieu de Range("G26").select
Essaie ceci

Application.Goto Range("A1"), True 'ou bien met G26 au lieu de A1

A+

 

[pat66]

re,

j'ai testé mais cela ne fonctionne toujours pas, je dois préciser aussi que la feuille est protégée peut être cela a une incidence sur la macro ?

 

[job75]

Bonjour pat66, cp4,

Le code du post #1 fonctionne très bien, que la feuille soit protégée ou non.

Mais il s'exécute seulement quand la feuille est activée.

Pour qu'il s'exécute à l'ouverture du fichier il faut le mettre dans la Workbook_Open du ThisWorkbook.

A+

 

[cp4]

re,

j'ai testé mais cela ne fonctionne toujours pas, je dois préciser aussi que la feuille est protégée peut être cela a une incidence sur la macro ?

Sans fichier, je ne rien te dire. Cependant, fait un essai chez-toi en déprotégeant la feuille par code:
Sheets("nomfeuille").unprotect mot_de_passe

edit: Bonjour Job75😉

 

[pat66]

bonjour Job75,

oui j'en suis conscient et je souhaite que scroll area s'applique a chaque fois que je reviens sur la feuille

et effectivement la déprotection n'a aucune influence sur le résultat

cdt

 

[pat66]

re,

j'ai testé avec Workbook_Open du ThisWorkbook, cela ne fonctionne pas non plus

cdt

 

[job75]

Supprimez la macro Worksheet_Activate et placez ce code dans ThisWorkbook :

Private Sub Workbook_Open()
Workbook_SheetActivate ActiveSheet
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name <> "Feuil1" Then Exit Sub 'nom à adapter
Application.ScreenUpdating = False
Range("A1:P20").Select ' pour centrer l'affichage
ActiveWindow.Zoom = True
ActiveSheet.ScrollArea = "A1:O42"  ' pour limiter le scrolling vertical
Range("G26").Select
End Sub

Chez moi pas de problème.

 

[pat66]

Bonjour à tous,

Job75, j'ai testé votre macro du post #8 mais rien à faire, c'est curieux et anormal je dois avoir une macro qui interfère, je vais donc revoir entièrement mon code et reviens vers vous pour vous tenir informé

merci