Microsoft 365 Eliminer les doublons

sgsndahn · 25 Octobre 2024

Bonjour et merci de m'accueillir sur le forum. J'ai une préoccupation depuis quelques jours. J'ai une liste d'élèves avec des notes de plusieurs matières, obtenues chaque mois à l'issue des interrogations. L'extraction m'a sorti une liste avec des doublons de lignes. Vu le volume des lignes (800000 environ) je suis en quête d'une formule sans macro et vba qui me permettra de ramener cette liste sur une autre feuille sans doublon. Voici ma demande de ce matin et je vous remercie pour vos contributions

vgendron · 25 Octobre 2024

Bonjour

800000 lignes.. une formule, c'est pas la bonne solution
et pour supprimer les doublons.. excel le fait très bien lui même
menu Données / Outils de données / Supprimer les doublons

sgsndahn · 25 Octobre 2024

vgendron à dit:
Bonjour

800000 lignes.. une formule, c'est pas la bonne solution
et pour supprimer les doublons.. excel le fait très bien lui même
menu Données / Outils de données / Supprimer les doublons

Quand je fais cela excel me supprime d'autres données aussi importantes. Et cela ne résoud pas le problème

job75 · 25 Octobre 2024

Bonjour,

sgsndahn à dit:
Quand je fais cela excel me supprime d'autres données aussi importantes.

Il faut que toutes les colonnes du tableau soient prises en compte.

Ainsi seules les lignes en doublon identiques seront supprimées.

A+

Efgé · 25 Octobre 2024

Bonjour à tous, Bienvenu @sgsndahn
Un petit fichier exemple est toujours le bienvenu pour voir la réalité du problème...
Même si la meilleure solution est celle proposée par @vgendron et expliquée par @job75 , je propose pour le fun une formule avec un tableau structuré nommé Data :

VB:

=LET(
EnTete;Data[#En-têtes];
Cle;BYROW(Data;LAMBDA(Rw;JOINDRE.TEXTE("";;Rw)));
U;UNIQUE(Cle);
Extract;INDEX(Data;EQUIVX(U;Cle;0);EQUIVX(EnTete;EnTete;0));
ASSEMB.V(EnTete;Extract)
)

C'est plus compliqué, mais c'est faisable.
Cordialement

EDIT du 26/10/024
Plus courte mais pas forcément plus simple;

VB:

=LET(
EnTete;Data[#En-têtes];
Cle;BYROW(Data[#Tout];LAMBDA(Rw;CONCAT(Rw)));
INDEX(Data[#Tout];EQUIVX(UNIQUE(Cle);Cle;0);EQUIVX(EnTete;EnTete;0))
)

Microsoft 365 Eliminer les doublons

sgsndahn

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

sgsndahn

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

Discussions similaires