Workbook_SheetSelectionChange ScrollArea et UsedRange

Bonjour à tous :D

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

Code:

---

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

Bonjour,

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

Code:

---

1 2 3 4 5

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

---

Amicalement
Dan

Bonjour Nad-Dan

Effectivement çà marche avec ton code :yaisse2:

Citation:

---

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

---

et avec celui-ci

Code:

---

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 :D

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

@ + modus57