Supprimer des doublons non triés sur une colonne

[Kernoz]

Bonjour à tous !

Je cherche depuis 3 plombes à faire un petit bout de code mais j'ai beau essayer je n'y arrive pas ...

J'ai une macro qui ajoute des données à la suite d'un tableau existant en fonction de dates.
Je voudrais, si par exemple un utilisateur active la macro pour une date deja renseignée ou si les données de cette date ont changées :
* supprimer les anciennes valeurs ( les plus hautes dans le range ) et garder celles qui viennent d'être collées ( les plus basses ).

J'ai essayé avec "RemoveDuplicates" mais cela supprime la ligne la plus basse ...
J'ai essayé en triant mais la ligne basse reste en dessous ...
J'ai essayé avec Application.CountIf mais ca ne marche pas ...
J'ai entendu parler de l'objet dictionary mais je ne connais pas du tout ...

Bref, il me faut un coup de main J'ai mis un exemple en PJ.

Merci d'avance !

 

[Papou-net]

Re : Supprimer des doublons non triés sur une colonne

Bonjour Kernoz,

Pas très clair tout ça, ton fichier ne contient aucune macro! Peux-tu la joindre à ton fichier?

A +

Cordialement.

 

[thebenoit59]

Re : Supprimer des doublons non triés sur une colonne

Bonsoir.

Une idée de code :

Sub sansdoublon()
Dim d As Object, ds As Object
Dim dligne As Long, ligne As Long
Set d = CreateObject("scripting.dictionary"): Set ds = CreateObject("scripting.dictionary")
dligne = [b65000].End(xlUp).Row
For ligne = dligne To 7 Step -1
    If Not d.exists(Cells(ligne, 6).Value) Then
        d(Cells(ligne, 6).Value) = ""
            Else: ds(Cells(ligne, 6).Value) = ligne
    End If
Next
For Each c In ds.items
    Rows(c).Delete
Next
End Sub

Bonne soirée.

 

[laetitia90]

Re : Supprimer des doublons non triés sur une colonne

bonjour tous

si pas trop de lignes on peut ecrire comme cela aussi !!

Dim m As Object, i As Long
   Set m = CreateObject("Scripting.Dictionary")
   For i = Cells.Find("*", , , , , xlPrevious).Row To 7 Step -1
   If m.Exists(Cells(i, 6).Value) Then _
   Rows(i).Delete Else m.Add Cells(i, 6).Value, Cells(i, 6).Value
   Next i

 

[Kernoz]

Re : Supprimer des doublons non triés sur une colonne

Désolé de cette réponse tardive mais j'ai eu trop peu de temps pour me replonger dans ce probleme ...

Ca marche super ! Merci beaucoup pour votre réponse