Macro suppression ligne

sevy1 · 7 Novembre 2013

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 · 7 Novembre 2013

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!!

Code:

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 · 8 Novembre 2013

Re : Macro suppression ligne

Bonjour
Merci ça marche

Macro suppression ligne

sevy1

XLDnaute Occasionnel

Pièces jointes

laetitia90

XLDnaute Barbatruc

sevy1

XLDnaute Occasionnel

Discussions similaires

Macro suppression ligne

sevy1

XLDnaute Occasionnel

Pièces jointes

laetitia90

XLDnaute Barbatruc

sevy1

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency