Discussion :

[ted31200]

Bonjour,

J'ai déjà fait des recherches mais je bloque sur deux lignes de mon code,
En fouillant dans le forum et d'autre, j'ai trouvée les lignes pour faire les mis en page de mon classeur au moment de l'ouverture.

Mais elle agissent pas toutes sur toutes les feuilles, celle qui fonctionne pas sont celle des en tête et du quadrillage (elles fonctionne que sur une page), donc je les remplacer par celle-ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    ThisWorkbook.Application.ActiveWindow.DisplayGridlines = False
    ThisWorkbook.Application.ActiveWindow.DisplayHeadings = False

Malheureusement elles agissent toujours sur une seul feuilles.

Merci d'avance de votre aide.
Vous m'avait déjà aider avec toutes les informations que j'ai pu trouvé.

[casefayere]

Bonsoir,
dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Mep()
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False
'et ce que tu veux
End Sub

dans ThisWorkBook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Mep
End Sub

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    ThisWorkbook.Application.ActiveWindow.DisplayGridlines = False
    ThisWorkbook.Application.ActiveWindow.DisplayHeadings = False

Petite remarque liminaire : Wao !!! Tu as l'art de te compliquer la vie.
ThisWorkbook pointe sur le classeur actif.
Application pointe sur le logiciel de ce classeur, c'est-à-dire Excel.
Et ensuite, tu demandes la fenêtre active de ce logiciel.

Petite info : Excel est l'application par défaut quand on lance une macro VBA sous Excel. Donc tes lignes peuvent s'écrire simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.DisplayHeadings = False

Mais pour répondre à ta question, pour faire ce que tu souhaites il faut que tu ces instruction dans une boucle qui scrute toutes les feuilles.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim WS as Worksheet
For Each WS in ActiveWorkbook.Worksheets
    WS.Activate
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.DisplayHeadings = False
Next WS

[ted31200]

Bonjour,

Super rapide les réponse et très bien, grâce a la boucle cela fonctionne a merveille.

Menhir, Oui je me suis compliquer la vie, au début j'avais les même codes que vous sans la boucle, dons j'ai cherche a l’étendre sur le classeur entier. lol

Merci pour l'explication en tout cas

Merci beaucoup.