Macro : rechercher remplacer

riton00

XLDnaute Impliqué

• 18 Janvier 2019

• #2

Bonsoir,

Un essai avec

VB:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Janvier 2019

• #3

Bonsoir KTM, riton00,

Code:

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

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

A+

 

Vote positif 0 Vote négatif

KTM

XLDnaute Impliqué

• 18 Janvier 2019

• #4

Merci à tous
C'est trop top

 

Vote positif 0 Vote négatif