un composant activeX ne peut pas créer l'objet

pierrof

XLDnaute Occasionnel
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
 

Discussions similaires

Réponses
12
Affichages
1 K

Statistiques des forums

Discussions
312 310
Messages
2 087 119
Membres
103 478
dernier inscrit
Frederic Lagger