Discussion :

[Tiphaine13]

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
 
---------------------------------------------------

[jerome.vaussenat]

Salut,

Voici une proposition de code.

Quand tu veux faire le ménage dans ton fichier, il est plus simple de commence par le bas. De cette manière, les lignes supprimées ne te gènent pas.

Dans ton code, il manque déjà l'incrémentation du compteur ...

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
Sub nettoye()
Dim derligne As Integer
Dim ligne As Integer
 
'on trouve la ligne de la dernière cellule utilisée dans la colonne A
derligne = Range("A65536").End(xlUp).Row
 
'on parcourt le tableau du bas vers le haut
For ligne = derligne To 3 Step -1
    'si l'écart est inférieur à 5
    If Cells(ligne, 1).Value - Cells(ligne - 1) < 5 Then
        'on supprime la ligne
        Cells(ligne, 1).EntireRow.Delete
    End If
 
Next
End Sub

En espérant que cela fasse ce que tu veux.

[Tiphaine13]

Bonsoir,

Merci pour ta réponse. C'est pas encore un Eureka, mais j'avance. Déjà j'avais une incompatibilité mais c’était dû au format standard de la cellule, au format nombre ça marche. Donc oui, cela fait quelquechose mais pas exactement ce que je veux. Il supprime trop de lignes! Notament si la difference est inferieure à 5 mais avec des lignes qui ne sont pas adjacentes. Bon je continue a chercher . Merci quand meme!

T

[jerome.vaussenat]

Salut,

C'est surement dû à une configuration de lignes de ce type :
L1 5
L2 7
L3 9

au premier passage XL va comparer le 9 et le 7. du coup il va supprimer la L3
au deuxieme passage XL va comparer le 7 et le 5. du coup il va supprimer la L2.

Je ne sais pas si tu as remarque que c'est la ligne du bas qui est virée ???

[Tiphaine13]

Salut Jérôme,

Non, ce n'est pas ça, car si il supprimait les lignes 2 et 3 dans ton exemple, je suis ok, c'est ce que je veux.

Voila les lignes que j'ai teste, il supprime les lignes du bas, ca me va, alors je veux qu'il supprime L11/L10/L9, L5 et L3. C'est ce qu'il fait mais il supprime également L7 et L12, et même L4! Je ne comprend pas pourquoi. J'utilise ce que tu m'as proposé, j'ai juste changé Cells(ligne - 1,1), il manquait l'index de colonne.

L1 799
L2 1154
L3 1156
L4 822
L5 820
L6 1025
L7 465
L8 1726
L9 1722
L10 1722
L11 1720
L12 462

Merci encore de ta réponse.

Tiphaine

[jerome.vaussenat]

Salut,

Et bien ,c'est normal mon capitaine !
Si on regarde les ligne 3 et 4. On a 822 - 1156 = -334. Et si je ne suis pas mauvais en maths -334 < 5 c'est vrai !

Du coup, on ajoute un petit coup de valeur absolue et on est bon.

Ce qui donne :

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
Sub nettoye()
Dim derligne As Integer
Dim ligne As Integer
 
'on trouve la ligne de la dernière cellule utilisée dans la colonne A
derligne = Range("A65536").End(xlUp).Row
 
'on parcourt le tableau du bas vers le haut
For ligne = derligne To 3 Step -1
    'si l'écart est inférieur à 5
    If Abs(Cells(ligne, 1).Value - Cells(ligne - 1, 1)) < 5 Then
        'on supprime la ligne
        Cells(ligne, 1).EntireRow.Delete
    End If
 
Next
End Sub

Pour info, j'ai exécuté le code en me mettant dans le module et une petite succession de F8 pour voir comment se passe le déroulement et çà aide ...