XL 2016 Supprimer enregistrement identique

[KTM]

Bonjour chers tous

Je voudrais supprimer par macro sur mes deux plages les lignes pour lesquelles le Code - l'Age - le sexe sont identiques.
Merci et bonne journée.

 

[KTM]

Salut, voir en pj le fichier tri.xlsb, lancer la macro Test.
A toi de poursuivre en l'adaptant à ton contexte.

sinon [F1] sur RemoveDuplicates

Merci beaucoup

 

[Jacky67]

Bonjour à tous,
S'il faut comme demandé
"Je voudrais supprimer par macro sur mes deux plages les lignes... "
alors
" RemoveDuplicates "
ne fait pas

 

[Jacky67]

Si tu avais regardé la copie d'écran ou le fichier tu aurais vu qu'elles avaient été regroupées.

Hello kiki29
Bien sur que j'ai regardé
Cela ne change rien à la question initiale, dans le "résultat final" les données sont encore présentes, alors que la demande était de les supprimer dans les deux plages.
Ou alors la demande était mal posée....

 

[Jacky67]

kiki29 a dit:
"Tu n'as rien compris "

Certes, je veux bien.
Explique moi s'il te plait

 

[pierrejean]

Bonjour KTM
A tester

 

[Jacky67]

Bonjour KTM
A tester

Hello pierrejean
Je constate que tu as compris la même chose que moi à la demande.

 

[job75]

Bonjour KTM, kiki29, Jacky67, Pierre,

Voyez le fichier joint et la macro du bouton :

Private Sub CommandButton1_Click()
Dim P As Range, Q As Range, Prc&, Qrc&, R As Range, S As Range
Set P = [A1].CurrentRegion: Prc = P.Rows.Count - 1
Set Q = [G1].CurrentRegion: Qrc = Q.Rows.Count - 1
If Prc * Qrc = 0 Then Exit Sub 'si un tableau est vide
Set P = P.Offset(1).Resize(Prc)
Set Q = Q.Offset(1).Resize(Qrc)
Application.ScreenUpdating = False
P.Copy Q(Qrc + 1, 1): Set R = Q(Qrc + 1, 1).Resize(Prc, P.Columns.Count)
Q.Copy P(Prc + 1, 1): Set S = P(Prc + 1, 1).Resize(Qrc, Q.Columns.Count)
P.EntireColumn.RemoveDuplicates Array(1, 3, 4)
Q.EntireColumn.RemoveDuplicates Array(1, 3, 4)
R.Cut P(Prc + Qrc + 1, 1): S.Cut Q(Prc + 1, 1)
P.Resize(Prc + Qrc).Delete xlUp: Q.Delete xlUp
With UsedRange: End With 'actualise la barre de défilement verticale
End Sub

Elle est très rapide car il n'y a pas de boucle.

A+

 

[Jacky67]

Bonjour KTM, kiki29, Jacky67, Pierre,

Voyez le fichier joint et la macro du bouton :

Private Sub CommandButton1_Click()
Dim P As Range, Q As Range, Prc&, Qrc&, R As Range, S As Range
Set P = [A1].CurrentRegion: Prc = P.Rows.Count - 1
Set Q = [G1].CurrentRegion: Qrc = Q.Rows.Count - 1
If Prc * Qrc = 0 Then Exit Sub 'si un tableau est vide
Set P = P.Offset(1).Resize(Prc)
Set Q = Q.Offset(1).Resize(Qrc)
Application.ScreenUpdating = False
P.Copy Q(Qrc + 1, 1): Set R = Q(Qrc + 1, 1).Resize(Prc, P.Columns.Count)
Q.Copy P(Prc + 1, 1): Set S = P(Prc + 1, 1).Resize(Qrc, Q.Columns.Count)
P.EntireColumn.RemoveDuplicates Array(1, 3, 4)
Q.EntireColumn.RemoveDuplicates Array(1, 3, 4)
R.Cut P(Prc + Qrc + 1, 1): S.Cut Q(Prc + 1, 1)
P.Resize(Prc + Qrc).Delete xlUp: Q.Delete xlUp
With UsedRange: End With 'actualise la barre de défilement verticale
End Sub

Elle est très rapide car il n'y a pas de boucle.

A+

Hello job75
Le mois dernier ==> avec un tableau VBA 😳
Aujourd'hui ==>sans boucle 😵
La semaine prochaine ????...(Sans code) 😉 😉
Bravo, une fois de plus

 

[job75]

Un bémol cependant pour ma solution : dans chacun des tableaux il ne faut pas de doublon.

 

[Jacky67]

Un bémol cependant pour ma solution : dans chacun des tableaux il ne faut pas de doublon.

Re..
Qu'à cela ne tienne, dans ce cas
Il suffira de faire deux "RemoveDuplicates" en début de macro
Je pense que cela restera toujours plus rapide qu'une boucle, si beaucoup de données.

 

[job75]

Qu'à cela ne tienne, dans ce cas
Il suffira de faire deux "RemoveDuplicates" en début de macro

Tout à fait, c'est ce que je viens de faire dans ce fichier (2).

 

[KTM]

Tout à fait, c'est ce que je viens de faire dans ce fichier (2).

Merci à Tous
Les solutions de pierrejean et de job75 fonctionnent très bien. Encore félicitations!!

 

[mapomme]

Bonsoir,

Une méthode qui accepte les doublons autant dans les lignes à conserver que dans celles à supprimer.

 

[job75]

Bonjour le fil, le forum,

Dans le fichier joint je compare les 3 solutions sur 19 000 lignes (données aléatoires entre 1 et 100).

Notez que les résultats en nombre de lignes des 3 tests ne sont pas les mêmes.

J'ai bien vérifié les miens, ils sont justes.

A+