pepsi
XLDnaute Occasionnel
Bonjour
Mon code compare 2 feuilles, et en cas de différence, une cellule devient orange avec ERR inscrit.
Mais mon code ne fonctionne pas : il m'indique "WEND sans While"
Que faut il que je change pour que cela fonctionne ? Est ce que je peux le simplifier ?
Merci pour vos conseils
Mon code compare 2 feuilles, et en cas de différence, une cellule devient orange avec ERR inscrit.
Mais mon code ne fonctionne pas : il m'indique "WEND sans While"
Que faut il que je change pour que cela fonctionne ? Est ce que je peux le simplifier ?
Merci pour vos conseils
Code:
sub modif ()
Dim i As Integer
i = 6
While i < 200
If Worksheets("feuil1").Range("E" + CStr(i)).Value <> Worksheets("feuil2").Range("E" + CStr(i)).Value Then
Worksheets("feuil1").Activate
Worksheets("feuil1").Range("j" + CStr(i)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 300000
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
i = i + 1
Selection.Value = "ERR"
If Worksheets("feuil1").Range("F" + CStr(i)).Value <> Worksheets("feuil2").Range("F" + CStr(i)).Value Then
Worksheets("feuil1").Activate
Worksheets("feuil1").Range("j" + CStr(i)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 300000
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Wend
End If
i = i + 1
Selection.Value = "ERR"
end sub
Dernière édition: