Effacer ligne doublons

[pierrof]

Bonjour

J'ai un soucis quand je lance ma macro pour effacer mes lignes en doublons.
J'ai l'erreur 429 qui apparait et au débogage j'ai : Set MonDico = CreateObject("Scripting.Dictionary") qui est surligner.

Je pense que c'est la version d'excel qui coince.

Merci de votre aide


Dim MonDico
Set MonDico = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
i = 2
Do While Cells(i, "F") <> ""
temp = Cells(i, "F")
If Not MonDico.Exists(temp) Then
MonDico.Add temp, temp
i = i + 1
Else
Rows(i).EntireRow.Delete
End If
Loop
Application.ScreenUpdating = True

 

[MJ13]

Re : Effacer ligne doublons

Bonjour Pierrof

En général, pour supprimer des lignes , il vaut mieux partir de la dernière ligne à la première (avec step -1).

 

[Efgé]

Re : Effacer ligne doublons

Bonjour pierrof, Bonjour MJ13 🙂,
Il faut aussi, je pense, déclarer Mondico As Object...

Sub sup()
Dim MonDico As Object, i As Long
Set MonDico = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 6).End(xlUp).Row To 2 Step -1
    Temp = Cells(i, 6).Value
    If Not MonDico.Exists(Temp) Then
        MonDico(Temp) = Temp
    Else
        Rows(i).Delete
    End If
Next i
Application.ScreenUpdating = True
End Sub

Cordialement

 

[pierrof]

Re : Effacer ligne doublons

Bonjour à tous

Merci je vais essayer, je vous tiens au courant.

A plus tard