Figer un affichage ?

[chico]

Bonjour,

Je souhaite figer un affichage sous excel 2007, est-ce possible ?

=> J'entend par là de n'afficher sur l'écran que la partie qui intéresse l'utilisateur, qui ne peut donc pas scroller horizontalement ou verticalement -sauf si son écran est trop petit ou si la zone visible est plus grande que la taille de l'écran-
=> Ceci de manière à éviter de scroller inutilement vers les colonnes vides à droite et sous la zone de saisie.

Merci pour vos réponses

 

[JCGL]

Re : Figer un affichage ?

Bonjour à tous,

Pas suffisamment clair pour moi

En faisant un zoom adapté à une plage ?

A + à tous

Edition : Salut Patrick... Joli... Tant pour la solution que pour la compréhension de la demande.

 

[Victor21]

Re : Figer un affichage ?

Bonjour chico, JC

Alt+F11 pour accéder au projet VBA de la feuille concernée, et dans la fenêtre propriétés, entrer l'adresse de la zone concernée en face de ScrollArea du type : $A$1:$N$37.

 

[chico]

Re : Figer un affichage ?

Merci pour votre retour, désolé si je n'ai pas été clair, je vais prendre un exemple concret :
- je crée un formulaire dans la zone A1:N50 ;

- il sera utilisé par des tiers et doit être le plus simple possible en n'affichant que l'essentiel (j'ai donc épuré l'écran en masquant le quadrillage et les en-têtes, ...)

- en ce sens, je souhaite aussi éviter que l'utilisateur ne puisse déplacer son curseur au-delà de la colonne N et sous la ligne 50, ni utiliser les barres de défilement verticales et horizontales pour aller au-delà de la colonne N et sous la ligne 50 ;

Je pensais masquer les barres de défilement, mais si jamais l'utilisateur possédait un petit écran (qui affiche les colonnes jusqu'à H et les lignes jusqu'à 40), il ne pourra pas accéder à la cellule L49 par exemple.

J'espère avoir été plus clair... Avez-vous une solution ?

En vous remerciant...

 

[chico]

Re : Figer un affichage ?

Désolé, vous aviez posté pendant que je rédigeait... Merci pour votre retour, je vais essayer votre solution !

 

[chico]

Re : Figer un affichage ?

Alt+F11 pour accéder au projet VBA de la feuille concernée, et dans la fenêtre propriétés, entrer l'adresse de la zone concernée en face de ScrollArea du type : $A$1:$N$37.

ça fonctionne parfaitement !!!! Un grand merci !!!

Bien cordialement

 

[chris]

Re : Figer un affichage ?

Bonjour

Cela ne semble pas conservé après enregistrement, fermeture, réouverture tant en xlsx qu'xlsm ou xls.

Avez-vous le même résultat ?

 

[Victor21]

Re : Figer un affichage ?

Re, chris

Excel 2003 : la propriété disparait effectivement à la réouverture.
Solution : la déclarer lors du Workbook_Open() ...

 

[chico]

Re : Figer un affichage ?

Solution : la déclarer lors du Workbook_Open() ...

Bonjour, il est vrai que ça n'a pas sauvegardé non plus avec Excel 2007...

Par contre, je ne comprend pas votre solution ! Que faut-il faire concrètement ?

Merci !

 

[safety147]

Re : Figer un affichage ?

Bonjour Chico,

Je pense que Victor21 veux dire de mettre le code dans "ThisWorkbook" avec le code suivant :

Private Sub Workbook_Open()
"ici ton code"
End Sub

Cela déclenchera la macro à l'ouverture de ton fichier.

A+

 

[Victor21]

Re : Figer un affichage ?

Bonjour,

Alt+F11 pour accéder à l'éditeur VBA
Dans le module de ThisWorkbook :

Private Sub Workbook_Open()
Worksheets("Lafeuille").ScrollArea = "a1:n37"
End Sub

Fermez le fichier, rouvrez-le en acceptant les macros, et dites-nous.

 

[chico]

Re : Figer un affichage ?

Fermez le fichier, rouvrez-le en acceptant les macros, et dites-nous.

C'est fait et ça marche !!! Merci !!!

Et si je prévois de mettre en place la manip sur plusieurs pages, dois-je écrire comme ceci ?

Private Sub Workbook_Open()
Worksheets("Lafeuille1").ScrollArea = "a1:n37"
Worksheets("Lafeuille2").ScrollArea = "a1:f5"
Worksheets("Lafeuille3").ScrollArea = "a1:j45"
End Sub

 

[Victor21]

Re : Figer un affichage ?

Re,

Peut-être pourriez-vous essayer