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.

[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]

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.