Discussion :

[BtjpsspgrW]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Kimy_Ire]

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é) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement,
Kimy

[Invité]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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