Bonjour le forum
J'ai une erreur d'exécution '429'
Sur le code suivant pour effacer les doublons:
'Effacer doublons
Set MonDico = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
i = 2
Do While Cells(i, "AB") <> ""
temp = Cells(i, "AB")
If Not MonDico.Exists(temp) Then
MonDico.Add temp, temp
i = i + 1
Else
Rows(i).EntireRow.Delete
End If
Loop
Sur d'autre poste la macro fonctionne bien (excel 2007)
Merci de votre aide
J'ai une erreur d'exécution '429'
Sur le code suivant pour effacer les doublons:
'Effacer doublons
Set MonDico = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
i = 2
Do While Cells(i, "AB") <> ""
temp = Cells(i, "AB")
If Not MonDico.Exists(temp) Then
MonDico.Add temp, temp
i = i + 1
Else
Rows(i).EntireRow.Delete
End If
Loop
Sur d'autre poste la macro fonctionne bien (excel 2007)
Merci de votre aide