Barres de défilements dans une Feuil active

pias · 10 Mars 2005

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 · 10 Mars 2005

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 · 10 Mars 2005

Salut, JeanMarie

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

Barres de défilements dans une Feuil active

pias

XLDnaute Nouveau

JeanMarie

XLDnaute Barbatruc

pias

XLDnaute Nouveau

Discussions similaires