Excel-adapter taille du classeur à l'écran

Excel-adapter taille du classeur à l'écran - Logiciels - Windows & Software

Marsh Posté le 26-10-2008 à 15:26:28    

Bonjour à tous,
 
Je suis débutant en excel et réalise en ce moment un reporting dans le cadre de mes études.
 
Mon classeur est rempli de macro en tous genres donc j'étais plutôt content de moi, tout roulait bien mais j'ai eu la désarébale surprise ne lançant le reporting sur un autre ordinateur que l emien que les pages n'étaient plus dimensionnées de la même manière (images, texte, et autres tableaux rognées et de fait peu pratiques).
A moins que ls utilisateurs s'amusent à redimensionner mon reporting à chaque fois en fonction de leur ordinateur, je ne vois pas de solutions ...
 
Help : Comment est-ce que je peux faire ? J'ai essayé :
ActiveWindow.Zoom = True
Mais dès que l'on clique sur une cellule, la taille de l'écran se réajuste sur la cellule donc ce n'est pas une solution envisageable.
Quelqu'un pour relever le challenge ?
A+
 

Reply

Marsh Posté le 26-10-2008 à 15:26:28   

Reply

Marsh Posté le 26-10-2008 à 16:42:43    

Bonsoir,
à première vue tu as placé : ActiveWindow.Zoom = True dans "selection_change"
 
Place le dans "activate"  et fais un range("a1:z43" ).select si c'est la zone que tu veux voir affichée avant la ActiveWindow.Zoom = True
 
 
 
 
le ActiveWindow.Zoom = True agit sur la partie sélectionnée

Message cité 1 fois
Message édité par seniorpapou le 26-10-2008 à 16:43:31
Reply

Marsh Posté le 26-10-2008 à 17:24:18    

seniorpapou a écrit :

Bonsoir,
à première vue tu as placé : ActiveWindow.Zoom = True dans "selection_change"
 
Place le dans "activate"  et fais un range("a1:z43" ).select si c'est la zone que tu veux voir affichée avant la ActiveWindow.Zoom = True
 
 
 
 
le ActiveWindow.Zoom = True agit sur la partie sélectionnée


 
 
Ta technique fonctionne, 1000 fois merci !
En revanche, il y a un autre problème qui apparaît, c'est purement esthétique.
 
Excel me fait apparaître en surbrillance (donc couleur bleue) la zone d'affichage que j'ai sélectionné dans le range.
Donc du coup au lieu d'avoir un fond blanc comme c'était le cas intialement, j'ai un fond bleu qui fait ressortir mes images à fond blanc ... aurais-tu une solution pour ce dernier problème ?  
 
Encore merci
A bientôt

Reply

Marsh Posté le 26-10-2008 à 17:42:46    

Bonsoir,
après le : ActiveWindow.Zoom = True  
tu écris range("a1" ).select

Reply

Marsh Posté le 26-10-2008 à 18:15:32    

seniorpapou a écrit :

Bonsoir,
après le : ActiveWindow.Zoom = True  
tu écris range("a1" ).select


 
 
Et ça fonctionne encore, merci Seniorpapou pour ton expertise et ta rapidité  
 
@ Bientôt

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed