Plein écran sur élément concerné sur n'importe quel résolution d'écran

[lechat97]

Bonjour ,

j'ai un petit graphique et j'aurais aimé avoir un affichage plein écran d'une page .
Je pense que cela est possible avec des macros .

Mon problème c'est que j'arrive pas à le mettre en plein écran , quelqu’un peut il m'aider ? J'ai mis le fichier en pièce jointe ?

Cordialement.

 

[Modeste geedee]

Re : Plein écran sur élément concerné sur n'importe quel résolution d'écran

Bonsour®

la zone dite utile visuellement n'est pas précisée...
la zone d'impression n'est pas explicitement définie...

dans ce cas l'enregistreur de macro peut etre trés utile 😎

Sub Macro1()
Dim rep
    Application.DisplayFullScreen = True
    Range("A1:S1").Select
    ActiveWindow.Zoom = True
    MsgBox "ceci est Vue plein écran", vbInformation
    rep = MsgBox("Vue document entier ", vbQuestion + vbYesNo)
    Range("$A$1:$S$50").Select
    ActiveWindow.Zoom = True
    rep = MsgBox("vue avant impression", vbQuestion + vbYesNo)
    If rep = vbYes Then
    ActiveSheet.PageSetup.PrintArea = "$A$1:$S$50"
    ActiveSheet.PageSetup.FitToPagesWide = 1
    Application.DisplayFullScreen = False
    ActiveWindow.SelectedSheets.PrintPreview
    End If
    Range("A1:S1").Select
    ActiveWindow.Zoom = True
End Sub

 

[lechat97]

Re : Plein écran sur élément concerné sur n'importe quel résolution d'écran

Bonjour Modeste geedee ,
Merci pour ton code je l'est essayé mais le problème c'est que je ne vois pas toute ma page car si vous voulez le but
c'est que sur n'importe quel écran l'utilisateur ouvre le fichier et ma page s'ouvre en plein écran .
Pouvant éventuellement cliquez sur les paramètres de cette feuille excel .
Est ce possible?

 

[GeoTrouvePas]

Re : Plein écran sur élément concerné sur n'importe quel résolution d'écran

Bonjour lechat, Modeste,

Personnellement, j'ai pour habitude de sélectionner la largeur de ma feuille et à faire un zoom personnalisé comme ceci :

    ActiveSheet.Range("A1:N1").Select
    ActiveWindow.Zoom = True

Edit : "A1:N1" représente la plage de cellule que je veux afficher sur toute la largeur de mon écran.

 

[Modeste geedee]

Re : Plein écran sur élément concerné sur n'importe quel résolution d'écran

Bonsour®

Merci pour ton code je l'est essayé mais le problème c'est que je ne vois pas toute ma page car si vous voulez le but
c'est que sur n'importe quel écran l'utilisateur ouvre le fichier et ma page s'ouvre en plein écran .
Pouvant éventuellement cliquez sur les paramètres de cette feuille excel .
Est ce possible?

comme le souligne geotrouvepas,
il faut adapter la plage souhaitée :
Range("A1:S1").Select
ActiveWindow.Zoom = True



c'est plein écran (masque les barres d'outils et menu)

Application.DisplayFullScreen = True

ou bien
c'est taille maxi (avec barre d'outils et menu ) ????
dans ce cas c'est :

ActiveWindow.WindowState = xlMaximized

 

[lechat97]

Re : Plein écran sur élément concerné sur n'importe quel résolution d'écran

Ok donc ont ne peut pas avoir tout le document qui tiens sur la totalité de l'écran ?

 

[GeoTrouvePas]

Re : Plein écran sur élément concerné sur n'importe quel résolution d'écran

Comme vient de l'expliquer Modeste, il te faut :
- Maximiser ta fenêtre
- Passer en mode plein écran
- Utiliser le zoom personnalisé

La seule chose qu'Excel ne peut pas faire c'est d'agrandir la largeur et la hauteur dans des proportions différentes.

Donc si tu dimensionnes préalablement ta feuille au format 16/10ème (ou 4/3 suivant ton écran), tu obtiendras à peu de chose près un document en plein écran. Il ne devrait rester que le cadre de la fenêtre.

Testes les solutions que l'on vient de te donner et tu verras bien si le résultat te convient.

 

[Modeste geedee]

Re : Plein écran sur élément concerné sur n'importe quel résolution d'écran

Bonsour®

Ok donc ont ne peut pas avoir tout le document qui tiens sur la totalité de l'écran ?

😕 il faut adapter la plage souhaitée !!!!

Range("Reference tout le document").Select
ActiveWindow.Zoom = True

 

[lechat97]

Re : Plein écran sur élément concerné sur n'importe quel résolution d'écran

ok ça fonctionne mais j'ai toujours une partie à droite de colonnes vierge appartenant à une autre page .
Comment faire pour avoir que ma page au milieu voir le document que j'ai joint dans mon 1er poste .
Et avec les codes qu'on m'a fournit est ce que ce paramètre s'appliquera pour n'importe quel utilisateur possédant un écran de différentes tailles ?

 

[Modeste geedee]

Re : Plein écran sur élément concerné sur n'importe quel résolution d'écran

Bonsour®

ok ça fonctionne mais j'ai toujours une partie à droite de colonnes vierge appartenant à une autre page .
Comment faire pour avoir que ma page au milieu voir le document que j'ai joint dans mon 1er poste .
Et avec les codes qu'on m'a fournit est ce que ce paramètre s'appliquera pour n'importe quel utilisateur possédant un écran de différentes tailles ?

lire et comprendre les réponses précédentes :

La seule chose qu'Excel ne peut pas faire c'est d'agrandir la largeur et la hauteur dans des proportions différentes.

Donc si tu dimensionnes préalablement ta feuille au format 16/10ème (ou 4/3 suivant ton écran), tu obtiendras à peu de chose près un document en plein écran. Il ne devrait rester que le cadre de la fenêtre.

😎
il faut vivre dangereusement ... fait des essais !!

SGDG ...🙄

 

[lechat97]

Re : Plein écran sur élément concerné sur n'importe quel résolution d'écran

C'est clair mais bon le fichier passera de mains à mains donc je voulais quelques choses qui s'adapte à l'écran des différentes personnes.

 

[GeoTrouvePas]

Re : Plein écran sur élément concerné sur n'importe quel résolution d'écran

Je suis actuellement sur la réalisation d'un énorme classeur qui devrait passer de main en main sur des configurations très différentes qui vont du PC portable en 15" au grand écran fixe de 24".

Pour assurer une présentation très "propre", il faudrait que tu commences par :
- ne mettre qu'une seule page par onglet (cela évitera que 2 pages soient affichées en même temps)
- masquer les colonnes vierge à la droite de ta page
- place ce code dans le module de chaque feuille :

Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    ActiveSheet.Range("A1:AA1").Select
    ActiveWindow.Zoom = True
    Application.ScreenUpdating = True
End Sub

en prenant soin d'adapter la plage "A1:AA1" à chacune de tes pages.

Avec tout ça, tu es sûre d'obtenir une belle présentation.