Suppression doublons sous condition

boujours le forum

je sais que le sujet a été traité un nombre de fois incalculable...mais j'ai un soucis que je n'arrive pas à résoudre.

en faite je veux supprimer les lignes doublon que si la valeur de la colonne A est égale à "NOM", pour qu'il ne m'en reste qu'une.

j'ai essayé pas mal de code mais sois je supprime tous sois rien...

par exemple: celui ci efface tous...

Sub Doublons()
    For Each cellule In Range("A1:A6000")
        If cellule.Value = "NOM" Then cellule.EntireRow.Delete
    Next
End Sub

merci de votre aide

cordialement

Bonjour,

pas de fichier exemple ?

P.

bonjour a tous

DSL patrick , je n'avais pas vu qu'il n'étais pas passé.

le voici avec une code qui fonctionne sur 2003 mais pas sur 2013 , je n'arrive pas à modifier la boucle.

merci

Bonjour,

il faut commencer pas le bas déjà

rem: si toutes les cellules de la colonne A on le mot NOM, il ne restera rien

rem2: un doublon est un ligne parfaitement identique à une autre, dans ton exemple c'est vrai mais dans la réalité surement pas...

Pour exclure de vrais doublons, il y a d'autre manières.

Une manière de faire ici:

Sub DeleteDouble()
Dim rRange As Range
Dim rCell As Variant
Dim Lastl
Lastl = [A65000].End(xlUp).Row
Application.ScreenUpdating = False
For i = Lastl To 3 Step -1
If Cells(i, 1) = "NOM" Then
   Cells(i, 1).EntireRow.Interior.ColorIndex = 12 ' test en couleur 
   ' Cells(i, 1).EntireRow.Delete ' suppression de la ligne
End If
Next
End Sub

re,

merci Patrick pour ta réponse

j'avais une erreur de compilation (objet ou bibliothèque introuvable)sur le [A65000] mais c’était juste un problème de référence manquante

mon problème est résolu

merci beaucoup Patrick

mes hommages à tous le forum