Suppression des doublons avec des caractères en plus

[OlivierAeronet]

Et oui encore un poste sur la suppression de doublons... malheureusement après avoir fouillé le web et ce forum pendant de nombreuse heures (on est 2 en plus) nous n'avons toujours pas trouvé de solution à notre problème.

Nous avons tiré une liste de sites depuis un annuaire. cependant certains de ces sites ont plusieurs url :
ex :

http://www.abc.fr/
http://www.abc.fr/tgb.html
http://www.abc.fr/lki

Ce que nous cherchons a faire, c'est de supprimer (via une macro) ces fameux doublons. Nous avons trouver un code qui fonctionne mais que pour une ligne à la fois, il ne boucle pas. Le voici

Sub select_supr()
   x = 2
     Do While Not Cells(x, 1) = ""

        If Cells(x, 1) Like Cells((x - 1), 1) & "*" Then
       Cells(x, 1).Select
            Selection.EntireRow.Delete
        End If
        x = x + 1
     Loop
End Sub

Si vous avez des idées nous somme preneurs ^^
Merci d'avance !!

 

[Pierrot93]

Re : Suppression des doublons avec des caractères en plus

Bonjour,

quand tu veux supprimer des lignes il faut commencer par la fin (dernière ligne renseignée) et remonter... tu trouveras plein d'exemples sur le forum....

bon après midi
@+