Discussion :

[pegase33]

Bonjour,
Avec une macro j'aimerais supprimer les doublons existants sur les différentes feuilles de mon classeur en considérant les 3 colonnes avec comme entête :
Jeux Email Date
Merci

[SfJ5Rpw8]

pour le principe .. tri de tes données .. sur Jeux Email Date, puis parcours des lignes de la derniére à la premiére (c'est plus simple pas de décalage lors de suppression de linge) , et suppression d'une ligne si la ligne d'au dessus est égale...

[AlainTech]

De quoi t'inspirer après le conseil de bbil pour le tri:
Comment supprimer des lignes en double dans une feuille Excel?
Il ne te restera qu'à tester tes autres colonnes.

[pegase33]

Si j'ai un EntireRow.Delete sur 2 colonnes...j'aurai des suppressions de lignes qui peuvent avoir une Date (3ème colonne) différente par exemple.
Donc dans ce cas là ça ne convient pas!
Pour l'instant j'ai utilisé le filtre élaboré avec extraction sans doublons sur la plage de données UsedRange.Select
Ca donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveSheet.UsedRange.Select
    selection.AdvancedFilter Action:=xlFilterInPlace, Unique:=True

Mais comme c'est un filtre j'ai les lignes de doublons masquées ...Y'a t-il une macro pouvant supprimer les lignes masquées?

[illight]

Heuu il y a des doublons dans le feuille que tu as joint ? parce que moi j'en trouve pas

En fait, pour essayer j'ai juste créer une nouvelle colonne ou j'ai mis cette formule (après avoir avoir fait un tri sur les 3 colonnes Date email et Jeux) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ET(A2=A1;B2=B1;C2=C1);"doublon")

Normalement cette formule te retourne "doublon" si, après avoir fait un tri, tes 3 cellules sont finalement les memes..Ou alors j'ai mal compris ton soucis

[pegase33]

Si si illight ...regarde bien la feuille Lotree...
Pour supprimer les lignes masquées j'ai trouvé ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 65536 To 1 Step -1
If Rows(i).Hidden = True Then Rows(i).Delete
Next i

Seul souci...c'est que le traitement est un peu long avec i = 65536 To 1 Step -1