Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

olivepao

XLDnaute Occasionnel
Bonjour le forum 🙂

J'ai un petit soucis avec le mode "Plein écran".

J'ai une maro qui met mon classeur en plain écran et une autre qui rétabli le mode normal. Tout fonctionne !

Mon seul soucis est que je me retrouve avec une barre outil nommée "Plein écran" au milieu de mon classeur.

Comment faire pour empêcher son apparition. J'ai fais de nombreuses recherches mais sans succès.

Merci de votre aide à tous
 
Re : Mode plein écran

Hello tototiti2008 🙂
Re le forum 🙂

Merci de ta réponse.

Ta proposition est du full fullscreen. J'aimerais bien que seul la barre standard
puisse être visible car il faut que l'on puisse imprimer, enregistrer ...

As-tu une soluce.

Merci
 
Re : Mode plein écran

Re tototiti2008 🙂

Pour ce qui est de ta proposition, la réponse est oui à 100 %.

Pour ce qui est de mon désir c'est oui à 99,99 %.


Je viens de trouver une soluce, je ne sais pas si elle est académique mais pour l'instant elle fonctionne.

La voici :


Code:
Sub Fullscreen()
Application.ScreenUpdating = False
With Application
.CommandBars(1).Enabled = False
.DisplayFullScreen = True
.DisplayFormulaBar = False
End With
With ActiveWindow
.DisplayHeadings = False
.DisplayOutline = False
.DisplayWorkbookTabs = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
Application.ScreenUpdating = True
Application.CommandBars("Full Screen").Visible = False
[COLOR="Red"]Application.CommandBars("Standard").Visible = True[/COLOR]
End Sub

J'ai mis en rouge l'instruction qui me permet d'avoir la barre Standard.

Quand je quitte, j'ai la même macro mais inversée.

A++++
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
605
Réponses
5
Affichages
1 K
Retour