création d'une macro

[julienhu]

Bonjour à tous,

Je fais appel à votre génie pour la création du macro.

Je m'explique, j'ai un fichier, deux feuilles.

feuille 1 nommé output-final, colonne A s'étend de A1 à A71121

feuille2 'Ta", colonne A s'étend de A1 à A587

Je voudrais que les données de la feuille2 de A1 à A587 qui pourrait se trouver dans la feuille1 de A1 à A71121 soit supprimée de cette dernière.

En soit, ce sont des adresses e-mail ne devant pas se trouvant dans une mailing list (feuille2) et ca me permettra de nettoyer la base de données (feuille1).

Merci d'avance pour votre aide,

Julien

 

[phlaurent55]

Re : création d'une macro

bonjour Julien,

voir fichier joint

à+
Philippe

 

[camarchepas]

Re : création d'une macro

Bonjour ,

code à mettre dans un module standard :

Sub supprime()
Dim Cellule As Range
Dim Trouve As Range
For Each Cellule In Feuil2.Range("A2:A587")
  Set Trouve = Feuil1.Range("A:A").Find(Cellule, lookat:=xlWhole)
    If Not Trouve Is Nothing Then
      Feuil1.Rows(Trouve.Row).Delete
    End If
Next

End Sub

 

[julienhu]

Re : création d'une macro

Merci à vous deux je vais tester ça !

Philippe : dans le tiens, je dois remplacer A65535 par A71121 non ?

 

[phlaurent55]

Re : création d'une macro

Salut à tous,

Bonjour ,

code à mettre dans un module standard :
Code vba:
Sub supprime()
Dim Cellule As Range
Dim Trouve As Range
For Each Cellule In Feuil2.Range("A2:A587")
Set Trouve = Feuil1.Range("A:A").Find(Cellule, lookat:=xlWhole)
If Not Trouve Is Nothing Then
Feuil1.Rows(Trouve.Row).Delete
End If
Next

End Sub

@ camarchemieux, ............. en supprimant la ligne 🙂

à+
Philippe

 

[Modeste]

Re : création d'une macro

Bonjour Julien,

On peut peut-être se passer de génie!?

Dans ta feuille output-final, en ligne 1 d'une colonne vide (B, par exemple), écris

=SI(NB.SI(Ta!$A$1:$A$587;A1);"x";"")

et recopie jusqu'en ligne 71121 (si la colonne à gauche ne contient pas de cellules vides, un double-clic sur la poignée de recopie devrait le faire)
Fais ensuite un tri sur cette colonne ... et supprime toutes les lignes pour lesquelles un "x" apparaît.

[Edit:] salut aux génies 😉

 

[phlaurent55]

Re : création d'une macro

Re, Salut Luc,

Philippe : dans le tiens, je dois remplacer A65535 par A71121 non ?

Oui, le vieux singe que je suis 😀 n'a pas encore perdu l'habitude des 65000 lignes (et un peu plus) de la version précédente

à+
Philippe

 

[camarchepas]

Re : création d'une macro

Et oui ,

Pour Julien l'astuce suivante marche pour toutes les versions Excel (Bon je sais pas encore pour les futures , mais bon cela devrait , lol)

LignesTotales=rows.count

 

[julienhu]

Re : création d'une macro

J'ai utilisé la macro fournie par çamarchepas, cependant il ne me réduit ma feuille1 que de meme pas 50 lignes... Ce qui laisse penser que les 587 cellule n'ont pas pu être supprimée meme si il devait y avoir des doublons je m'attendais à au moins 250 ligne en moins.

J'ai pris des échantillons de cellule dans le feuille ta et je fais des recherches et ne les trouvent pas dans output mais ca me parait étonnant.

Je suis a 70926 lignes mtn.

 

[camarchepas]

Re : création d'une macro

Julien ,

A vérifier qu'il ne traine pas un espace ou autres en fin ou début de l'adresse Email, entrainant une non cohérance de la lecture ,

En principe toutes les adresses Email sont en minuscule , est -ce le cas pour tes données également ?

 

[julienhu]

Re : création d'une macro

Voilà les gars, je vous remercie, ça fonctionne parfaitement finalement tout est en ordre je ne sais juste pas compter parce que 71121-70926 ça fait plus que ce que j'ai dit.

 

[camarchepas]

Re : création d'une macro

Une petite formule pour soustraire peut être ?????

Allez bon Vendredi ensoleillé