Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Microsoft 365Erreur Nom ambigu détecté: Workbook_Open
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 !
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
- 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