Discussion :

[naiiiiiiiii]

Bonjour,

j'ai un fichier excel avec 16 feuilles.
Dans une de ces feuilles j'ai des données à supprimer dans les autres feuilles. Dans ma plage C2 jusqu'à C114 j'ai des "emails"
je voudrais donc dans les autres feuilles supprimer toute la ligne correspondant . Pourriez vous m'aider à réaliser une macro pour cela?

merci beaucoup

[casefayere]

Bonjour le forum, naiiiiiiiii
essayes ce code et adaptes à ta situation, bien sur si j'ai compris !!!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub toto()
'supprime toutes les lignes correspondantes aux mails de la feuille "mails"
Dim Ws As Worksheet, y As Long, Dl As Range, Tb, x As Long
Set Dl = Sheets("mails").Range("C" & Sheets("mails").Rows.Count).End(xlUp)
 
Tb = Sheets("mails").Range("C1", Dl)
For Each Ws In Worksheets
  If Ws.Name <> "mails" Then
      For y = Ws.Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1 'les données à vérifier sont en A _
                                                                      et commencent en A1
        For x = 1 To UBound(Tb)
          If Ws.Range("A" & y) = Tb(x, 1) Then Rows(y).EntireRow.Delete 'si tu supprimes la ligne entiere
      Next x
    Next y
  End If
Next Ws
End Sub

[naiiiiiiiii]

Alors en fait non,
les données à vérifier sont dans la colonne C et commence à la deuxième ligne
(pourquoi step -1, on commence par la dernière ligne? )


merciiii !

[joe.levrai]

quand on parcours des lignes pour les supprimer, on doit commencer par le bas et remonter

si tu fais l'inverse, ta boucle va sauter des lignes car :

1) premier tour : ligne 1 ==> je la supprime et la ligne 2 devient la ligne 1
2) second tour : ligne 2 ==> c'est en fait la ligne 3 qui est venu sur la ligne 2 car la ligne 1 est supprimée
==> ma ligne qui était en position 2 au départ ne sera donc pas analysée dans la boucle
etc...

[casefayere]

les données à vérifier sont dans la colonne C et commence à la deuxième ligne

je l'ai mis en commentaire donc tu adaptes, mon code n'est qu'un exemple à adapter mais le principe est bon

[naiiiiiiiii]

j'ai une question :

à quoi correspond cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Tb = Sheets("mails").Range("C1", Dl)

le D1?

[casefayere]

le D1?

ce n'est pas D1 mais Dl, c'est une variable "range" donc dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Tb = Sheets("mails").Range("C1", Dl)

Dl correspond à la derniere cellule car

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Dl = Sheets("mails").Range("C" & Sheets("mails").Rows.Count).End(xlUp)

[naiiiiiiiii]

Bonjour,

ça n'a pas fonctionné, je re osumets mon problème

j'ai une feuille qui s'appelle liste à supprimer
dans cette liste j'ai des emails de C2 jusqu'a C114

j'ai 15 autres feuilles dans lesquelles il se peut que les mails soient présents dans la colonne si c'est le cas j'voudrais supprimer les lignes qui contiennent ces emails, (les maails dans les autres aussi feuilles sont aussi à partir de la ligne C2, mais le nombre de ligne est variable ) !

merci

[casefayere]

Bonjour,
C'est pourtant facile d'adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub toto()
'supprime toutes les lignes correspondantes aux mails de la feuille "mails"
Dim Ws As Worksheet, y As Long, dL As Range, Tb, x As Long
Set dL = Sheets("liste a supprimer").Range("C" & Sheets("liste a supprimer").Rows.Count).End(xlUp)
 
Tb = Sheets("liste a supprimer").Range("C1", dL)
For Each Ws In Worksheets
  If Ws.Name <> "liste a supprimer" Then
      For y = Ws.Range("C" & Rows.Count).End(xlUp).Row To 1 Step -1 'les données à vérifier sont en A _
                                                                      et commencent en A1
        For x = 1 To UBound(Tb)
          If Ws.Range("C" & y) = Tb(x, 1) Then Rows(y).EntireRow.Delete 'si tu supprimes la ligne entiere
      Next x
    Next y
  End If
Next Ws
End Sub

[naiiiiiiiii]

Mais je ne comprends pas ça supprime des noms de ma feuille liste à supprimer..
ce n'est pas ce que j'veux pourtant ..

[casefayere]

chez moi mon essai fonctionne, envoies ton fichier avec données bidon, je regarderai

[naiiiiiiiii]

Voici mon fichier avec les données bidons :


fichierbidon .xls

[casefayere]

normal tes résultats, ta feuille se nomme "listeasupprimer" et non "liste a supprimer, regardes ce fichier

[naiiiiiiiii]

Lol oui oui je ne usis pas stupide à ce point cela fonctionne
mais ça ne supprime pas les bonnes choses aux bons endroits..

[casefayere]

mais ça ne supprime pas les bonnes choses aux bons endroits..

expliques-toi mieux, je ne vois pas le probleme, copies ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub toto()
'supprime toutes les lignes correspondantes aux mails de la feuille "mails"
Dim Ws As Worksheet, y As Long, dL As Range, Tb, x As Long
Set dL = Sheets("listeasupprimer").Range("C" & Sheets("listeasupprimer").Rows.Count).End(xlUp)
Tb = Sheets("listeasupprimer").Range("C2", dL)
For Each Ws In Worksheets
  If Ws.Name <> "listeasupprimer" Then
      For y = Ws.Range("C" & Rows.Count).End(xlUp).Row To 1 Step -1 'les données à vérifier sont en A _
                                                                      et commencent en A1
        For x = 1 To UBound(Tb)
          If Ws.Range("C" & y) = Tb(x, 1) Then Rows(y).EntireRow.Delete 'si tu supprimes la ligne entiere
      Next x
    Next y
  End If
Next Ws
End Sub

[Docmarti]

Bonjour.

Sur la feuille Listeasupprimer, il y a un caractère Espace qui traîne à la fin de l'adresse de :

Charlene koskas.charlene@gmail.com


Cette adresse suivie d'un espace n'existe pas sur les autres feuilles.

[casefayere]

Bonjour.

Sur la feuille Listeasupprimer, il y a un caractère Espace qui traîne à la fin de l'adresse de :

Charlene koskas.charlene@gmail.com


Cette adresse suivie d'un espace n'existe pas sur les autres feuilles.

Bonjour Docmarti,
Perso, je n'ai pas fait gaffe et il est utile de le signaler , merci pour naiiiiiiiii
donc dans cette partie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
        For x = 1 To UBound(Tb)
          Ws.Range("C" & y) = Trim(Ws.Range("C" & y))'donc à ajouter
          If Ws.Range("C" & y) = Tb(x, 1) Then Rows(y).EntireRow.Delete 'si tu supprimes la ligne entiere
      Next x

[naiiiiiiiii]

Non mais le code est carrément faux il me supprime n'importe quoi..

de 1 il est faut et en plus il agit même pas sur toutes les feuilles de mon classeur....

j'peux vous envoyer mon fichier en privé?

[casefayere]

SI tu veux (quoique la charte du forum....)mais la réponse sera sur le forum, je préférerais un fichier sur le forum en changeant les noms mais avec une même structure q ue l'original car perso j'ai testé ce que je t'ai proposé et n'ai eu aucun problème, attention tu parlai bien de supprimer la ligne entiere ?