XL 2021 Taille écran

[Philippe17]

Bonjour,
Serait-il possible d'avoir l'apparence de ma feuille qui s'adapte automatiquement à l'écran ? Le fichier ci-joint est disponible.

Cordialement,

Philippe 😇

 

[piga25]

Bonjour,
avez-vous essayé cela :
Basculer vers l'affichage plein ou normal de l'écran dans Excel

1. Pour passer en mode plein écran, appuyez sur Ctrl+Maj+F1.
2. Pour revenir à l'affichage normal de l'écran, appuyez de nouveau sur Ctrl+Maj+F1 .

 

[Philippe17]

Bonsoir Piga25,
Merci pour la réponse rapide, oui ça fonctionne pour ça, mais ce n'est pas ce que je veux !, c'est savoir si mes colonnes puissent s'adapter automatiquement à tous écrans
Cordialement,
Philippe 😇

 

[piga25]

Re,
peut être avec cela
à placer dans ThisWorkbook

Sub workbook_open()
    ActiveWorkbook.Windows.Arrange
End Sub

 

[piga25]

Re
Ou alors cela

Sub workbook_open()
  Application.DisplayFullScreen = True
  Application.WindowState = xlNormal
End Sub

 

[piga25]

RE
plus simple

Sub workbook_open()
 'valable pour ton fichier
 'Sur la premioère ligne sélectionne les colonnes qui doivent être affichées, ici colonne B à K'
    Range("B1:K1").Select
    ActiveWindow.Zoom = True
End Sub

 

[Philippe17]

Re
Ou alors cela

Sub workbook_open()
  Application.DisplayFullScreen = True
  Application.WindowState = xlNormal
End Sub

Oui, c'est super 👍, c'est ce que je veux, il est possible de le faire pour plusieurs feuilles ?

 

[TooFatBoy]

Bonjour,

Oui, c'est super 👍, c'est ce que je veux, il est possible de le faire pour plusieurs feuilles ?

Si tu veux vraiment pourrir à fond la vie de l'utilisateur, tu le mets carrément dans Workbook_SheetActivate. 😅

 

[piga25]

Oui
En lieu et place de workbook_open() mettre le code dans chaque feuille.
Il faut juste choirsir le nb de colonnes
Private Sub Worksheet_Activate()
Range("B1:K1").Select
ActiveWindow.Zoom = True
End Sub

 

[Philippe17]

Bonjour,


Si tu veux vraiment pourrir à fond la vie de l'utilisateur, tu le mets carrément dans Workbook_SheetActivate. 😅

Lol, merci pour la réponse, bonne soirée 😇

 

[Philippe17]

Oui
En lieu et place de workbook_open() mettre le code dans chaque feuille.
Il faut juste choirsir le nb de colonnes
Private Sub Worksheet_Activate()
Range("B1:K1").Select
ActiveWindow.Zoom = True
End Sub

Merci beaucoup, je testerai sur plusieurs écrans lundi, je vous informe du résultat, bonne soiré et bon Weekend, Philippe 😇

 

[Philippe17]

Bonjour et merci, ça fonctionne comme je le désire,
Bonne journée,
Cordialement,
Philippe😇

 

[TooFatBoy]

Content pour toi que tu aies trouver LA réponse qui te convient. 👍



ps : l'usage sur ce forum est de cocher la meilleure réponse à ta question, donc probablement #6 (ou #5, voire #4). 😉

 

[patricktoulon]

bonjour
application.displayfullscreen peut être très facilement déjoué

1. avec un simple double clique ou glisser appuyé sur la barre de titre de la fenêtre
2. clique droit sur les cells et en bas dans le menu revenir a l'affichage normal
3. ou même simplement en tapant la touche ESC

on a alors le ruban qui revient etc....et donc la possibilité de travailler quand même avec les outils du ruban

voici comment on fait
essayez donc de revenir a l'affichage normal sans mon bouton window
essayez donc de faire revenir le ruban sans mon bouton window
essayez donc de déplacer la fenêtre pour la réduire
et tant que vous y êtes essayez les boutons de la barre de titre aussi
quand vous serez trop fatigués pour rien
dites merci patosh

j'ai bloqué les display mais vous pouvez les débloquer
si vous voulez aussi faire péter les headings et workbook tabs

et en prime si vous ne voulez pas la barre de titre non plus debloquer la ligne api sans déclaration

pour l'exemple j'ai cru comprendre aussi qu'une plage visible était voulue
que cela vous tienne on zoom la plage

voilà maintenant vous savez comment on fait

 

[TooFatBoy]

Ah ben là, question pourrir la vie de l'utilisateur, yaskifo ! 😅