[VBA] probleme de parcours de colonne

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:

---

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

---

Bonjour,

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

il me semble voir un problème de logique.

Citation:

---

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... :aie::aie:

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

Code:

---

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 ;)

Bonjour,

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

J'ai corriger mon code car il n'y avais énormément de faute dedans :aie: 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:

---

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

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

ceci fonctionne

Code:

---

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

---

Même faute sur l'autre boucle.