Macro qui compare 2 colonnes de 2 feuilles excel et qui supprime les différences.

Version imprimable

Voir 40 message(s) de cette discussion en une page

19/11/2010, 13h24
a.saussois

Macro qui compare 2 colonnes de 2 feuilles excel et qui supprime les différences.

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!!!
19/11/2010, 13h38
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 ?
19/11/2010, 13h39
MarcelG

SUPPRESSION

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:

Worksheet.Function.Match

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

Code:

EntireRow.Delete

Reviens si besoin.
19/11/2010, 13h59
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.

compare colonne

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:

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

19/11/2010, 14h27
a.saussois

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

Cordialement Antoine.

Bonjour
Sans utiliser la colonne B de la feuille Feuil1

Code:

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

19/11/2010, 14h41
a.saussois

Rien ne fonctionne, j'abandonne.

Merci,
Antoine.
19/11/2010, 14h45
MarcelG

recherche

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é
19/11/2010, 14h54
MarcelG

recherche

Salut à toi mercatog,

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

Code:

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...
19/11/2010, 14h58
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.
19/11/2010, 15h07
a.saussois

J'essaye de recapituler

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

Adapte les codes qu'on te propose

Code:

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

19/11/2010, 15h14
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.
19/11/2010, 15h16
mercatog

Malheureusement pour toi ici c'est le forum vba Excel.
19/11/2010, 15h26
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.
19/11/2010, 21h00
mercatog

Citation:

Envoyé par a.saussois

"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?
22/11/2010, 17h35
a.saussois

Bonjour, je reviens vers vous à nouveau

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.

suppression

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:

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.

22/11/2010, 18h20
a.saussois

1 pièce(s) jointe(s)

PJ

Voilà ma pièce jointe!

Voir 40 message(s) de cette discussion en une page