XL 2019 Scroll area ne fonctionne pas

pat66 · 27 Février 2023

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

VB:

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 · 27 Février 2023

pat66 à dit:
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

VB:

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

VB:

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

A+

pat66 · 27 Février 2023

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 · 27 Février 2023

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 · 27 Février 2023

pat66 à dit:
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 · 27 Février 2023

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 · 27 Février 2023

re,

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

cdt

job75 · 27 Février 2023

Supprimez la macro Worksheet_Activate et placez ce code dans ThisWorkbook :

VB:

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 · 28 Février 2023

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

XL 2019 Scroll area ne fonctionne pas

pat66

XLDnaute Impliqué

cp4

XLDnaute Barbatruc

pat66

XLDnaute Impliqué

job75

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

pat66

XLDnaute Impliqué

pat66

XLDnaute Impliqué

job75

XLDnaute Barbatruc

pat66

XLDnaute Impliqué

Discussions similaires