Modifier la valeur #NOM? par le chiffre 0,00

Bonjour,


Le contenu des cellules d'une même colonne contient des nombres.
Certaines cellules ont pour contenu : #NOM?
De cette manière, la fonction Somme automatique ne peut afficher le résultat total de ces cellules.

Je souhaiterais modifier le contenu de ces cellules erronées via une macro, en la remplaçant par le chiffre 0,00

Code:

---

1 2 3 4 5 6 7 8

Sub macro() Dim Cell As Range For compteur = 1 To 1 If IsError(Cell) Then ActiveCell = "0,00" End If Next compteur End Sub

---

Quelqu'un peut-il m'aider à corriger ce qui ne va pas ?

Vous en remerciant par avance.

Cordialement.

Salut BtjpsspgrW,

"IsError" doit bien marcher dans ton cas. Je pense que c'est plutôt le fait que tu parcours mal ta range.

Un truc comme ça (pas testé) :aie: :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub macro() Dim rng As Range   With Worksheets("Feuil1") Set rng = .Range("B1:B1000")   For each CurCell in rng if IsError(CurCell) then CurCell = 0 End if Next CurCell End with End Sub

---

:ccool:
Cordialement,
Kimy

Bonsoir,

Code:

---

1 2 3 4 5 6 7 8

Sub macro() Dim Cell As Range For compteur = 1 To 1 If ActiveCell.text= "#NOM?" Then ActiveCell = "0,00" End If Next compteur End Sub

---