Macro maquage et démasquage formules

Bonjour ejmj.bleuez,

Essaie ceci :

'----------------------------
Public Sub masquerFormules()

If TypeName(Selection) = "Range" Then
For Each c In Selection
If c.HasFormula Then
If c.Font.ColorIndex = xlAutomatic Then
c.Font.ColorIndex = 2
ElseIf c.Font.ColorIndex = 2 Then
c.Font.ColorIndex = xlAutomatic
End If
End If
Next
End If

End Sub
'----------------------------

N.B. Il y a la propriété "masquer" de l'onglet "Protection" de la fenêtre "Format / celllules" qui sait très bien s'acquitter de
cette tâche (masquer les formules) ... il faut cependant que la feuille soit protégée !


Salutations!







"ejmj.bleuez" <ejmj.bleuez@wanadoo.fr> a écrit dans le message de news: 42591439$0$1211$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
J'ai rédigé la macro suivante pour masquer les résultats des formules
en les colorisant en blanc (code 2) si elles sont apparentes
et pour les démasquer si elles sont cachées (code 0)
Cette macro ne marche pas : pourquoi ?

Public Sub masquerFormules()
If Selection.Font.ColorIndex = 0 Then
Selection.Font.ColorIndex = 2
ElseIf Selection.Font.ColorIndex = 2 Then
Selection.Font.ColorIndex = 0
End If
End Sub

Où est l'erreur ?
D'avance Merci
ebleuez