Explication d'une macro (petite)

Bonjour tout le monde,

J'ai voulu exploité la macro qu'on m'avait si gentiment créer pour aider quelqu'un mais il y a un petit problème.

L'objectif de cette macro est de supprimer tous les 0 de ma colonne numéro 7 à partir de la ligne 200 (j'ai d'office moins de 200 lignes de valeurs mais il aurait peut-être été plus propre de définir la plage étant jusqu'à la dernière valeur/cellule remplie, mais détail).

Elle marche très bien pour moi mais chez l'autre personne, on se rends compte que la macro supprime des valeurs très faibles proche de 0 mais différente ! genre : 0,001 elle va la supprimer.

En observant la macro je me suis dit, évident puisqu'il y a un " < " dedans, mais en le suppriment le problème persiste :/

Quelqu'un a une idée pour résoudre ce problème ?

       Sheets("Hysteresis RE").Select
    For i = 3 To 200               'de la ligne à la ligne'
    For j = 7 To 7                 'de la colonne à la colonne'
    If Cells(i, j) <= 0 Then
    Cells(i, j).ClearContents
    End If
    Next j
    Next i

Bonne soirée tout le monde

Bonjour,

Malgrè le faible écart, la valeur 0,001 reste supérieure à zéro et ne devrait pas être effacé.

Tu devrais joindre un extrait de ton fichier.

En attendant, tu peux tester le code suivant :

    With Sheets("Hysteresis RE")
        For i = 3 To .Cells(Rows.Count, 7).End(xlUp).Row
            If .Cells(i, 7) <= 0 Then .Cells(i, 7).ClearContents
        Next i
    End With

A+

Re tout le monde,

En étant plus attentif je me suis aperçu que c'était bien simplement un problème à cause de " < " !

Encore toutes mes excuses pour le dérangement :/

Mais merci pour la réécriture plus "propre" de la macro !