Vba - WEND + ecrire fonction " ou "

[pepsi]

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

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

 

[Pierrot93]

Re : VBA - Wend sans While

Bonjour,

essaye en déplacant le dernier "end if" avant le "wend"..

bonne journée
@+

 

[pepsi]

Re : VBA - Wend sans While

Effectivement, plus d'erreur sur le WEND/WHILE

Mais mon code ne marche pas complètement,

Quand je compare la colonne "F", cela ne marche pas : j'ai simplement ERR qui apparait en J1 et la cellule n'est pas colorée.

 

[pepsi]

Re : VBA

J'aimerais écrire cette fonction "OU" dans mon code mais je n'y arrive pas


Avez vous une solution à me proposer ?

Merci d'avance

Dim i As Integer
i = 6
While i < 200
If Worksheets("feuil1").Range("E" + CStr(i)).Value <> Worksheets("feuil2").Range("E" + CStr(i)).Value 




OR 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
Selection.Value = "ERR"
End If
i = i + 1
Wend

  ActiveCell.Select

 

[tototiti2008]

Re : Vba - WEND + ecrire fonction " ou "

Bonjour à tous,

Essaye de remplacer

If Worksheets("feuil1").Range("E" + CStr(i)).Value <> Worksheets("feuil2").Range("E" + CStr(i)).Value 




OR If Worksheets("feuil1").Range("F" + CStr(i)).Value <> Worksheets("feuil2").Range("F" + CStr(i)).Value 




Then

par

If Worksheets("feuil1").Range("E" + CStr(i)).Value <> Worksheets("feuil2").Range("E" + CStr(i)).Value OR Worksheets("feuil1").Range("F" + CStr(i)).Value <> Worksheets("feuil2").Range("F" + CStr(i)).Value Then

 

[pepsi]

Re : Vba - WEND + ecrire fonction " ou "

Exact, ca marche très bien ...! merci tototiti2008, c'est très gentil de m'avoir aidée 🙂