En tête de lignes et de colonnes

[natbru]

Bonjour à tous,

J'ai un classeur contenant une dizaine de feuille. Je voudrais pouvoir retirer ou remettre les en-têtes de lignes ou de colonnes pour toutes les feuilles en-même temps.

Je pensais à quelque chose de ce genre :

Sub Macro1()

Dim feuille As Window

For Each feuille In ThisWorkbook.Window
    ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines
    ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings
Next feuille

End Sub

Ca ne fonctionne pas, le message d'erreur est 'Membre de méthode ou de données introuvable'.

Merci pour votre aide.

Bon we à tous.

 

[JCGL]

Bonjour Natbru, le Forum

Je te conseille l'installation de cette macro complémentaire de Ti sur VeriTi


Ce lien n'existe plus


Que du bonheur

 

[Francoise]

J'espere que c'est ce que tu demandais.

 

[natbru]

Bonjour JCGL, Françoise,

Effectivement c'est ce je cherchais mais en 1000000 fois mieux.

Toutes mes félicitations à l'auteur : TI

Merci pour le lien.

A bientôt.

 

[Bernard_XLD]

Bonjour natbru, JCGL, françoise

la voila ta commande!

A+

For Each feuille In ThisWorkbook.Windows
With feuille
    .DisplayHeadings = Not (.DisplayHeadings)
    .DisplayGridlines = Not (.DisplayGridlines)
End With
Next feuille

 

[natbru]

Bonjour Yeahou,

merci pour ta réponse car le programme de ti est super génial mais je suis contente de pouvoir voir ou était l'erreur dans mon code.

Et oui, c'est comme ca qu'on apprend.

A bientôt.

 

[sunnyland]

Autre solution, si cela t'interesse [file name=reponsenatasha.zip size=7372]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/reponsenatasha.zip[/file]

 

[natbru]

Bonjour Sunnyland,

merci pour ta réponse, effectivement cela marche aussi trés bien.

A bientôt.