code VBA pour Macro recherche et remplace

mavean · 11 Janvier 2016

Bonsoir

Dans un tableau (qui s'étend de I13 à M81) qui effectue des calculs (donc avec des formules).
J'ai des (zéro) soit rentré directement soit qui sont le résultat d'une formule).
j'aimerais attribué un bouton à une macro qui remplace toutes les cellules ayant un 0 (zéro) par une cellule vide.

J'ai essayé ce code
Sub Macro1()
Range("i13:m81").Select
Selection.Replace What:="0", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

qui marche la ou le zéro n'est pas le résultat d'une formule

Qui pour m'aider ?

Merci.

Paf · 11 Janvier 2016

Re : code VBA pour Macro recherche et remplace

bonjour

sans VBA, dans les options Excel désactiver Valeurs Zéro, les "0" issus de saisie ou de formules n'apparaîtront plus.

Par contre sous XL2010, je ne sais pas exactement où ça se trouve .

A+

grisan29 · 11 Janvier 2016

Re : code VBA pour Macro recherche et remplace

bonjour
sous excel 2013 c'est fichier puis options puis options avancées et chercher ou ça se trouve

Pascal

DoubleZero · 12 Janvier 2016

Re : code VBA pour Macro recherche et remplace

Bonjour à toutes et à tous,

Comme ceci ?

Code:

Option Explicit
Sub Zéro_zéro()
    Dim c As Range
    For Each c In Range("plage")    ' à adapter
        If c = 0 Then c = ""
    Next
End Sub

A bientôt

Lone-wolf · 12 Janvier 2016

Re : code VBA pour Macro recherche et remplace

Bonjour mavean, l'équipe du jour

Avec excel 2010, c'est exactement comme la dit grisan.

A+

code VBA pour Macro recherche et remplace

mavean

XLDnaute Junior

Paf

XLDnaute Barbatruc

grisan29

XLDnaute Accro

DoubleZero

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Discussions similaires