Suppression de doublon spéciale par rapport aux valeurs de 3 colonnes

[anber]

Bonjour le Forum,

Je recherche le code pour supprimer les doublons en fonction des valeurs de 2 colonnes et ne conserver que la ligne ayant la valeur maxi dans une troisième.
J'espère avor été clair dans mon explication
Ci-joint un fichier d'exemple expliquant le souhait

Merci

 

[laetitia90]

Re : Suppression de doublon spéciale par rapport aux valeurs de 3 colonnes

bonjour anber
essai comme cela "code brut"

Sub es()
 Dim m As Object, i As Long, z As Variant
 Application.ScreenUpdating = False
 Set m = CreateObject("Scripting.Dictionary")
 For i = Cells(Rows.Count, 7).End(xlUp).Row To 1 Step -1
 z = Cells(i, 7) & Cells(i, 11)
 If Not m.Exists(z) Then
 m.Add z, z
 Else
 Rows(i).Delete
 End If
 Next i
End Sub

 

[anber]

Re : Suppression de doublon spéciale par rapport aux valeurs de 3 colonnes

Bonjour laetitia90

C'est parfait

Merci