valeur 0 et macro

[toubib]

bonjour à tous,

au sein d'une macro je dois changer toutes les cellules dont la valeur est 0 en #N/A malheureusement avec le code que j'ai fait ca remplace tous les 0, je me retrouve par exemple avec des 90 qui ressemblent à ça: 9#N/A et en plus ca plante :s

quelqu'un voit ce qui plante?:


Dim m As Variant
For Each m In selection
If m.Value = 0 Then
selection.Replace what:='0', replacement:='#N/A'
End If
Next m

 

[PascalXLD]

Bonjour

Déjà je declarerais m as range

et ton erreur vient de cette ligne

selection.Replace what:='0', replacement:='#N/A'

il faut

m.Replace what:='0', replacement:='#N/A'

sinon tu remplaces les 0 de toute ta selection

Bon courage

 

[toubib]

merci bcp pascal76, d'un coup ca marche mieux

bonne journée à tous!

 

[gibi]

bonjour,

écrit le plus simplement

Dim m As Variant
For Each m In Selection
If m.Value = 0 Then
m.Value = '#N/A'
End If
Next m


ou fait l'équivalent de CTRL+H (remplacer)

Selection.Replace What:='0', Replacement:=''#N/A', LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False


salut

 

[gibi]

bonjour,

écrit le plus simplement

Dim m As Variant
For Each m In Selection
If m.Value = 0 Then
m.Value = '#N/A'
End If
Next m


ou fait l'équivalent de CTRL+H (remplacer)

Selection.Replace What:='0', Replacement:=''#N/A', LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False


salut

 

[toubib]

bonjour gibi,

merci pour ta réponse mais sache juste que t'as deuxième technique ne marche pas, ca remplace tous les 0 c'est pour ça que j'avais fait 'compliqué'

merci

 

[mutzik]

Bonjour le fil,

La technique de CTRL+H fonctionne aussi, mais il faut cocher la case totalité du contenu de la cellule dans l'onglet options et ca marche tout bien sans vba