Discussion :

[tiotel]

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

[Godzestla]

Bonjour,

tu ne dis pas ce qui ne marche pas... ni ou ....
Boule de Cristal où est tuuuuuuuuuu. ???

il me semble voir un problème de logique.

For i = 2 to ... end
For j = 2 to ...end
If =
delete ligne i

problème 1 : Tu a supprimé la ligne i, donc la I+1 devient i et tu continue ta boucle avec j+ 1. c'est faux

problème 2 : tu changes ton nombre de lignes en cours de boucle (delete) et ta limite de boucle est le nombre de lignes de départ...

Essaie plutôt ceci, que je n'ai pas testé.

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 = f1.Range("A65536").End(xlUp).Row to 2 step -1
        
        'on parcours la colonne AW de import
        For j = f2.Range("AW65536").End(x1Up).Row to 2 step - 1
        
            '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
               exit for
            
            End If
        Next j
    Next i
    
 
End Sub

NB : pour faire mieux, il y a .FIND pour faire une recherche. Cela t'évite la boucle J

[tiotel]

Bonjour,

Désolé j'avais la tête ailleur.

J'ai corriger mon code car il n'y avais énormément de faute dedans et j'ai aussi ajouter tes modifications apportées.

J'ai toujours la même erreurs : Erreur définie par l'application ou par l'objet. id 1004

la ligne en question est en rouge

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
29
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 = f1.Range("A65536").End(xlUp).Row to 2 step -1

        
        'on parcours la colonne AW de import
        For j = f2.Range("AW65536").End(x1Up).Row to 2 step - 1
        
            'on compare les deux valeurs
            'If (f1.Range(i, "A").Value = f2.Range(j, "AW").Value) Then
            If (LCase(f1.Cells(i, "A").Value) = LCase(f2.Cells(j, "AW").Value)) Then
                       
                'on supprime la ligne
                f1.Cells(i, "A").EntireRow.Delete
            	exit for
            End If
        Next j
    Next i
    

End Sub

Merci pour l'idée du find mais j'ai envie de garder mes deux boucles. Je sais c'est un peu bourrin

[Godzestla]

Re,
la ligne est fausse (elle m'avait échappé). Le Row est en trop

ceci fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 For j = f2.Range("AW65535").End(xlUp) To 2 Step -1

Même faute sur l'autre boucle.