Barres de défilements dans une Feuil active

[pias]

Bonsoir le forum

Avec le code ci-dessous, à l’ouverture de la Feuil les barres de défilement sont cachées.

Comment faire pour afficher à nouveaux les barres des que on quitte la Feuil ?
Si on ajoute,

CloseWindow.DisplayVerticalScrollBar = True
CloseWindow.DisplayHorizontalScrollBar = True

ça marche pas.

Merci


----------------------------------------
Private Sub Worksheet_Activate()
Range('A5').Select
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
End Sub
-----------------------------------------

 

[JeanMarie]

Bonsoir Pias

Essaye ceci à placer dans le code de la même feuille

Private Sub Worksheet_Activate()
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
End Sub

Private Sub Worksheet_Deactivate()
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
End Sub

@+Jean-Marie

 

[pias]

Salut, JeanMarie

Quoi dire de plus !
Ça fonctionne très bien
Merci
Bonne nuit