remplacer #valeur par nd ?

[alucard_xs]

Bonjour,

dans mon classeur excel, avec mes formules j'obtiens parfois un #valeur, et un -1 et j'aimerai via une macra sous vba, remplacer cette #valeur ou ce -1 par une joli"nd", est ce possible ?

merci

 

[alucard_xs]

Re : remplacer #valeur par nd ?

j'ai pas encore trouvé

 

[fred65200]

Re : remplacer #valeur par nd ?

bonjour

Avec une formule
SI(OU(ESTERREUR(A1);A1=-1);"nd";A1)

cordialement

 

[alucard_xs]

Re : remplacer #valeur par nd ?

If(Where(ISERROR(A1),A1=-1);"nd";A1)

ne marche pas mais bon je sais pas si ça pourrais marcher

 

[fred65200]

Re : remplacer #valeur par nd ?

re

Si tu as une version anglaise d'excel remplace Where par Or

@+

 

[alucard_xs]

Re : remplacer #valeur par nd ?

pas mieux ... snif

 

[fred65200]

Re : remplacer #valeur par nd ?

re

tu es sur ta feuille de calcul?

il faut mettre =IF(OR(ISERROR(A1);A1=-1);"nd";A1)

 

[alucard_xs]

Re : remplacer #valeur par nd ?

non dans vba

 

[fred65200]

Re : remplacer #valeur par nd ?

re

en VBA

Sub Test()
For Each c In Selection
If IsError(c) Or c.Value = -1 Then c.Value = "nd"
Next c
End Sub

cordialement

 

[alucard_xs]

Re : remplacer #valeur par nd ?

arf marche pas non plus incompatibilité de type

 

[alucard_xs]

Re : remplacer #valeur par nd ?

en fait c'est plus compliqué que ça, j'ai plusieurs feuille (par ex ma f3 = (f2 - f1)/f1 ça serait bien si :

si la "nd" dans f1 ou "nd" dans f2 then valeur dans f3="nd" mais je m'y perds avec les feuilles ...

 

[fred65200]

Re : remplacer #valeur par nd ?

re

on va y arriver
essaie sur deux lignes de code

For Each c In Selection
If IsError(c) Then c.Value = "nd"
If c.Value = -1 Then c.Value = "nd"
Next c

pas compris pourquoi

@+

 

[wilfried_42]

Re : remplacer #valeur par nd ?

bonjour à tous

en reprenant la routine de fred

Sub Test()
For Each c In Selection
If IsError(c) then 
c.value = "nb" 
else
if c.Value = -1 Then c.Value = "nd"
end if
Next c
End Sub

Losque l'on met des and ou des or, excel execute tous les tests,
#NA, #VALEUR sont des valeurs Alpha et -1 then valeur entiere et une cellule ne pouvant avoir les 2 type en meme temps renverra une erreur 13 incompatibilité de type

 

[fred65200]

Re : remplacer #valeur par nd ?

merci pour l'explication.

La seule parade est donc deux If?

 

[alucard_xs]

Re : remplacer #valeur par nd ?

mais dans selection je selectionne ma feuille ?