XL 2010 Autoriser le défilement des lignes que j’jusqu’à une ligne définie

M12

XLDnaute Accro

• 28 Août 2021

• #2

Bonjour,
Trés simple
tu te positionnes sur la ligne 101
touche CTRL & MAJ et flèche du bas (qui va sélectionner toutes les lignes jusqu'en bas)
clic Droit et MASQUER
Idem pour les colonnes
Sélection de la colonne T
touche CTRL & MAJ et flèche de droite
Clic Droit et MASQUER

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 28 Août 2021

• #3

Bonjour, @jeanmi , @M12 .

Un clic sur Alt+F11, puis :

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 28 Août 2021

• #4

Bonjour
@MJ12 oui sauf que ça ne bloque pas les scrolls on peut donc continuer a descendre et ne plus rien voir

VB:

Sub regscroll()
ActiveSheet.ScrollArea = "A1:A103"
End Sub

attention tout de meme
selon comment dans tes parametres la scroll est réglée
par exemple chez moi un coup de molette descend de 3 lignes si je met 101 ca me bloque a 100 il faut que je mette 103

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 28 Août 2021

• #5

Bonjour à tous,
@patricktoulon, lorsque je place les valeurs dans la feuille comme indiqué par @Victor21, ça bloque tout aussi bien que si ces valeurs étaient placées par VBA.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 28 Août 2021

• #6

re
Bonjour @Dudu2
oui c'est pareil on c'est simplement croisé avec @Victor21

 

Vote positif 0 Vote négatif

jeanmi

XLDnaute Occasionnel

• 28 Août 2021

• #7

Bonjour à tous,

Merci à @Victor21 et @patricktoulon pour les solutions.

J'ai opté pour la solution de @Victor21 qui rempli mon besoin, par contre pour le néophyte que je suis, je n'ai pas trouvé rapidement comment pratiquer.

il faut en plus du alt+F11, qui ouvre la fenêtre Visual Basic , faire F4 pour avoir la bonne fenêtre, puis sélectionner l'onglet par catégorie et dans ScrollAera mettre la valeur souhaité.

Cordialement

 

Vote positif 0 Vote négatif

jeanmi

XLDnaute Occasionnel

• 28 Août 2021

• #8

Re bonjour,

Me viens une question supplémentaire :

Pour le blocage le ScrollArea la réponse de @patricktoulon est :

VB:

Sub regscroll()
ActiveSheet.ScrollArea = "A1:A103"
End Sub

Est pour l'enlever ?

Cordialement

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 28 Août 2021

• #9

jeanmi à dit:

Re bonjour,

Me viens une question supplémentaire :

Pour le blocage le ScrollArea la réponse de @patricktoulon est :

VB:

Sub regscroll()
ActiveSheet.ScrollArea = "A1:A103"
End Sub

Est pour l'enlever ?

Cordialement

Cliquez pour agrandir...

Re,

Personnellement, j'essaierais :

VB:

Sub regscroll()
ActiveSheet.ScrollArea = ""
End Sub

 

Vote positif 0 Vote négatif

jeanmi

XLDnaute Occasionnel

• 28 Août 2021

• #10

Bonjour,

Merci pour cette réponse.

Question : quelle est la différence entre les deux codes ?

cordialement

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 28 Août 2021

• #11

ben c'est simple
scrollarea="" ca veut dire que ça annule le scrollarea
si tu met une address ça réglera le scroll au lignes et colonnes de l'address c'est tout

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 28 Août 2021

• #12

jeanmi à dit:

Question : quelle est la différence entre les deux codes ?

Cliquez pour agrandir...

La différence ?
[ActiveSheet.ScrollArea = "A1:A103"] - [A1:A103] = [ActiveSheet.ScrollArea = ""]
😉

 

Vote positif 0 Vote négatif

jeanmi

XLDnaute Occasionnel

• 28 Août 2021

• #13

Re bonjour a tous,

J'ai constater que si l'information est mise en place comme #3, si l'on renomme le fichier l'information est perdue.

Avec la macro, il faut faire quoi, pour quelle soit prise en compte à l'ouverture du fichier ?

Cordialement

 

Vote positif 0 Vote négatif