Plein ecran

[Christophe]

Bonjour forum, bonjour a tous


Dites moi quand je fais un plein ecran, ya t'il moyen de centre ma page??

Merci d'avance

 

[@+Thierry]

bon on se fait un duo permanent toi et moi aujourd'hui...

moi ce qui me chifonne dans ta question c'est que je ne sais pas de quoi tu parles ?

centrer ta page ? en fullscreen, donc rien à voir avec l'impression.... Donc j'en conclus que tu as un soucis sur une diffusion sur plusieurs WorkStations ayant différentes résolutions ?

mais avant de te pondre un code et qu'après tu me dises euh oui c'est très bien mais ce n'est pas ce que je voulais... PLease Option Explicit ! (lol)

@+Thierry

 

[Christophe]

Bonsoir forum et Thierry

Et oui, un duo, mais je ne suis pas le seul christophe, voila pourquoi tu crois souvent me parler beaucoup, bon je ne dis pas, tu m'as déja pas mal répondu..


Bon essayons d'être clair, j'ai une page d'accueil sur mon programme excel, je la mets en pleinecran pour ne plus voir tous le menu et icone,...

Mais voila que avant ma page accueil etait +-centré et que maintenant elle se retrouve vers le haut a gauche

J'espere que tu vois ce que je veux dire.

Merci d'avance

 

[@+Thierry]

Oups Pardon pour la Confusion des Christophes alors Bonjour à ceux à qui je ne l'ai pas fait !!!

Ben oriente toi vers une soluce zoom je pense...
par exemple dans le private module this workbook_open

Application.DisplayFullScreen = True
ActiveWindow.Zoom = 125

c'est le plus simple...

sinon il faut redessinner un peu la page d'acceuil...

@+Thierry

 

[@Christophe@]

bonsoir a tous


Thanks Thierry

See you

 

[Djar]

Salut Christophe ,

Essaye ceci donner par Ti sur un ancien forum

<http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=11540&t=11354>

Sub CentreEcran()
'Ti 23-12-02
Dim Ligne1 As Long, Col1 As Long
Dim LigneFin As Long, ColFin As Long
SendKeys "{SCROLLLOCK}{HOME}", True
Ligne1 = ActiveCell.Row
Col1 = ActiveCell.Column
SendKeys "{SCROLLLOCK}{END}", True
LigneFin = ActiveCell.Row
ColFin = ActiveCell.Column
Application.Goto Cells(Ligne1 + ((LigneFin - Ligne1) \ 2), _
Col1 + ((ColFin - Col1) \ 2)), False
End Sub

En esperant t'avoir aider

Mytå º¿º