Occulter ou faire apparaître la barre d'état

job75

XLDnaute Barbatruc
Bonjour Magic_Doctor, le fil,
Ma relation avec Excel est très particulière.
Tiens comme moi :confused:

Visiblement tu n'aimes pas le mode PLEIN ECRAN car tu veux conserver ta liberté d'action.

Alors utilise des CheckBox comme dans le fichier joint avec cette macro :
Code:
Sub Affiche()
ActiveCell.Activate 'ôte le focus des CheckBox
ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & IIf([Ruban], "TRUE", "FALSE") & ")" 'ruban
Application.DisplayFormulaBar = [Formule] 'barre de formule
Application.DisplayStatusBar = [Etat] 'barre d'état
With ActiveWindow
  .DisplayGridlines = [Quadrillage] 'quadrillage
  .DisplayHeadings = [Entetes] 'en-têtes des lignes & colonnes
  .DisplayWorkbookTabs = [Onglets] 'onglets
End With
End Sub
Elle est aussi lancée par la Workbook_Activate.

A+
 

Fichiers joints

Staple1600

XLDnaute Barbatruc
Bonjour Magic_Doctor, le fil,
A+
Bonjour à toi aussi Job75...

Et meilleurs vœux pour 2018 ;)

NB: Je repose ma question à la communauté xldienne
Où se situe la différence entre
Application.DisplayFullScreen=True
et Application.WindowState=xlMaximized ?
Logiquement si le résultat était strictement identique, une seule commande suffirait, non?
 
Dernière édition:

Magic_Doctor

XLDnaute Barbatruc
job, il faut toujours conserver sa liberté d'action.
C'est pour ça, ne jamais se marier !

Ta PJ n'est pas passée. Aurait-elle perdu sa liberté d'action ?
 

job75

XLDnaute Barbatruc
Re JM,

J'ai déjà présenté mes vœux 10 fois sur XLD mais on peut continuer jusqu'à fin janvier ;)

BONNE ET HEUREUSE ANNEE A TOUS.

@ Magic_Doctor, mon fichier est bien sur le post #61.

A+
 

Staple1600

XLDnaute Barbatruc
Re

@job75
Oui
Par contre, j'espère que ma question aura une réponse avant janvier 2024 ;)
(Car celle de Magic_Doctor fut initiée en 2011 en trouva réponse en janvier 2018 ;) )
 

job75

XLDnaute Barbatruc
NB: Je repose ma question à la communauté xldienne
Où se situe la différence entre
Application.DisplayFullScreen=True
et Application.WindowState=xlMaximized ?
Logiquement si le résultat était strictement identique, une seule commande suffirait, non?
Je m'étonne que tu poses cette question car la réponse est évidente.

La 2ème commande n'a rien à voir avec la 1ère, c'est une des 3 options possibles de dimensionnement de la fenêtre Excel :
Code:
Application.WindowState = xlMaximized
Application.WindowState = xlNormal
Application.WindowState = xlMinimized
A+
 

Magic_Doctor

XLDnaute Barbatruc
La PJ de job est enfin passée (certainement un pb quantique). Très joli.

Staple, on se calme. N'as-tu pas compris que job est un Maître du suspens !

Mais une question.
Je ne comprends pas pourquoi maintenant quand je lance depuis un autre classeur :

Application.DisplayFullScreen = True ---> Plein Écran avec barre de formules
Application.DisplayFullScreen = False ---> Écran normal sans barre de formules
 

mapomme

XLDnaute Barbatruc
Bonjour à tous :),

Juste pour relancer le débat et vous faire bisquer :p et y mettre un peu de sel :
  • on charge le fichier du fil 12
  • on coche tout
  • on passe en plein écran
  • certaines options sont inefficaces (ce qui s'explique aisément - puisqu'on est passé en plein écran!)

mais c'est surtout pour mapomme, l'occasion de souhaiter à job75, Stapple1600 et Magic_Doctor une :
Bonne et heureuse année 2018 à vous et à tous vos proches :)
 

