cacher le quadrillage

[gege21]

bonjours a tous
pour cacher le quadrillage d'une feuille j'utilise se code

Sub quadrillage_afficher()
ActiveWindow.DisplayGridlines = True
End Sub

mais comment faire pour le cacher sur toute les feuille en même temps

 

[JNP]

Re : cacher le quadrillage

Bonsoir Gege21 ,
Une petite boucle par exemple

Sub test()
Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Worksheets
Feuille.Activate
ActiveWindow.DisplayGridlines = False
Next
End Sub

Bonne soirée

 

[Staple1600]

Re : cacher le quadrillage

Bonsoir gege21, JNP, le fil, le forum


Une autre façon

A mettre dans ThisWorkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines
End Sub

PS: test ok sur XL 2000

 

[gege21]

Re : cacher le quadrillage

bonsoir JNP , Staple1600

merci pour vos réponse rapide

 

[JNP]

Re : cacher le quadrillage

Re ,

Une autre façon
A mettre dans ThisWorkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines
End Sub

Jean-Marie, ça fait une bascule (une fois avec grille, une fois sans grille) ...
Bonne journée