[VB.Excel] Supprimer & compter les lignes en double

bonjour yg_be,

merci pour ton retour, donc je vais vous explique pourquoi la ligne 6 est en double:
la ligne 6 et en double sur la ligne 5.

concentrent nous sur la colonne "B" et "D", pour les lignes 6 et 5 j'ai le (B6=D5) et (B5=D6), bien sûr les autres colonnes sont identiques, c'est juste la direction du déclaration des valeur sur la colonne "B" et "D" qui fait la différence, voila pourquoi cette ligne est en double.

donc je veux une macro qui cherche les lignes, et qui ne prend pas en compte la direction des déclarations des valeurs que pour la colonne "B" et "D", gardez le 1er ligne trouver et supprimer les autres lignes + compter sur la colonne "G" combien de fois cette ligne a été trouvé.

merci.

bonjour,

l'ordre des lignes n'est pas important.
je veut faire cela chaque fois, car ça peut arriver que cette ligne sera déclarée plus que 2 fois.
je veux les supprimer pour voir combien de fois sont-elles déclarer (et les compter sur la colonne "G").

merci d'avance yg_be.

Merci pour le retour,

vous saviez quoi, je n'ai jamais suivi de cours de programmations, je fais des recherches juste pour mon besoin car ce monde de codage me plais beaucoup.

ci-dessous mon retour concernant vos interrogations:
pas très souvent, mais j’aurai besoin de cette manip de temps en temps.
automatiser la manip oui afin de faciliter ma tâche de vérification.

pour la technique a suivre vous êtes raison, c'est trop fatiguent surtout pour quelqu'un comme moi :)

pouviez-vous m'aider déjà d'où vient l’erreur sur mon code ci-dessous, qui renvoie la valeur "Doublon" sur la colonne "G" pour les lignes identiques, car j'ai passé toute cette après-midi à frapper sur le mûr.

merci.


Sub SetC()
'declaration des variable selon lettre des colonnes
Dim a%, b%, c%, d%, e%, f%, g%, x%
For b = 2 To 17
x = 0
For d = 2 To 17
If Cells(b, 2).Value = Cells(d, 4).Value Then
If Cells(a, 1).Value = Cells(c, 3).Value Then
If Cells(e, 5).Value = Cells(e, 5).Value Then
If Cells(f, 6).Value = Cells(f, 6).Value Then Cells(g, 7).Value = "Doublon"
x = x + 1
Exit For
End If
End If
End If


If d = 17 Then

For a = 2 To 17
If Cells(b, 2).Value = Cells(d, 4).Value Then
If Cells(a, 1).Value = Cells(c, 3).Value Then
If Cells(e, 5).Value = Cells(e, 5).Value Then
If Cells(f, 6).Value = Cells(f, 6).Value Then Cells(g, 7).Value = "Doublon"
x = x + 1
Exit For
End If
End If
End If


If d = 17 And x = 0 Then

End If
Next a
End If
Next d
Next b

MsgBox "Traitement terminé"

End Sub