Remplacer valeurs

[Pedro]

Bonjour

Je souhaite remplacer toutes les cellules qui ont pour valeur '0' par 'NC'.

Quand j'utilise ce code de 'remplacer tout' tous le '0' sont remplacés par NC. Par exemple 150 devient 15NC, 200 devient 2NCNC...


Cells.Replace What:='0', Replacement:='NC', LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False

Je souhaiterais que ça soit uniquement les cellules ayant '0' comme valeur soient remplacées.

Merci [file name=TEST26MARS.zip size=6878]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TEST26MARS.zip[/file]

 

[JC de Lorient]

salut
essayes comme ça :
sub essai()
Dim cells As Range
For Each cells In Range('A1:E5')
If cells.Value = 0 Then cells = 'NC'
Next
end sub

Range('A1:E5') est a définir en fonction

JC

 

[Excel_lent]

Salut tout le monde,

Complete ta ligne ainsi :

Cells.Replace What:='0', Replacement:='NC', LookAt:=xlWhole, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=False

Quand tu utilises 'Remplacer', coche 'Totalité du contenu de la cellule' !

@+

Message édité par: Excel_lent, à: 20/03/2006 18:07