Xtian_Québec
XLDnaute Occasionnel
Salut le Forum, j'ai un petit problème d'affichage dans mon classeur. J'utilise les codes suivants pour mettre le classeur en mode PLEIN ECRAN ou en mode ECRAN NORMAL
Sub PleinEcran()
Dim Cbar As CommandBar
Application.ScreenUpdating = False
Application.CommandBars(1).Enabled = False
For Each Cbar In Application.CommandBars
Cbar.Enabled = False
Next Cbar
Application.DisplayFullScreen = True
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
End Sub
Sub EcranNormal()
Dim Cbar As CommandBar
Application.ScreenUpdating = False
Application.CommandBars(1).Enabled = True
For Each Cbar In Application.CommandBars
Cbar.Enabled = True
Next Cbar
Application.DisplayFullScreen = False
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
End Sub
Sur mon poste de travail, ma barre de tâches Windows est "masqué automatiquement" donc elle n'apparaît pas au bas de mon écran ce qui me permet de voir en tout temps ma barre de défilement horizontale (.DisplayHorizontalScrollBar = True) même lorsque je suis en mode PLEIN ECRAN avec le code. Par contre, plusieurs utilisateurs n'ont pas leur barre de tâches Windows "masqué automatiquement" donc elle apparaît au bas de leur écran et masque la barre de défilement horizontale lorsqu'ils sont en mode PLEIN ECRAN avec le code.
Quelqu'un connait un truc pour afficher la barre de défilement horizontale au dessus de la barre de tâches Windows pour que l'on puisse voir les deux barres en mode PLEIN ECRAN ?
Merci pour vos brillantes suggestions
Xtian_Québec
@+++
Sub PleinEcran()
Dim Cbar As CommandBar
Application.ScreenUpdating = False
Application.CommandBars(1).Enabled = False
For Each Cbar In Application.CommandBars
Cbar.Enabled = False
Next Cbar
Application.DisplayFullScreen = True
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
End Sub
Sub EcranNormal()
Dim Cbar As CommandBar
Application.ScreenUpdating = False
Application.CommandBars(1).Enabled = True
For Each Cbar In Application.CommandBars
Cbar.Enabled = True
Next Cbar
Application.DisplayFullScreen = False
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
End Sub
Sur mon poste de travail, ma barre de tâches Windows est "masqué automatiquement" donc elle n'apparaît pas au bas de mon écran ce qui me permet de voir en tout temps ma barre de défilement horizontale (.DisplayHorizontalScrollBar = True) même lorsque je suis en mode PLEIN ECRAN avec le code. Par contre, plusieurs utilisateurs n'ont pas leur barre de tâches Windows "masqué automatiquement" donc elle apparaît au bas de leur écran et masque la barre de défilement horizontale lorsqu'ils sont en mode PLEIN ECRAN avec le code.
Quelqu'un connait un truc pour afficher la barre de défilement horizontale au dessus de la barre de tâches Windows pour que l'on puisse voir les deux barres en mode PLEIN ECRAN ?
Merci pour vos brillantes suggestions
Xtian_Québec
@+++