Bonjour à vous tous,

Cela fais longtemps que je n'ai pas posté. Je reviens cette fois ci avec un petit script VBA.

Celui ci compare deux feuilles d'un classeur

La feuille Export, elle contient un export du fichier NK2 d'outlook. Elle contient deux colonnes

La feuille Import, elle contient un export de mes contact. La colonne qui m'interesse est la "AW".


Je compare la colonne A du feuiller Export à la colonne AW du feuiller Import.

Si l'adresse mail contenue dans A est présente dans AW. Je supprime la ligne.

Mon code est le suivant mais ne fonctionne pas. Est ce que quelqu'un aurait une petite idée du problème

Merci d'avance

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
17
18
19
20
21
22
23
24
25
26
27
28
 
 
Sub Macro1()
 
    Dim f1 As Worksheet
    Dim f2 As Worksheet
 
    Set f1 = Worksheets("Export")
    Set f2 = Worksheets("import")
 
    'on parcours la colonne A de export
    For i = 2 To f1.Range("A65536").End(xlUp).Row
 
        'on parcours la colonne AW de import
        For j = 2 To f2.Range("AW65536").End(x1Up).Row
 
            'on compare les deux valeurs
            If (f1.Range("A", i).Value = f2.Range("AW", j).Value) Then
 
                'on supprime la ligne
                f1.Cells("A", i).EntireRow.Delete
 
            End If
        Next
    Next
 
 
End Sub