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

Valentin.A · 1 Décembre 2016

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 · 1 Décembre 2016

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

Code:

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 · 1 Décembre 2016

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

Code:

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

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

Valentin.A

XLDnaute Nouveau

Pièces jointes

Jacky67

XLDnaute Barbatruc

Pièces jointes

Valentin.A

XLDnaute Nouveau

Discussions similaires