Comparer deux feuille

Bonjour,

Déjà merci pour ce super forum qui m'aide a la folie.

Voila mon problème.

Je cherche a faire une comparaison entre deux feuilles afin de déterminer si une cellule qui contenait des données n'est pas vide maintenant.

je commence par essayer de trouver les difference entre les deux feuille mais je bloque sur ca.

Dim i As Integer

i = 1

While i < 20

If Worksheets("Feuil1").Range("A:H" + CStr(i)).Value <> Worksheets("Feuil2").Range("A:H" + CStr(i)).Value Then

Worksheets("Feuil1").Activate

Worksheets("Feuil1").Range("A:H" + CStr(i)).Select

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.Color = 65535

.TintAndShade = 0

.PatternTintAndShade = 0

End With

End If

i = i + 1

Wend

il refuse cette syntaxe alors que

]If Worksheets("Feuil1").Range("A" + CStr(i)).Value <> Worksheets("Feuil2").Range("A" + CStr(i)).Value Then

fonctionne, je ne sais pas comment cela fonctionne.

Merci pour votre aide

Bonjour,

Oui ! La syntaxe, toujours !

Si j'ai bien compris, malgré la syntaxe défectueuse, tu devrais essayer ainsi :

Sub test()
    Dim i%, k%, ws As Worksheet
    Set ws = Worksheets("Feuil2")
    Application.ScreenUpdating = False
    With Worksheets("Feuil1")
        For i = 1 To 19
            For k = 1 To 8
                If .Cells(i, k) <> ws.Cells(i, k) Then
                    .Cells(i, 1).Resize(, 8).Interior.Color = 65535
                    Exit For
                End If
            Next k
        Next i
    End With
End Sub

Compare aussi avec ton code, j'ai aussi supprimé ce qui était inutile...

Cordialement.

Bonjour,

Merci beaucoup pour ton aide c'est genial.