Plein ecran

[pizzaman]

Bonjour,

J'aimerai savoir si il est possible d'afficher un vrai plein ecran sans aucune barre? je prescise que je suis sur 2007
J'ai réussi à enlever le quadrillage, les titres, la barre de formule, mais il reste encore les barres de defillement et les selection des feuilles
Peut on avoir que la feuille sans rien d'autre?

 

[JNP]

Re : Plein ecran

Bonjour PizzaMan 🙂,

Application.DisplayScrollBars = False
ActiveWindow.DisplayWorkbookTabs = False

Bonne journée 😎

 

[pizzaman]

Re : Plein ecran

Bonjour JNP,

C'est impec pour masquer les barres, il reste juste la derniere barre tout en haut avec la croix pour fermer le programme mais c'est peut etre pas possible de l'enlever celle la
Peut tu me donner aussi les codes pour masquer le quadrillage, les titres, la barre de formule et passer en mode plein ecran car je ne sais le faire qu'en manuel, et si possible un autre code pour pouvoir faire le tout au demarrage d'excel

merci @+ 😀

 

[JNP]

Re : Plein ecran

Re 🙂,

Peut tu me donner aussi les codes pour masquer le quadrillage, les titres, la barre de formule et passer en mode plein ecran car je ne sais le faire qu'en manuel, et si possible un autre code pour pouvoir faire le tout au demarrage d'excel

Pas exigeant le gars 😛...

Private Sub Workbook_Activate()
Application.DisplayScrollBars = False
Application.DisplayFullScreen = True
ActiveWindow.DisplayFormulas = False
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayScrollBars = True
Application.DisplayFullScreen = False
ActiveWindow.DisplayFormulas = True
ActiveWindow.DisplayGridlines = True
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHeadings = True
End Sub
Private Sub Workbook_Deactivate()
Application.DisplayScrollBars = True
Application.DisplayFullScreen = False
ActiveWindow.DisplayFormulas = True
ActiveWindow.DisplayGridlines = True
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHeadings = True
End Sub
Private Sub Workbook_Open()
Application.DisplayScrollBars = False
Application.DisplayFullScreen = True
ActiveWindow.DisplayFormulas = False
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
End Sub

à mettre dans ThisWorkbook. Le Open enlève tout, le Deactivate permet de tout réafficher si tu bascule sur un autre classeur, le Activate remet l'affichage quand tu reviens, et surtout, le BeforeClose remet tout en ordre quand tu quittes, sinon, tu va te faire appeler Arthur par le mec qui aura perdu tous ses affichages 😀...
Je te conseille de mettre les 4 procédures.
Bon courage 😎

 

[pizzaman]

Re : Plein ecran

Au risque de passer pour un idiot, c'est quoi "ThisWorkbook"? 😕

 

[JNP]

Re : Plein ecran

Re 🙂,

Au risque de passer pour un idiot, c'est quoi "ThisWorkbook"? 😕

Pas un idiot, mais un débutant, certes 😛...
Quand tu es dans l'éditeur VBA, tu as les feuilles, ThisWorkbook, et les modules que tu as créé.
Bonne nuit 😎

 

[pizzaman]

Re : Plein ecran

C'etait juste devant mon nez 😀

Ca se mets bien en plein ecran mais ca deforme tous mes boutons au demarrage et agrandit la taille de mes cellule à la fermeture, bizzard, non?

Si je mets juste ca sur un bouton, ca ne bouge rien par contre

Private Sub CommandButton1_Click()
Application.DisplayScrollBars = False
Application.DisplayFullScreen = True
ActiveWindow.DisplayFormulas = False
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
End Sub

 

[JNP]

Re : Plein ecran

Re 🙂,

Ca se mets bien en plein ecran mais ca deforme tous mes boutons au demarrage et agrandit la taille de mes cellule à la fermeture, bizzard, non?
Si je mets juste ca sur un bouton, ca ne bouge rien par contre

Alors là, tu m'en demande trop... Rien constaté chez moi 🙄.
Bon courage 😎

 

[pizzaman]

Re : Plein ecran

C'est pas grave je vais faire comme ca, j'ai juste à appuyer sur un bouton après l'ouverture
en tout cas grand merci à toi pour toutes tes reponses 😉