Effacer toutes les données numériques sauf font rouge

Bonjour,

J'ai une plage de donnée qui contient des valeurs numériques dont certaines sont en rouge.

Je voudrais effacer celles en noir et conserver celles en rouge.

Est-ce qu'il existe une fonction qui permettrait de le faire en une seule fois?

Merci

ddetp88

Bonjour,

Tu fais cela avec un simple 'REMPLACER' (CTRL H)

Tu indiques police noir dans 'rechercher', rien dans 'remplacer par' et c'est parti mon kiki.

Bonjour,

Bon Dieu mais c'est bien sûr! Disait-il.

Sub EffaceNoir()

    With Application.FindFormat.Font
        .ThemeColor = 2
    End With
    Range("maplage").Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=False
End Sub

Par moment on passe à coté de simplicité.

Merci et à bientôt

ddetp88