Supprimer les doublons de lignes entièrement identiques

C'est bien détaillé ici :

https://support.office.com/fr-fr/article/Ajouter-un-bouton-et-lui-attribuer-une-macro-dans-une-feuille-de-calcul-adec9584-3925-47c9-998f-def71ff6a4a3

Ca marche ?

Alors sans bouton j'ai essayé de faire "exécuter la macro" et j'obtiens 12 291 lignes (des individus dans mon cas). Lorsque j'avais testé la commande excel "supprimer les doublons" j'étais arrivée à 12 280 lignes.. Oups.. lequel est juste à ton avis ?

Re,

Le résultat devrait être le même normalement mais sans voir le fichier il m'est impossible de répondre !

Au mois on a pas un qui dit 2 et l'autre 12900 c'est déjà ça ...

Ah ah, ouais t'as raison, c'est presqu'ok !! En tous cas je te remercie vraiment très sincèrement de ton aide, tu m'as sauvé ma 1ère journée et peut-être même ma nuit

Pour le bouton je crois que je verrai demain !!

Un grand merciiiiiiiiiiiiiiiiiiiiiii

Avec plaisir ! On a eu un fil de 500 messages qui aurait pu tenir en 2

Bonne continuation ! Et bonne nuit !

Vi t'as raison, j'ai pas été terriblement efficace sur ce coup-là

Merci encore, et peut-être à bientôt

Nath39 a écrit :

Merci h2so4 et comment fait-on si le fichier a 12000 lignes ? Il y a une astuce ?

Merci bcp !

si le fichier fait 12000 lignes au lieu de 14 il faut remplacer 14 par 12000 dans l'instruction

Sub aargh()

    ActiveSheet.Range("$A$1:$T$14").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7 _
        , 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20), Header:=xlNo
End Sub

et donc le code devient

Sub aargh()

    ActiveSheet.Range("$A$1:$T$12000").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7 _
        , 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20), Header:=xlNo
End Sub