Suppression zéro

Bonjour,

je veux supprimer les dans ma colonne R qui ont des valeurs négligeables comme:

0,0000000000013(1,30E-12) ou -0,0000000002037 (-2,037E-10).

Avec ma macro j'y arrive pas seul les "0" sont supprimés.

Sub test_0()
For i = Feuil2.Range("r" & Rows.Count).End(xlUp).Row To 8 Step -1
If Mid(Range("R" & i).Value, 1, 2) = 0#  Then
Rows(i).Delete
End If

Merci d'avance.

Bonjour

Il te faudrait d'abord définir ce qui pour toi est une valeur négligeable. Ex : inférieure à 0.1 ou encore à 0.01...

Ta condition deviendra alors, par exemple :

If Range("R" & i) < 0.01 Then

Bye !

re gmb,

merci pour votre réponse du coup avec ça j'ai à peu près ce que je veux :

If Range("R" & i).Value < 0.01 And Range("R" & i).Value > -0.01 Then

Merci bcp