Macro : rechercher remplacer

KTM · 18 Janvier 2019

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 · 18 Janvier 2019

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

job75 · 18 Janvier 2019

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+

KTM · 18 Janvier 2019

Merci à tous
C'est trop top

Macro : rechercher remplacer

KTM

XLDnaute Impliqué

Pièces jointes

riton00

XLDnaute Impliqué

job75

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Discussions similaires

Macro : rechercher remplacer

KTM

XLDnaute Impliqué

Pièces jointes

riton00

XLDnaute Impliqué

job75

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency