Colorer les formules dans le classeur entier

Re : Colorer les formules dans le classeur entier

Bonjour,

En effet c'est facile de colorer les cellules contenant une formule :
- menu Edition-Atteindre-Cellules puis choisir l'option "Formules"
- menu Format-Cellule-Motifs et choisir la couleur.

Utiliser donc l'enregistreur de macro (menu Outils-Macro-Nouvelle macro), et visualiser la macro par Alt+F11

Mettre ensuite la macro dans la boucle suivante :

A+

Re : Colorer les formules dans le classeur entier

Bonjour à tous,

Un essai avec un Bouton Bascule

A+

Re : Colorer les formules dans le classeur entier

Merci pour les réponses!
Je n'arrive pas à utilisé le bouton "couleurs" dans le fichier que tu m'as envoyé... quand je passe dessus, la souris se transforme en main mais impossible de faire quoi que ce soit avec... Peut-être que c'est parce que j'ai Excel pour Mac? As-tu une solutions?

Re : Colorer les formules dans le classeur entier

Pour donner suite, voici ma solution du soir bonsoir,
Comme je suis pas un pro d'Exel comme vous, je sais pas si c'est juste ce que j'ai trafiqué...

J'ai collé la formule pour colorer dans un module de macro et celle pour décolorer dans un autre, je les ai chacune affectée à un bouton. Ils fonctionnent rudement bien... MERCI mais au début ils disait qu'il y avait un problème que le debogueur mettait en jaune : Sheets("F1").Activate, ligne que j'ai supprimé, et maintenant ça marche bien... Youpi

Voici les deux codes que j'ai copié de ce que ma posté JCGL (merci beaucoup):

Sub Couleur_Formule()
Dim Ws
Application.ScreenUpdating = False

For Each Ws In Worksheets
Ws.Activate
Selection.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex = 40
Range("A1").Select
Next
Sheets("F1").Activate

Application.ScreenUpdating = True
End Sub

************************************et l'autre :

Sub Pas_Couleur_Formule()
Dim Ws
Application.ScreenUpdating = False

For Each Ws In Worksheets
Ws.Activate
Selection.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex = 0
Range("A1").Select
Next
Sheets("F1").Activate

Application.ScreenUpdating = True
End Sub

(peut-être enlever : Sheets("F1").Activate

Re : Colorer les formules dans le classeur entier

Bonsoir,

Une MFC formules de Jacques Boisgontier :

http://boisgontierjacques.free.fr/fichiers/MFC/MFC_Formules.xls

Re : Colorer les formules dans le classeur entier

Bonjour à tous,

Il est vrai que sous Mac les ActiveX (Barre d'Outils Contrôle) ne fonctionnent pas.
Il faut utilser la Barre Formulaire et je ne crois pas qu'il y ait un TooggleButton.

A+