Bonjour à tous,
J'ai un problème sur ce code avec message erreur, je voudrais pour présenter feuille masquer les barres de défilement, vous pouvez m'aider ?
Merci
Bonjour Philippe,
Dans un fichier vous n'avez le droit qu'à un seul module Workbook_Open.
Essayez :
VB:
Private Sub Workbook_Open()
Application.WindowState = xlMaximized ' Ouvre le Classeur en grand
With Sheets("feuil1")
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
End With
End Sub
Bonjour Philippe,
Dans un fichier vous n'avez le droit qu'à un seul module Workbook_Open.
Essayez :
VB:
Private Sub Workbook_Open()
Application.WindowState = xlMaximized ' Ouvre le Classeur en grand
With Sheets("feuil1")
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
End With
End Sub
Bonjour,
Vous avez 2 fois la même procédure sur ThisWorkbook
VB:
Private Sub Workbook_Open()
With Sheets("feuil1")
Application.WindowState = xlMaximized ' Ouvre le Classeur en grand
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
End With
End Sub
Bonjour à tous,
J'ai un problème sur ce code avec message erreur, je voudrais pour présenter feuille masquer les barres de défilement, vous pouvez m'aider ?
Merci
Bonjour à tous,
En Complément,
Il ne sert à rien de spécifier la feuille, ainsi écrit, le code sera pour tout le classeur(toutes feuilles)
Si il faut absolument enlever ces barres sur une feuille spécifique
Dans le module de la feuille en question.
VB:
Private Sub Worksheet_Activate()
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
End Sub
Private Sub Worksheet_Deactivate()
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
End Sub