Effacer ligne doublons

pierrof · 19 Mai 2011

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 · 19 Mai 2011

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é · 19 Mai 2011

Re : Effacer ligne doublons

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

VB:

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 · 19 Mai 2011

Re : Effacer ligne doublons

Bonjour à tous

Merci je vais essayer, je vous tiens au courant.

A plus tard

Effacer ligne doublons

pierrof

XLDnaute Occasionnel

MJ13

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

pierrof

XLDnaute Occasionnel

Discussions similaires

Effacer ligne doublons

pierrof

XLDnaute Occasionnel

MJ13

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

pierrof

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency