Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro pour remettre les paramètres d'affichage par défaut.

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Mister Binaire

XLDnaute Occasionnel
Bonjour le Forum,

Pour que mes pages est une présentation esthétique, je décoche dans l'onglet affichage "Barre de Formule", "Titres" & "Quadrillage".
Mais parfois mes collaborateurs ont besoins de re cocher ces paramètres pour effectuer des modifications sur la page.

Pour leur faire gagner du temps, je voudrais si possible une macro qui rétablisse ces trois paramètres en cliquant sur un bouton.

Merci de votre aide.


Amicalement,
MB
 
Re : Macro pour remettre les paramètres d'affichage par défaut.

Bonjour.

Onglet Développeur, Enregistrer une macro, OK, onglet affichage, cochez et décochez vos options d'affichage, arrêtez l'enregistrement et regardez le code engendré.
 
Re : Macro pour remettre les paramètres d'affichage par défaut.

Merci à vous.

J'ai en effet généré le code comme vous m'avez dit cela marche très bien.
Sub Affichage()
'
' Affichage Macro
'

'
ActiveWindow.DisplayGridlines = True
ActiveWindow.DisplayHeadings = True
Application.DisplayFormulaBar = True
End Sub

Cependant j'aurais voulu avoir un seul bouton qui fasse la fonction libérer l'affichage et figer l'affichage.

C'est à dire, j'appuie une fois sur mon bouton , je libère, j'appuie une seconde fois et je remet la feuille à son état initial.


Mais là, je ne sais pas comment faire...

Merci de votre aide...

Amicalement,
MB
 
Re : Macro pour remettre les paramètres d'affichage par défaut.

VB:
ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings
ActiveWindow.DisplayGridlines = ActiveWindow.DisplayHeadings
Application.DisplayFormulaBar = ActiveWindow.DisplayHeadings
 
Re : Macro pour remettre les paramètres d'affichage par défaut.

Merci à vous Dranreb cela marche à merveille.

Mille excuses pour mon retard dans la réponse; je n'avais pas eu le temps de revenir avant.

Amicalement,
MB
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…