Utilisation de If

Bonjour à tous,
J'ai un problème avec cet extrait de code vba, pouvez-vous me dire pourquoi s'il vous plait ?

Ce que je cherche à faire c'est comparer les lignes de deux fichiers différents. Dans la suite de mon code, les lignes de chacun des classeurs s'incrémentent de façon différente selon certains critères mais je ne pense pas que ce soit important ici.

Le problème est que ce code ne parvient pas à voir que les lignes sont identiques.

Voici mon code :

Code:

---

1 2 3 4 5

If Workbooks("Total.xls").Sheets(1).Cells(i + 1, 1).Value = _ Workbooks("Actif.xls").Sheets(1).Cells(j + 1, 1).Value And _ Workbooks("Total.xls").Sheets(1).Cells(i + 1, 2).Value = _ Workbooks("Actif.xls").Sheets(1).Cells(j + 1, 2).Value Then

---

Merci à tous d'avance de votre aide

Iloon

Salut Iloon,

regarde le fichier joint, ton code fonctionne, j'utilise juste des feuilles d'un même classeur.

Zeb

Si tu permets, je simplifie pour y voir plus clair

Code:

---

1 2 3 4 5 6 7 8

Sub test() Dim FL1 As Worksheet Dim FL2 As Worksheet Set FL1 = Workbooks("Classeur1.xls").Worksheets(1) Set FL2 = Workbooks("Classeur2.xls").Worksheets(1) If FL1.Cells(i + 1, 1).Value = FL2.Cells(j + 1, 1).Value And _ FL1.Cells(i + 1, 2).Value = FL2.Cells(j + 1, 2).Value Then MsgBox "Coucou" End Sub

---

Si tes quatre lignes sont vraiment identiques 2 par 2, alors je ne comprends pas le problème. Est-tu certain de la casse des deux cellules
Tu peux mettre Lcase ou Ucase aux deux propositions pour être certain que ce n'est pas un simple problème de format.
A tout hasard

Bonjour à tous,

j'ai vérifié mes données et l'erreur venait d'une majuscule mal placée qui me mettait tout mon code en l'air....
J'ai passé une heure à tout éplucher et maintenant cela fonctionne...:roll:

Merci à tous de votre participation


Iloon