Macro : rechercher remplacer

[KTM]

Salut le Forum
J'ai une plage de Cellules contenant des valeurs.
Je voudrais remplacer les valeurs négatives par Zéro (0) avec une macro.
Voici un fichier exemple

Merci

 

[riton00]

Bonsoir,

Un essai avec

Sub Zéro()
Dim MaCell As Range
    For Each MaCell In Range("E9:G20").Cells
    If MaCell.Value < 0 Then MaCell.Value = 0
    Next MaCell
End Sub

Slts

 

[job75]

Bonsoir KTM, riton00,

Sub Remplacer()
Cells.Replace "-*", 0, xlWhole
End Sub

Mais le VBA n'est pas nécessaire, touches Ctrl+H et faites ça manuellement.

A+

 

[KTM]

Merci à tous
C'est trop top