P Pedro Guest 20 Mars 2006 #1 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] Pièces jointes TEST26MARS.zip 6.7 KB · Affichages: 11
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 XLDnaute Impliqué 20 Mars 2006 #2 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 Vote positif 0 Vote négatif
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 XLDnaute Impliqué 20 Mars 2006 #3 Salut tout le monde, Complete ta ligne ainsi : Code: 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 Vote positif 0 Vote négatif
Salut tout le monde, Complete ta ligne ainsi : Code: 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