Discussion :

[dafchap]

Bonjour,

dans une colonne je veux effacer les valeurs négatives, j'ai donc écrit

Code :

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

1
2
3
4
5
6
7
 Dim myRange As Range
Dim cell As Range
Set myRange = ActiveSheet.Range("F3:F" & dl)
 
For Each cell In myRange
If cell.Value <0 Then cell.Clear
Next cell

Sauf que dans cette colonne il existe des cellules dont le contenu est "#DIV/0!" que je voudrais effacer aussi. Comment effacer ces contenus sans que la boucle for each s'arrête sur la première cellule "#DIV/0!" générant à chaque fois une erreur "2007"?

Merci d'avance pour votre aide,

David

[Marc-L]

Bonjour,

contrôler la valeur de la cellule avec la fonction IsError par exemple …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[dafchap]

Bonjour,

merci pour votre suggestion. En effet si j'écris

Code :

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

1
2
3
For Each cell In myRange
If IsError(cell.Value) Then cell.Clear
Next cell

ça m'efface le #DIV/0. Par contre si j'écris :

Code :

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

1
2
3
For Each cell In myRange
If IsError(cell.Value) Or cell.Value<0 Then cell.Clear
Next cell

ça bug, alors j'ai écris les deux conditions dans 2 boucles différentes

Code :

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

1
2
3
4
5
6
7
8
 
For Each cell In myRange
If IsError(cell.Value) Then cell.Clear
Next cell
 
For Each cell In myRange
If cell.Value < 0 Then cell.Clear
Next cell

mais là ça plante aussi, "erreur 2007" il semblerait que le #DIV/0 situé en cellule G3 n'ait pas été effacé par la premire boucle(je parcours la plage de donnée "F3:G" & dl, avec dl un entier supérieur à 3))

[Marc-L]

Aucun souci de mon côté :

Code :

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

1
2
3
4
5
6
7
8
9
         Dim Cel As Range
 
    For Each Cel In MyRange
        If IsError(Cel.Value) Then
            Cel.Clear
        ElseIf Cel.Value < 0 Then
            Cel.Clear
        End If
    Next

_________________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Menhir]

En une seule ligne et un seul comparateur :

Code :

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

1
2
3
For Each cell In myRange
    If InStr("#-", Left(Cell.Texte, 1)) <> 0 Then cell.Clear
Next cell

[Marc-L]

Sauf que la propriété .Texte n'existe pas !

J'ai posté en académique le code précédent mais en une seule ligne aussi :

Code :

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

        If IsError(Cel.Value) Then Cel.Clear Else If Cel.Value < 0 Then Cel.Clear

[Menhir]

Réflexe digital francophone => faute de frappe.