Bonjour,

j'ai un fichier avec de nombreuses lignes. Dans la colonne A j'ai des valeurs, je voudrais les comparer d'une ligne a l'autre, et supprimer la ligne entière si leur différence est inférieure à 5. C'est un peu une recherche de doublons mais avec une sorte de marge d'erreur. J'ai trouvé un code pour comparer si les nombres sont exactement les mêmes (voir ci-dessous).

J'ai essayé de remplacer If ActiveCell.Offset(cpt, 0).Value = ActiveCell.Offset(cpt + 1, 0).Value Then par If ActiveCell.Offset(cpt, 0).Value -ActiveCell.Offset(cpt + 1, 0).Value < 5 Then mais cela ne semble pas être la bonne syntaxte.

Merci de votre aide,
Tiphaine

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
---------------------------------------------------------------------
Sub Macro1()
'
' Macro1 Macro
'
Dim cpt As Integer
cpt = 0
 
    Range("A2").Select
    Do While ActiveCell.Offset(cpt, 0).Value <> ""
        If ActiveCell.Offset(cpt, 0).Value = ActiveCell.Offset(cpt + 1, 0).Value Then
            ActiveCell.Offset(cpt + 1, 0).EntireRow.Delete
        Else
            ActiveCell.Offset(1, 0).Range("A1").Select
 
        End If
    Loop
End Sub
 
---------------------------------------------------