Figer un affichage ?

JCGL

XLDnaute Barbatruc

• 12 Mai 2012

• #2

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.

 

Dernière édition: 12 Mai 2012

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 12 Mai 2012

• #3

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.

 

Vote positif 0 Vote négatif

C

chico

XLDnaute Nouveau

• 12 Mai 2012

• #4

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...

 

Vote positif 0 Vote négatif

C

chico

XLDnaute Nouveau

• 12 Mai 2012

• #5

Re : Figer un affichage ?

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

 

Vote positif 0 Vote négatif

C

chico

XLDnaute Nouveau

• 12 Mai 2012

• #6

Re : Figer un affichage ?

Victor21 à dit:

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.

Cliquez pour agrandir...

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

Bien cordialement

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 12 Mai 2012

• #7

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 ?

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 12 Mai 2012

• #8

Re : Figer un affichage ?

Re, chris 🙂

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

 

Vote positif 0 Vote négatif

C

chico

XLDnaute Nouveau

• 20 Mai 2012

• #9

Re : Figer un affichage ?

Victor21 à dit:

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

Cliquez pour agrandir...

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 !

 

Vote positif 0 Vote négatif

S

safety147

XLDnaute Nouveau

• 20 Mai 2012

• #10

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+

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 20 Mai 2012

• #11

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

C

chico

XLDnaute Nouveau

• 20 Mai 2012

• #12

Re : Figer un affichage ?

Victor21 à dit:

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 21 Mai 2012

• #13

Re : Figer un affichage ?

Re,

Peut-être pourriez-vous essayer 🙂

 

Vote positif 0 Vote négatif