Bonjour,

Alors je vous explique la situation. Je suis en stage dans une boîte d'organisation d'évenement médicale et aujourd'hui j'ai recu pour mission de supprimer les doublons (meme nom et prenom et adresse, on ne tient pas compte des autres informations) dans une magnifique liste de 5000 personnes.

Il y en a énormement et donc j'ai décider de me lancer dans une macro excel.

Voila mon code :

Sub Suppressiondouble()
'
' Suppressiondouble Macro
' Macro enregistrée le 09/01/2008 par Prod4
'
Dim I As Long
Dim Plage_nom As Range
Dim Plage_prenom As Range
Dim Plage_addresse As Range
Set Plage_nom = Range("C2:C" & Range("C2").End(xlDown).Row)
Set Plage_prenom = Range("D2:D" & Range("D2").End(xlDown).Row)
Set Plage_adresse = Range("G2:G" & Range("G2").End(xlDown).Row)
For I = Plage_nom.Cells.Count To 1 Step -1
If Plage_nom.Cells(I).Value = Plage_nom.Cells(I - 1).Value And Plage_prenom.Cells(I).Value = Plage_prenom.Cells(I - 1).Value And Plage_adresse.Cells(I).Value = Plage_adresse.Cells(I - 1).Value Then
Plage_nom.Cells(I).EntireRow.Delete
End If
Next

'
End Sub


Lorsque j'éxécute ma macro, j'ai le message d'erreur "La méthode Delete de la classe range a échoué". Je suis débutant en maccro, j'ai appris aujourd'hui en zieutant le forum comment ca marche et donc je ne sais pas comment régler ce probleme. Si j'enlève ma condition IF, tout mon tableau se supprime ce qui montre que le delete fonctionne non? Peut etre ai-je fais une érreur dans la condition de mon IF, aidez moi s'il vous plait.
Merci a bientot. Configuration: Windows XP
Excel 2003
Internet Explorer 7.0