Enlever le quadrillage et l'entête ligne par macro

[Mi_]

Bonsoir le forum,

J'ai besoin, à l'ouverture d'un fichier excel, d'avoir les actions automatiques suivantes:

- enlever le quadrillage
- enlever les en-tête de ligne et de colonne
- enlever la barre de défilement horizontale

et à la fermeture du fichier, rétablir les paramètres d'origine.

Quel serait le code à mettre dans Thisworkbook ?

Merci pour tout conseil,
Mi

 

[JeanMarie]

Bonsoir

Pour créer des macros, tu as un outil très pratique, qui est l'enregistreur. Essaye ceci.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With ActiveWindow
        .DisplayGridlines = True
        .DisplayHeadings = True
        .DisplayHorizontalScrollBar = True
    End With
    Range('G24').Select
End Sub


Private Sub Workbook_Open()
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
        .DisplayHorizontalScrollBar = False
    End With
End Sub

@+Jean-Marie

 

[_Thierry]

Re Bonjour Mi_ le Forum

Pas besoin de Macro pour faire ceci, ce sont des propriétés liées au 'display' de la fenêtre du Classeur, pas de l'Application Excel.

Menu
=> Outils
=> Options
=> Onglet Affichage
=> Section 'Fenêtre'

Tu coches ou décoches ce que tu souhaites, ce sera conservé dans les propriétés d'affichage du fichier à la sauvegarde. (Toutes mes Démos sont présentées de cette manière)

Si tu le veux à tout prix par macro, l'enregistreur te donnera le code.

Bonne Nuit
@+Thierry

Message édité par: _Thierry, à: 19/03/2005 22:55

 

[_Thierry]

Bonsoir Jean Marie !!!

Et Boum !!! LOL

On est OK pour l'enregistreur de Macro sur ce coup là.

Bonne Soirée
@+Thierry

 

[CBernardT]

Bonsoir tout le monde

Mi Pour ton problème, voila les deux macros à placer dans le module du classeur.

Private Sub Workbook_Open()
Application.ScreenUpdating = False
With ActiveWindow
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayHorizontalScrollBar = False
End With
Application.ScreenUpdating = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
With ActiveWindow
.DisplayHeadings = True
.DisplayGridlines = True
.DisplayWorkbookTabs = True
.DisplayHorizontalScrollBar = True
End With
Application.ScreenUpdating = True
End Sub

Cordialement

CBernardT

Message édité par: CBernardT, à: 19/03/2005 22:59

 

[Mi_]

Oulà, hé bien voilà, j'ai l'embarras du choix. B)

Merci à tous pour votre gentilesse. Cela m'aide enormement dans mon travail.

Amitiés,
Mi

 

[Mi_]

Me revoila !!!! :woohoo:

Quel serait le code pour que TOUTES les feuilles du classeur subissent la même action à l'ouverture du fichier ?

Car à présent ce n'est que la fenêtre active qui subi les paramètres.

Merci,
Mi

 

[_Thierry]

Bonjour Mi_, Jean-Marie, Bernard, le Forum

Mi_, il semble que tu n'aies pas bien lu, ou compris mon post du 19/03/2005 22:52, en effet ces paramètres une fois appliqués sont conservés avec le Classeur .... Excel quant à lui n'étant pas touché pour les autres classeurs, il n'est pas utile de mettre et enlever ces paramètres à chaque ouverture/fermeture...

Maintenant si tu as beaucoup de Feuilles tu peux faire ceci, pour éviter de la faire à la 'mimine' :

Public Sub TheViewerFalse()
Dim Win As Window
    For Each Win In ActiveWorkbook.Windows
        With Win
            .DisplayHeadings = False
            .DisplayGridlines = False
            .DisplayHorizontalScrollBar = False
        End With
    Next
End Sub

Maintenant si tu persistes à vouloir le faire en ouverture et fermeture, voici comment faire, mais je répète, c'est inutile !

Dans le Private Module de ThisWorkBook

Private Sub Workbook_Open()
TheViewer False
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
TheViewer True
End Sub

Dans un Module Publique Standard

Public Sub TheViewer(MyBoolean As Boolean)
Dim Win As Window
    For Each Win In ThisWorkbook.Windows
        With Win
            .DisplayHeadings = MyBoolean
            .DisplayGridlines = MyBoolean
            .DisplayHorizontalScrollBar = MyBoolean
        End With
    Next

Bonne Journée
@+Thierry

 

[Mi_]

Bonjour Thierry,

Oui justement, j'ai des classeurs avec des dizaines de feuilles, et c'était pour ne pas devoir aller dans Options pour chaque feuille. Car au bout de 50 feuilles on arrive à se demander quel est le but de la vie. 🙂

Vive le macro qui résoud tout. B)

Merci encore une fois,
Mi

 

[Mi_]

Je vous derange encore une fois.

Thierry, j'ai mis dans ThisWorkbook:

Public Sub TheViewerFalse()
Dim Win As Window
For Each Win In ActiveWorkbook.Windows
With Win
.DisplayHeadings = False
.DisplayGridlines = False
.DisplayHorizontalScrollBar = False
.DisplayWorkbookTabs = False
End With
Next Win
End Sub

Et pourtant cela enlève le Quadrillage, En-tête etc, seulement pour la première page. Les autres feuilles sont inchangées.

Aidez moi. 😱