OVH Cloud OVH Cloud

empécher le défilement sur plusieurs feuilles

6 réponses
Avatar
bezo
bonjour,
voila avec un exemple concret de ce que je souhaiterais:
j'ai un classeur de 5 feuilles dont je voudrais empécher le défilement
au-delà de la zone (A1:F20) et ce, pour les feuilles 1,4 et 5.
Je précise que je sais le faire pour la feuille 1 avec une macro que j'ai
trouvée mais
Là où ça se complique, c'est que la procédure pour l'inclure aux autres
feuilles, je ne la connait pas. J'ai bien essayé 2 ou 3 trucs
(malheureusement sans resultat) mais je suis assez limité....voir très limité
pour tout ce qui touche à Visual Basic. Je n'ai pas encore réussi à trouver
un bouquin de VBA qui ne soit pas trop compliqué même si je sais que "c'est
en forgeant qu'on devient forgeron".

merci d'avance pour vos réponses.

6 réponses

Avatar
Patrick BASTARD
Bonjour, *bezo*

Alt+F11 pour atteindre VBA
Sélectionner la feuille concernée dans l'explorateur de projet (Ctrl+R pour
l'afficher si nécessaire)
Aller dans la fenêtre Propriétés (F4 si nécessaire)
Renseigner la propriété ScrollAréa (Du type $A$1:$F$10)
Sinon, la syntaxe dans la macro peut être :
Worksheets (1).ScrollArea ="A1:F10"
Worksheets (4).ScrollAréa =="A1:F10"
...
Cela te convient-il ?

--
Bien amicordialement,
P. Bastard

bonjour,
voila avec un exemple concret de ce que je souhaiterais:
j'ai un classeur de 5 feuilles dont je voudrais empécher le défilement
au-delà de la zone (A1:F20) et ce, pour les feuilles 1,4 et 5.
Je précise que je sais le faire pour la feuille 1 avec une macro que
j'ai trouvée mais
Là où ça se complique, c'est que la procédure pour l'inclure aux
autres feuilles, je ne la connait pas. J'ai bien essayé 2 ou 3 trucs
(malheureusement sans resultat) mais je suis assez limité....voir
très limité pour tout ce qui touche à Visual Basic. Je n'ai pas
encore réussi à trouver un bouquin de VBA qui ne soit pas trop
compliqué même si je sais que "c'est en forgeant qu'on devient
forgeron".

merci d'avance pour vos réponses.


Avatar
lSteph
Bonsoir,
dans le thisworkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.ScrollArea = "a1:f20"
End Sub

'lSteph

"bezo" a écrit dans le message de news:

bonjour,
voila avec un exemple concret de ce que je souhaiterais:
j'ai un classeur de 5 feuilles dont je voudrais empécher le défilement
au-delà de la zone (A1:F20) et ce, pour les feuilles 1,4 et 5.
Je précise que je sais le faire pour la feuille 1 avec une macro que j'ai
trouvée mais
Là où ça se complique, c'est que la procédure pour l'inclure aux autres
feuilles, je ne la connait pas. J'ai bien essayé 2 ou 3 trucs
(malheureusement sans resultat) mais je suis assez limité....voir très
limité
pour tout ce qui touche à Visual Basic. Je n'ai pas encore réussi à
trouver
un bouquin de VBA qui ne soit pas trop compliqué même si je sais que
"c'est
en forgeant qu'on devient forgeron".

merci d'avance pour vos réponses.



Avatar
JB
La question semble curieuse?

Sub auto_open() ' ou Workbook_open
Sheets(1).ScrollArea = "A1:F20"
Sheets(4).ScrollArea = "A1:F20"
Sheets(5).ScrollArea = "A1:F20"
End Sub

JB
Avatar
Brel Patrice
Bonsoir,

Si je comprends bien, vous souhaitez ne voir que les cellules a1:f20 sur ces
différentes feuilles.

Sélectionnez ces différentes feuilles (ctrl + click souris)

Sélectionnez la ligne 21
raccourci clavier: touche "majuscule" + fléche de direction vers le bas

Bouton droit de la souris/Masquer les lignes (sélectionneées )

Idem pour les colonnes

Sélectionnez la colonne G
majuscule (maintenue enfoncée) + end + flèche direction droite

Masquez ces colonnes.

Pour empêcher le défilement:

Outilsoptionsaffichage décochez Barre de défilement vertical

Dégroupez vos fenêtres

En espérant avoir correctement cerné votre problème

Salutations
--
Brel Patrice



bonjour,
voila avec un exemple concret de ce que je souhaiterais:
j'ai un classeur de 5 feuilles dont je voudrais empécher le défilement
au-delà de la zone (A1:F20) et ce, pour les feuilles 1,4 et 5.
Je précise que je sais le faire pour la feuille 1 avec une macro que j'ai
trouvée mais
Là où ça se complique, c'est que la procédure pour l'inclure aux autres
feuilles, je ne la connait pas. J'ai bien essayé 2 ou 3 trucs
(malheureusement sans resultat) mais je suis assez limité....voir très limité
pour tout ce qui touche à Visual Basic. Je n'ai pas encore réussi à trouver
un bouquin de VBA qui ne soit pas trop compliqué même si je sais que "c'est
en forgeant qu'on devient forgeron".

merci d'avance pour vos réponses.



Avatar
lSteph
Re,
En fait mieux vaudrait associer ces deux là:

Private Sub Workbook_Open()
ActiveSheet.ScrollArea = "a1:f20"
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.ScrollArea = "a1:f20"
End Sub

'lSteph

"bezo" a écrit dans le message de news:

bonjour,
voila avec un exemple concret de ce que je souhaiterais:
j'ai un classeur de 5 feuilles dont je voudrais empécher le défilement
au-delà de la zone (A1:F20) et ce, pour les feuilles 1,4 et 5.
Je précise que je sais le faire pour la feuille 1 avec une macro que j'ai
trouvée mais
Là où ça se complique, c'est que la procédure pour l'inclure aux autres
feuilles, je ne la connait pas. J'ai bien essayé 2 ou 3 trucs
(malheureusement sans resultat) mais je suis assez limité....voir très
limité
pour tout ce qui touche à Visual Basic. Je n'ai pas encore réussi à
trouver
un bouquin de VBA qui ne soit pas trop compliqué même si je sais que
"c'est
en forgeant qu'on devient forgeron".

merci d'avance pour vos réponses.



Avatar
bezo
je vous remerci tous. Et dire que c'est tout con comme solution(s)!!!!