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

anber · 28 Janvier 2013

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 · 28 Janvier 2013

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

bonjour anber
essai comme cela "code brut"

Code:

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 · 28 Janvier 2013

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

Bonjour laetitia90

C'est parfait

Merci

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

anber

XLDnaute Occasionnel

Pièces jointes

laetitia90

XLDnaute Barbatruc

anber

XLDnaute Occasionnel

Discussions similaires

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

anber

XLDnaute Occasionnel

Pièces jointes

laetitia90

XLDnaute Barbatruc

anber

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency