un seul bouton activer/désactiver le feuille plein écran

Victor21

XLDnaute Barbatruc

Supporter XLD

• 19 Février 2012

• #2

Re : un seul bouton activer/désactiver le feuille plein écran

Bonjour, Ilino.

Que dit l'enregistreur ?

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 19 Février 2012

• #3

Re : un seul bouton activer/désactiver le feuille plein écran

Victor21 à dit:

Bonjour, Ilino.

Que dit l'enregistreur ?

Cliquez pour agrandir...

Bonsoir Victor
ci joint la reponse de l'enregistreur
Sub AFFICHAGEPLEINECRAN()
'
' AFFICHAGEPLEINECRAN Macro
'

'
ActiveWindow.DisplayHeadings = False
Application.DisplayFullScreen = True
Application.WindowState = xlNormal
ActiveWindow.DisplayHeadings = True
End Sub

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 19 Février 2012

• #4

Re : un seul bouton activer/désactiver le feuille plein écran

Re bonsoir
mon souci est de créer un seul bouton qui fait affichage plein ecran de la feuille (masque les colonnes&ligne la bare d'outils) et il affiche la feuille dans sa forme standard.
comme tu as di j'ai essayé withl'enregistreur mais ....
merci

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 20 Février 2012

• #5

Re : un seul bouton activer/désactiver le feuille plein écran

Bonjour, Ilino, Victor21 🙂, le Forum,

Avec ce que donne l'enregistreur et le code fourni le 18.03.2005 (cf. les discussions similaires, en bas de page), une macro à tester grâce à un unique bouton :

Code:

Sub Un_bouton()
Application.DisplayFullScreen = Not (Application.DisplayFullScreen)
ActiveWindow.DisplayHeadings = Not (ActiveWindow.DisplayHeadings)
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 20 Février 2012

• #6

Re : un seul bouton activer/désactiver le feuille plein écran

Bonjour Forum ,Bonjour DOUBLEZERO!!!!
MERCI pour le code ça fonctionne parfaitement

Distinti Saluti (Salutations distinguées)
Bon week-end

 

Vote positif 0 Vote négatif