Probleme pour TRIER 2 COLONNES Fermé

Question

Bonjour, 

J'ai besoin d'aide, j'ai 2 colonnes dans mon fichier excel.
La colonne 1 contient 1000 adresses mails / la colonne 2 contient 200 adresses mails qui sont deja dans la colonne 1.
Le pb c'est que je souhaite les supprimer dans la colonne 1.

Je cherche une formule qui dirait:
SI email présent dans colonne1 et présent dans colonne 2 alors effacer dans colonne 1

Existe-il une formule?


Merci d'avance,

emonyna · Answer

A ma connaissance, ce genre de commande n'existe pas. (Ou alors on m'a fait faire beaucoup de travail pour rien au bureau....)
Je pense donc malheureusement qu'il va falloir trier tes adresses à la mains. Si elles sont par ordre alphabétique, ça devrait aller vite^^ Bonne chance.

commentcamarcheeay · Answer

Bonjour,
Ta question m'a fait plonger dans les anciens bouquins d'Excel. J'avoue que ce n'est pas si évident!
Je suis sorti finalement avec le code suivant qui filtre la colonne A:A en fonction de ce qui se trouve dans la colonne B:B

Sub filterAdresses(myList As Range, myToDel As Range)
    Set myList = ThisWorkbook.Worksheets("Feuil1").Range(myList.Address)
    Set myToDel = ThisWorkbook.Worksheets("Feuil1").Range(myToDel.Address)
    Debug.Print myList.Address
    Debug.Print myToDel.Address
    Dim celli As Range
    Dim cellj As Range
    For Each celli In myToDel.Cells
        For Each cellj In myList.Cells
            If celli = cellj Then
                cellj.Delete Shift:=xlUp
            End If
        Next
    Next
End Sub


Sub main()
    Dim myWorkSheet As Worksheet
    Set myWorkSheet = ThisWorkbook.Worksheets("Feuil1")
    filterAdresses myWorkSheet.UsedRange.Columns(1), myWorkSheet.UsedRange.Columns(2)
End Sub

Ça a bien fonctionné pour moi. Il faut exécuter la macro "main".

Probleme pour TRIER 2 COLONNES

2 réponses

Discussions similaires