Discussion :

[modus57]

Bonjour à tous

Je souhaiterais limiter la zone de déplacements dans toutes les feuilles du classeur

Code :

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

1
2
3
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ActiveSheet.ScrollArea = UsedRange.Address
End Sub

Renvoi
Erreur d’exécution ‘424’
Objet requis

Je sèche sur ce problème, j'ai fait des recherches sur les forums, je ne trouve pas de solution

Pourriez-vous m'apporter une piste svp

Cordialement modus57

[Nad-Dan]

Bonjour,

Tu n'étais pas loin. Essaye plutôt ceci :

Code :

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

1
2
3
4
5
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With ActiveSheet
 .ScrollArea = .UsedRange.Address
End with
End Sub

Amicalement
Dan

[modus57]

Bonjour Nad-Dan

Effectivement çà marche avec ton code

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With ActiveSheet
.ScrollArea = .UsedRange.Address
End with
End Sub

et avec celui-ci

Code :

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

1
2
3
4
5
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With ActiveSheet
 .ScrollArea = .UsedRange.Address
End with
End Sub

Merci beaucoup pour ta réponse

Je teste pour m'assurer que cela fonctionne bien, avant de marquer la discussion comme résolue

@ + modus57