Discussion :

[a.saussois]

Bonjour, j'ai un problème, Voilà :

Macro qui compare la colonne B de la 1ere feuille a la colonne A de la 2eme et qui supprime les lignes qui correspondent pas sur la 1ere

Exemple :

Feuille1
Colonne A Colonne B

aaa@google.com google.com
assdsa@hotmail.com hotmail.com <=== existe pas supprimer la ligne
kmlkmk@msn.fr msn.fr
kmkmk@hotmail.fr hotmail.fr <=== existe pas supprimer la ligne


Feuille2
Colonne A

google.com
voila.fr
msn.com
neuf.fr
laposte.net
msn.fr

Si quelqu'un peut me mettre sur une piste, je suis ouvert a tout!!!

[aliasjadawin]

peux-tu reformuler ta demande ? ce n'est pas très clair
les données des deux colonnes doivent correspondre en ayant des cellules identiques ?

[MarcelG]

Bonjour,

Tu peux

- dans ta feuille 1, rechercher la postion de ton indice dans la colonne correspondante de la feuille2 par la fonction Equiv

en VBA

Code :

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

Worksheet.Function.Match

- Si la fonction renvoie une erreur, alors tu supprimes la ligne

Code :

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

EntireRow.Delete

Reviens si besoin.

[a.saussois]

non les cellules ne correspondents pas, en fait il s'agit d'une liste d'adresses mails, ou j'ai séparer le nom de domaine dans la 2eme colonne afin de comparer ces domaines a une liste de top domaines sur une autre feuille.

[MarcelG]

Salut,

Et de fait, tu peux comparer les indices de ta colonne 2 par rapport à ta base de "top".

Ici, j'ai j'ai appelé ta feuille de top "base", et celle où tu dois supprimer les lignes "mafeuille"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub essai()
Dim colonne As Range
Application.ScreenUpdating = False
Max = Sheets("mafeuille").Range("A" & Rows.Count).End(xlUp).Row
With Sheets("base")
    Set colonne = .Range(.Range("A1"), .Range("A" & Rows.Count).End(xlUp))
End With
For i = Max To 1 Step -1
    If IsError(Application.Match(Sheets("mafeuille").Cells(i, 2), colonne, 0)) Then Sheets("mafeuille").Cells(i, 2).EntireRow.Delete
Next
Set colonne = Nothing
End Sub

[a.saussois]

Désolé j'ai testé ton code et cela supprime absolument tout dans "mafeuille".

Cordialement Antoine.

[mercatog]

Bonjour
Sans utiliser la colonne B de la feuille Feuil1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim i As Long, LastLig As Long
Dim c As Range
 
Application.ScreenUpdating = False
With Sheets("Feuil1")
    LastLig = .Cells(Rows.Count, 1).End(xlUp).Row
    For i = LastLig To 2 Step -1
        Set c = Sheets("Feuil2").Range("A:A").Find(Split(Range("A" & i).Value, "@")(1), lookat:=xlWhole)
        If Not c Is Nothing Then
            .Rows(i).Delete
            Set c = Nothing
        End If
    Next i
End With

[a.saussois]

Rien ne fonctionne, j'abandonne.

Merci,
Antoine.

[MarcelG]

Salut,

J'ai testé sans problème.

- Regarde bien si les adresses (feuille, colonne) que j'ai mises dans mon code sont adaptées à tes données
Exemple Cells(i,2) correspond à la cellule colonne B ligne i.
Précise bien dans quelles colonnes se trouvent tes données.

- En ce qui concerne le rapprochement, pour une cellule commune aux 2 feuilles, effectue un test avec la fonction Equiv de cette façon.

=Equiv(valeur cherchée de la feuille "mafeuille", colonne de "base" où doit se trouver la valeur cherchée, 0)

Si tu obtiens une erreur, alors il doit y avoir un problème dans tes occurences de la colonne B de ta 1ère feuille;

- En dernier recours, joins un fichier simplifié

[MarcelG]

Salut à toi mercatog,

Dans ton code, j'ai l'impression qu'il faut écrire

Code :

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

If c = Nothing

Antoine,

J'ai un niveau plus que modeste (presque ridicule comparé à mercatog et les autres). Malgré tout, si j'avais abandonné dès qu'une difficulté se présentait, je n'effectuerais pas mes développements actuels. En VBA, je pense, il faut galèrer au début et même après. C'est cette galère qui fait progresser.

Alors, continue...

[mercatog]

@ MarcelG: ça dépends s'il veut supprimer de la feuille Feuil1 les lignes dont les adresses contiennent l'un des domaines existants en feuille Feuil2 ou les laisser.