Staple1600

XLDnaute Barbatruc
Bonsoir mapomme

@mapommme
Un seul p suffira ;)
NB:
Dans le fichier du fil 12,
pas trace de ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"", False)"

@Magic_Doctor
Si énervement, je devais avoir, ce serait plutôt en relation avec l'absence de réponse (pour le moment) de DavidXLD dans mon fil [ALERTE SECURITE] ou en MP.

@job75
Merci job, ce qui est évident pour certains , ne l'est pas forcément pour d'autres ;)
 

Staple1600

XLDnaute Barbatruc
Re

@Mazik_Doktor
Aussi exotique que de relancer un fil de 2011, alors ;)
D'ailleurs, comment as-tu fait pour utiliser Excel de façon particulière en plein écran sans barre d'état pendant 7 ans et des poussière? ;)
 

job75

XLDnaute Barbatruc
Re,

Post #67 :
Je ne comprends pas pourquoi maintenant quand je lance depuis un autre classeur :

Application.DisplayFullScreen = True ---> Plein Écran avec barre de formules
Application.DisplayFullScreen = False ---> Écran normal sans barre de formules
Oui, à force de tripoter les fenêtres et les barres on arrive à des bizarreries avec le mode PLEIN ECRAN.

C'est un mode hybride, moi je ne l'utilise jamais.

Il vaut mieux faire comme au post #61 en affichant les divers éléments quand et comme on veut.

A+
 

Magic_Doctor

XLDnaute Barbatruc
Re,

J'ai très bien compris le côté "tordu" de la stratégie, moi-même ça ne me satisfait pas complètement, même si ça marche. Du reste, cet ExecuteExcel4Macro, ne se croise pas à chaque coin de fil...
Mais (Eh ! Eh !) le truc bizarre, et je me répète, c'est que depuis que j'ai flirté avec cette fonction, quand je lance :
Application.DisplayFullScreen = True ---> Plein Écran avec barre de formules
Application.DisplayFullScreen = False ---> Écran normal sans barre de formules

Pour rectifier tout ça, j'hésite entre coller sur le PC une image pieuse ou lui coller un coup de marteau.

Il y aurait-il une solution plus cartésienne ?
 

Staple1600

XLDnaute Barbatruc
Re

@Magic_Doctor
Je ne comprends pas
Dans ce message, tu semblais indiquer que la question était résolue, non?
https://www.excel-downloads.com/threads/occulter-ou-faire-apparaître-la-barre-détat.169324/page-3#post-20161771
En utilisant justement ExecuteExcel4Macro

Donc pourquoi ne pas se cantonner à utiliser celle solution?

PS: Ce n'est pas si rare sur XLD,cet ExecuteExcel4Macro
(cf le moteur de recherche du forum ==> Affichage des résultats 1 à 20 sur 197)

Et cela sert à plein d'autres choses que d'afficher en "plein écran" ;)
 

Magic_Doctor

XLDnaute Barbatruc
Ce que je disais à job, c'est que j'ai l'impression que cette fonction peut être source d'ennuis.
Si je n'avais pas eu ce problème cité plus haut, je ne me serais pas posé la question. Car le problème demeure. Certes ce n'est pas grave, mais énervant. Comment m'en débarrasser ?

Et en 12 ans sur ce forum, c'est la 1ère fois que je vois cette fonction. J'en déduis que ce n'est pas la fonction la plus utilisée. Enfin, sur le net, pas grand chose sur cette fonction en français (en espagnol... on oublie !). Donc reste l'anglais, mais c'est une torture pour moi que de lire cette langue.
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Re

Fais une macro qui remets toutes les Application... sur True
Ferme Excel
Puis ressaies Application.DisplayFullScreen sur un nouveau classeur.
 

Magic_Doctor

XLDnaute Barbatruc
C'est précisément ce que je viens de faire (avec True puis False pour voir).
Maintenant ça a l'air de marcher.
C'est quand même bizarre cette histoire...
 

Discussions similaires


Haut Bas