Remplacement des 0 par un espace, via macro

Bonjour,

Je souhaite sélectionner plusieurs colonnes et remplacer les 0 de celles-ci par des espaces.

J'ai bien fait ça :

    Columns("G:I").Select
    Selection.Replace What:="0", Replacement:=" ", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

.. Mais ce que je veux c'est que ça ne remplace QUE les 0 pas les 0 qui apparaissent dans 10, 205, 3000 ..

Merci de votre aide

Bonjour,

essaye en modifiant comme suit :

Columns("G:I").Replace What:="0", Replacement:=" ", LookAt:=xlWhole, _
        SearchOrder:=xlByRows

bon après midi

@+

Bonjour,

Pourquoi mettre un espace plutot que de supprimer le 0 tout simplement ??

C'est jamais top cette manière de faire et te posera peut être des soucis plus tard

Bonjour,

A tester

Cdlt

Selection.Replace What:="0", Replacement:="  ", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Dan a écrit :

Bonjour,

Pourquoi mettre un espace plutot que de supprimer le 0 tout simplement ??

C'est jamais top cette manière de faire et te posera peut être des soucis plus tard

oui en effet, supprimer peut convenir aussi.

Merci Pierrot, ça fonctionne parfaitement