pas de Défilement

[luc]

Bonjour,
je n'arrive pas a trouvé une astuce qui montre comment empecher le défilement de la feuille horizontalement et verticalement.
Merci.

 

[Evelynetfrancois]

BONSOIR luc

mis dans le module de la feuil1

Private Sub Worksheet_Activate()
ActiveSheet.ScrollArea = "a1:s30"
End Sub

dés que tu actives l'onglet feuil1
la page se bloque , seule les cells a1;s30 restent accessibles

bonne soirée
EetF

 

[myDearFriend]

Bonsoir Luc,


Dans l'éditeur VBA (ALT+F11), tu mets les lignes de code suivantes dans le module de code de l'objet ThisWorkbook :

Private Sub Workbook_Open()
Sheets(1).ScrollArea = "$A$1:$L$32"
End Sub


Au prochain lancement du classeur, tu ne pourras plus "scroller" la feuille au delà de cette plage définie et tu ne pourras plus sélectionner les cellules en dehors de cette plage non plus.


Cordialement,
Didier_mDF

 

[myDearFriend]

Oups,

Désolé Evelynetfrancois, je ne t'avais pas vu...


Cordialement,
Didier_mDF

 

[Evelynetfrancois]

mais y a po de mal myDearFriend
bonne soirée
EetF

 

[luc]

Merci Evelynetfrancois et myDearFriend, une autre question comment appliquer cette astuce a tout le classeur
Merci.

 

[myDearFriend]

re- Luc,


Private Sub Workbook_Open()
Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Sheets
Feuille .ScrollArea = "$A$1:$L$32"
Next Feuille
End Sub


Cordialement,
Didier_mDF