[a.saussois]

Feuil1 (mon top domaine qui bouge pas)
ColA

hotmail.com
hotmail.fr
msn.com
live.com
live.fr
gmail.com
yahoo.fr
yahoo.com
free.fr
orange.fr
wanadoo.fr
aliceadsl.fr
laposte.net
neuf.fr
sfr.fr
voila.fr


Feuil2
ColA | ColB

anne.sauthier@wanadoo.fr | wanadoo.fr
annette.k@wanadoo.fr | wanadoo.fr
annie.subiger@numericable.net | numericable.fr
arnaud.decharmoy@laposte.fr | laposte.net
audrey.denni@orange.fr | orange.fr
bluteau.valerie@neuf.fr | neuf.fr
c.mathieu87@neuf.net | neuf.fr
callmemadeleine@yahoo.fr | yahoo.net
carin44@hotmail.fr | hotmail.fr
cyril.page0850@ac-creteil.fr | ac-creteil.fr

Si Feuil2.ColB appartient pas à la Feuil1.ColA alors Supprimer la ligne complete de Feuil2.ColB

[mercatog]

Adapte les codes qu'on te propose

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 macro()
Dim i As Long, LastLig As Long
Dim c As Range
 
Application.ScreenUpdating = False
With Sheets("Feuil2")
    LastLig = .Cells(Rows.Count, 1).End(xlUp).Row
    For i = LastLig To 2 Step -1
        Set c = Sheets("Feuil1").Range("A:A").Find(Split(Range("A" & i).Value, "@")(1), lookat:=xlWhole)
        If Not c Is Nothing Then
            .Rows(i).Delete
            Set c = Nothing
        End If
    Next i
End With
end sub

[a.saussois]

J'essaye tout à chaque fois, mais le VBA, est vraiment pas mon truc, je préfère le PHP..

"L'indice n'appartient pas à la selection"

Antoine.

[mercatog]

Malheureusement pour toi ici c'est le forum vba Excel.

[MarcelG]

Salut,

Donc il faut bien comparer les caractères de la colonne B, car cux-ci peuvent être différents de l'extraction de la cellule correspondante colonne A (exemple callmemadeleine). Ou je suis fatigué ?

Quoi qu'il en soit, Antoine, as-tu fait le test avec la fonction Equiv?

Cordialement.

Marcel.

[mercatog]

"L'indice n'appartient pas à la selection" ??

Antoine.

Ta première feuille s'appelle bien Feuil1?
et ta 2ème feuille, c'est bien Feuil2?

[a.saussois]

Bonjour,

J'ai réussi à tout placer dans le même classeur, j'ai 3 colonnes, je voudrais comparer si les valeurs de la colonne C correspondent à celles de la colonne B, et si elle ne correspondent pas, supprimer les adresses en colonne A.

col A: (correspond a des adresses mails)

aaa.gmail.com
bbb.numericable.com
ccc.hotmail.fr
ddd.hotmail.com
eee.free.fr

col B: (correspond a un top qui ne change pas de 15 noms de domaine)

gmail.com
free.fr
hotmail.fr

col C: (correspond au nom de domaine de l'adresse en col A)

gmail.com
numericable.com
hotmail.fr
hotmail.com
free.fr



Fichier test : ftp://a.saussois@ftpperso.free.fr/test.xls



Cordialement,
Antoine.

[MarcelG]

Bonsoir,

Il ne faut pas que tes colonnes se suivent car cela deviendrait ingérable!

Ici les colonnes A et C sont liées donc elles peuvent être rapprochées.
(les valeurs de la 2ème ne sont qu'une extraction de lcelles de la 1ère).

Il te faut rapprocher tes colonnes A et C dans une feuille nommée par exemple "mafeuille", et par ailleurs conserver les 3 valeurs de la colonne B dans une feuille nommée "Table".

Ensuite, tu peux adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub essai()
Dim colonne As Range
Application.ScreenUpdating = False
Max = Sheets("mafeuille").Range("A" & Rows.Count).End(xlUp).Row
With Sheets("Table")
    Set colonne = .Range(.Range("A1"), .Range("A" & Rows.Count).End(xlUp))
End With
For i = Max To 1 Step -1
    If IsError(Application.Match(Sheets("mafeuille").Cells(i, 2), colonne, 0)) Then Sheets("mafeuille").Cells(i, 2).EntireRow.Delete
Next
Set colonne = Nothing
End Sub

Je n'arrive pas à lire ton classeur.
Peux-tu le joindre à la discussion, s'il te plaît.

[a.saussois]

Voilà ma pièce jointe!