pas de Défilement

E

Evelynetfrancois

Guest

• 12 Octobre 2004

• #2

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

 

Vote positif 0 Vote négatif

M

myDearFriend

Guest

• 12 Octobre 2004

• #3

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

 

Vote positif 0 Vote négatif

M

myDearFriend

Guest

• 12 Octobre 2004

• #4

Oups,

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


Cordialement,
Didier_mDF

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

Guest

• 12 Octobre 2004

• #5

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

 

Vote positif 0 Vote négatif

L

luc

Guest

• 12 Octobre 2004

• #6

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

 

Vote positif 0 Vote négatif

M

myDearFriend

Guest

• 13 Octobre 2004

• #7

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

 

Vote positif 0 Vote négatif