comment decaler une comparaison sur la droite 12 fois de suite ...

[moi]

salut
je compare ma celule "o1" a "a1" .. le resultat dans "ac1"
comment faire pour effectuer cette comparaison en decalant cette comparaison de une colone a chaque fois sur 12 colones ...
Par avance merci ....

sub macro

x = ("O1")
y = ("a1")
z = ("AC1")
If Range(x) = Range(y) Then
Range(z) = 1
Else
Range(z) = 0
End If
End Sub

 

[wally]

Bonjour moi et le forum,

Par exemple comme ceci :

Sub macro()

x = ("O1")
y = ("a1")
z = ("AC1")
For i = 0 To 12
If Range(x).Offset(0, i) = Range(y).Offset(0, i) Then
Range(z).Offset(0, i) = 1
Else
Range(z).Offset(0, i) = 0
End If
Next i

End Sub


Slts

wally

 

[moi]

ci pour ton aide sympa...