Mise en page avec VBA

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:

---

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é.

Bonsoir,
dans un module

Code:

---

1 2 3 4 5

Sub Mep() ActiveWindow.DisplayGridlines = False ActiveWindow.DisplayHeadings = False 'et ce que tu veux End Sub

---

dans ThisWorkBook

Code:

---

1 2 3

Private Sub Workbook_SheetActivate(ByVal Sh As Object) Mep End Sub

---

Citation:

---

Envoyé par ted31200

Code:

---

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. 8O
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:

---

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:

---

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

---

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.