Macro suppression ligne

[sevy1]

Bonsoir à tous
J'ai un souci, j'ai un fichier qui comporte des numéros de dossiers et chaque numéro apparait trois fois je cherche à supprimer de façon automatique les deux premières occurrences de façon à ne conserver que la troisième occurrence
Le numéro se trouve sur la colonne C la ligne que je veux conserver est en vert.
Merci pour votre

 

[laetitia90]

Re : Macro suppression ligne

bonjour sevy1🙂
une facon de l'ecrire si beaucoup de lignes on pourra optimiser avec un tablo. mais bon sans plus d'infos!!

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

quoi que?? z= Cells(i, 3) doit être suffisant

 

[sevy1]

Re : Macro suppression ligne

Bonjour
Merci ça marche