OVH Cloud OVH Cloud

Bloquer le déffillement de la feuille

7 réponses
Avatar
Guy72
Bonjour à tous
Je m'explique :
La page de mon écran comprend les cellules de A1 à BQ50.
Est il possible d'empêcher l'utilisateur d'aller au-delà de ce cadre de
cellules ?
J'ai déjà supprimer dès le départ les onglés et les barres de défilement.
Cordialement
Guy

7 réponses

Avatar
Daniel
Bonjour.
ActiveSheet.ScrollArea = "A1:BQ50"
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%
Bonjour à tous
Je m'explique :
La page de mon écran comprend les cellules de A1 à BQ50.
Est il possible d'empêcher l'utilisateur d'aller au-delà de ce cadre de
cellules ?
J'ai déjà supprimer dès le départ les onglés et les barres de défilement.
Cordialement
Guy



Avatar
Elliac
Bonjour,

Clic droit sur l'onglet de feuille et coller ce code :

Private Sub Worksheet_Activate()
ActiveSheet.ScrollArea = "A1:BQ50"
End Sub

Camille

"Guy72" wrote:

Bonjour à tous
Je m'explique :
La page de mon écran comprend les cellules de A1 à BQ50.
Est il possible d'empêcher l'utilisateur d'aller au-delà de ce cadre de
cellules ?
J'ai déjà supprimer dès le départ les onglés et les barres de défilement.
Cordialement
Guy





Avatar
Guy72
Bonjour
Tout d'abord, merci de me répondre.
Mais je voudrais avoir ou je met la fonction ?
J'ai essayé dans la feuille, dans ThisWorkbook, et dans la macro Auto Open.
Dans les trois cas sans effet, je peux toujours déplacer ma sélection sur
les cotés, je suppose que se doit pas être là ?
Cordialement
Guy

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

Bonjour.
ActiveSheet.ScrollArea = "A1:BQ50"
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%
Bonjour à tous
Je m'explique :
La page de mon écran comprend les cellules de A1 à BQ50.
Est il possible d'empêcher l'utilisateur d'aller au-delà de ce cadre de
cellules ?
J'ai déjà supprimer dès le départ les onglés et les barres de
défilement.
Cordialement
Guy







Avatar
Daniel
A l'ouverture du classeur (dans thisworkbook) :

Private Sub Workbook_Open()
Sheets(1).ScrollArea = "A1:BQ50"
End Sub

Daniel
"Guy72" a écrit dans le message de news:

Bonjour
Tout d'abord, merci de me répondre.
Mais je voudrais avoir ou je met la fonction ?
J'ai essayé dans la feuille, dans ThisWorkbook, et dans la macro Auto
Open.
Dans les trois cas sans effet, je peux toujours déplacer ma sélection sur
les cotés, je suppose que se doit pas être là ?
Cordialement
Guy

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

Bonjour.
ActiveSheet.ScrollArea = "A1:BQ50"
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%
Bonjour à tous
Je m'explique :
La page de mon écran comprend les cellules de A1 à BQ50.
Est il possible d'empêcher l'utilisateur d'aller au-delà de ce cadre de
cellules ?
J'ai déjà supprimer dès le départ les onglés et les barres de
défilement.
Cordialement
Guy











Avatar
Patrick BASTARD
Bonjour, *Guy72*

Dans VBA (Alt + F11), puis sélectionner la feuille concernée.

Dans la fenêtre Propriétés (F4 pour afficher cette fenêtre) de la feuille
concernée,
Face à la propriété ScrollArea : $A$1:$BQ$50

Cela te convient-il ?

--
Bien amicordialement,
P. Bastard


Bonjour à tous
Je m'explique :
La page de mon écran comprend les cellules de A1 à BQ50.
Est il possible d'empêcher l'utilisateur d'aller au-delà de ce cadre
de cellules ?
J'ai déjà supprimer dès le départ les onglés et les barres de
défilement. Cordialement
Guy


Avatar
Guy72
OK et merci de ta réponse
Cordialement
Guy

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

Bonjour,

Clic droit sur l'onglet de feuille et coller ce code :

Private Sub Worksheet_Activate()
ActiveSheet.ScrollArea = "A1:BQ50"
End Sub

Camille

"Guy72" wrote:

Bonjour à tous
Je m'explique :
La page de mon écran comprend les cellules de A1 à BQ50.
Est il possible d'empêcher l'utilisateur d'aller au-delà de ce cadre de
cellules ?
J'ai déjà supprimer dès le départ les onglés et les barres de
défilement.
Cordialement
Guy







Avatar
Guy72
Bonsoir
ça me vas, merci de ta réponse
Cordialement
Guy

"Patrick BASTARD" a écrit dans le
message de news:
Bonjour, *Guy72*

Dans VBA (Alt + F11), puis sélectionner la feuille concernée.

Dans la fenêtre Propriétés (F4 pour afficher cette fenêtre) de la feuille
concernée,
Face à la propriété ScrollArea : $A$1:$BQ$50

Cela te convient-il ?

--
Bien amicordialement,
P. Bastard


Bonjour à tous
Je m'explique :
La page de mon écran comprend les cellules de A1 à BQ50.
Est il possible d'empêcher l'utilisateur d'aller au-delà de ce cadre
de cellules ?
J'ai déjà supprimer dès le départ les onglés et les barres de
défilement. Cordialement
Guy