Discussion :

[Iloon]

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 :

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

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

[zeb33]

Salut Iloon,

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

Zeb

[ouskel'n'or]

Si tu permets, je simplifie pour y voir plus clair

Code :

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

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

[Iloon]

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

Merci à tous de votre participation


Iloon