G gege21 XLDnaute Occasionnel 9 Mai 2010 #1 bonjours a tous pour cacher le quadrillage d'une feuille j'utilise se code Code: Sub quadrillage_afficher() ActiveWindow.DisplayGridlines = True End Sub mais comment faire pour le cacher sur toute les feuille en même temps
bonjours a tous pour cacher le quadrillage d'une feuille j'utilise se code Code: Sub quadrillage_afficher() ActiveWindow.DisplayGridlines = True End Sub mais comment faire pour le cacher sur toute les feuille en même temps
JNP XLDnaute Barbatruc 9 Mai 2010 #2 Re : cacher le quadrillage Bonsoir Gege21 , Une petite boucle par exemple Code: Sub test() Dim Feuille As Worksheet For Each Feuille In ThisWorkbook.Worksheets Feuille.Activate ActiveWindow.DisplayGridlines = False Next End Sub Bonne soirée Vote positif 0 Vote négatif
Re : cacher le quadrillage Bonsoir Gege21 , Une petite boucle par exemple Code: Sub test() Dim Feuille As Worksheet For Each Feuille In ThisWorkbook.Worksheets Feuille.Activate ActiveWindow.DisplayGridlines = False Next End Sub Bonne soirée
Staple1600 XLDnaute Barbatruc 9 Mai 2010 #3 Re : cacher le quadrillage Bonsoir gege21, JNP, le fil, le forum Une autre façon A mettre dans ThisWorkbook Code: Private Sub Workbook_SheetActivate(ByVal Sh As Object) ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines End Sub PS: test ok sur XL 2000 Vote positif 0 Vote négatif
Re : cacher le quadrillage Bonsoir gege21, JNP, le fil, le forum Une autre façon A mettre dans ThisWorkbook Code: Private Sub Workbook_SheetActivate(ByVal Sh As Object) ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines End Sub PS: test ok sur XL 2000
G gege21 XLDnaute Occasionnel 9 Mai 2010 #4 Re : cacher le quadrillage bonsoir JNP , Staple1600 merci pour vos réponse rapide Vote positif 0 Vote négatif
JNP XLDnaute Barbatruc 10 Mai 2010 #5 Re : cacher le quadrillage Re , Staple1600 à dit: Une autre façon A mettre dans ThisWorkbook Code: Private Sub Workbook_SheetActivate(ByVal Sh As Object) ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines End Sub Cliquez pour agrandir... Jean-Marie, ça fait une bascule (une fois avec grille, une fois sans grille) ... Bonne journée Vote positif 0 Vote négatif
Re : cacher le quadrillage Re , Staple1600 à dit: Une autre façon A mettre dans ThisWorkbook Code: Private Sub Workbook_SheetActivate(ByVal Sh As Object) ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines End Sub Cliquez pour agrandir... Jean-Marie, ça fait une bascule (une fois avec grille, une fois sans grille) ... Bonne journée