Discussion :

[Laye]

Salut a tous,

je voudrais savoir s'il est possible de limiter le nombre de lignes et de colonnes a afficher sur une feuille excel et ne pouvoir se deplacer que dans cet espace.

[alsimbad]

limiter, a ma connaissance non, mais je ne connais pas tout. par contre, il existe des ruses, en général elle ne résistent pas a qui connais excel, mais dans l'ensemble elles suffisent
. par exemple
utiliser le zoum et met du 50% selectionne la celulle en bas a droite(chez moi c'est a peu près Y95 et fais "figer les volets" dans le menu fenetre. reviens ensuite a un zoom de 100% et tu verra le resultat. j'utilise souvent ça associé a une macro qui enleve les menu et barre d'outil.

[Michel_M]

Bonjour,

pour limiter la zone accessible A1:G8 avec VBA

Code :

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

Sheets(1).ScrollArea = "A1:G8"

pour rendre toute la feuille accessible

Code :

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

Sheets(1).ScrollArea = ""

bon WE

[alsimbad]

merci michel, c'est top ça, je connaissais aboluement pas

[Laye]

Merci a tous ca marche ...

[Salahbzr]

Bonjour,

pour limiter la zone accessible A1:G8 avec VBA

Code :

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

Sheets(1).ScrollArea = "A1:G8"

pour rendre toute la feuille accessible

Code :

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

Sheets(1).ScrollArea = ""

bon WE

Est ce que je peux faire ça son VBA?

[Raccourcix]

Bonjour

c'est possible sans code VBA mais pas sans l'éditeur VBA

clic droit sur l'onglet, "visualiser le code"
puis compléter manuellement la ligne ScrollArea par la plage voulu A1:G5 par exemple

Stéphane

[Salahbzr]

Merci baucoup

[deedolith]

Mouais, bof.

Définit une plage de cellule non protégées, et protège ta feuille.
Certes ca ne limite pas l'affichage, mais ca limite les saisies imprévues.
Exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim Wb As Excel.Workbook
Set Wb = ThisWorkbook
 
Dim Ws As Excel.Worksheet
Set Ws = Wb.Worksheets("Feuil1")
 
Dim Rng As Excel.Range
Set Rng = Ws.Range("A1:I10")
Rng.Locked = False
 
Ws.Protect Password:=Password"