Suppression des lignes en doublon sur 2 critères

[chris6999]

Bonjour

J'ai un fichier à traiter sur lequel je souhaiterais supprimer par une macro toutes les lignes reconnues comme en doublon c'est à dire lorsque la valeur de la colonne B et celle de la colonne E sont identiques.
La plage est variable car je ne sais jamais à l'avance combien de lignes fera mon fichier.
Pour info la première ligne correspond aux entêtes de colonnes.

L'intérêt serait de conserver la deuxième ligne qui correspond aux données les plus récentes.

Quelq'un peut-il m'aider?

J'ai trouvé pas mal de fils suir la question mais aucun ne correspond à mon ce cas précis.

Merci d'avance pour votre aide
Cordialement

 

[youky(BJ)]

Re : Suppression des lignes en doublon sur 2 critères

Bonjour Chris699,
Voici une macro (nom de la sheets à mettre en conséquence)
Bruno

Sub SuppDoublon()
With Sheets("Feuil1") 'nom de feuille à modifier
Set dico = CreateObject("Scripting.Dictionary")
For k = .Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
tx = Cells(k, 2) & Cells(k, 5)
If dico.Exists(tx) Then
Rows(k).Delete
Else
dico.Item(tx) = dico.Item(tx)
End If
Next
End With


End Sub

 

[chris6999]

Re : Suppression des lignes en doublon sur 2 critères

Bonjour et merci Youki
Je vais tester tout ça

Cordialement

 

[Ketats1]

Re : Suppression des lignes en doublon sur 2 critères

Bonjour tout le monde,
j'aurais besoin de votre aide pour ce qui suit.

la la tab: Report, je vais selectionner le pays.

La tab: Extract ESr, il y les donner qui vont tetre retrvailler selon la selection.

les colonnes T-U- V-W sont déja fait.

Ce que je cherche à faire (peut etre une petite macro), c'est dans la colonne X reprendre que les valeur uniques de la colonne X sans les doublons, et automatiquement chaques fois que les donner dans les colonnes précéedentes changes.

Merci pour votre aide et soutien.