XL 2013 Supprimer ligne lorsque cellule similaire sur deux feuilles d'un classeur

[Valentin.A]

Bonjour,

J'ai longtemps cherché sur le web sans vraiment trouver la réponse exacte à ma question, donc je me lance à mon tour pour vous faire part de mon problème.

J'actualise un fichier chaque semaine avec des nouvelles données. Dans la première feuille se trouve les nouvelles données, et dans la seconde feuille, toutes les anciennes données regroupées.
Il y a 6 colonnes sur chaque feuille (ce sont les mêmes colonnes sur les deux feuilles).
J'aimerais avoir un système me permettant de supprimer la ligne entière sur la feuille n°1 lorsque la cellule de la colonne n°3 est inscrite dans la deuxième feuille.

Voici en pièce jointe un fichier pour illustrer mon exemple.

Concrètement, je voudrais que le fichier compare la colonne des adresses emails entre les deux feuilles. S'il y a une adresse email en doublon, je veux que la ligne soit supprimée sur la première feuille (NOUVEAUX INSCRITS&PARTICIPANTS).

J'espère avoir été clair. Si vous avez des questions n'hésitez pas !

Et merci d'avance pour votre aide.

Valentin

 

[Jacky67]

Bonjour,
En suppriment les données en colonnes "x,y et z", de la feuille "NOUVEAUX INSCRITS&PARTICIPANTS"
En vba

Sub supprimeJJ()
Dim i As Long
With Sheets("NOUVEAUX INSCRITS&PARTICIPANTS")
For i = .Cells.Find("*", , , , xlByRows, xlPrevious).Row To 2 Step -1
If IsNumeric(Application.Match(.Cells(i, 3), Sheets("Historiques").[c:c], 0)) Then .Rows(i).Delete
Next
End With
End Sub

 

[Valentin.A]

Bonjour,
En suppriment les données en colonnes "x,y et z", de la feuille "NOUVEAUX INSCRITS&PARTICIPANTS"
En vba

Sub supprimeJJ()
Dim i As Long
With Sheets("NOUVEAUX INSCRITS&PARTICIPANTS")
For i = .Cells.Find("*", , , , xlByRows, xlPrevious).Row To 2 Step -1
If IsNumeric(Application.Match(.Cells(i, 3), Sheets("Historiques").[c:c], 0)) Then .Rows(i).Delete
Next
End With
End Sub

C'est parfait ! merci beaucoup Jacky !

Excellente journée,

Valentin