Addition par condition ...

[Sabine]

Bonjour à tous,

Voila, j'ai un soucis avec une condition, cela marche pour 2 mais pas pour 3 ???? :woohoo: :woohoo: :woohoo:

Dim L As Integer
L = ActiveCell.Row
If Range('A' & L) = Range('A' & L - 1) = Range('A' & L - 2) And Range('D' & L) = Range('D' & L - 1) = Range('D' & L - 2) Then
MsgBox 'ATTENTION : Le prochain appel possède 3 cadences !'
GoTo GAROU
End If

If Range('A' & L) = Range('A' & L - 1) And Range('D' & L) = Range('D' & L - 1) Then
MsgBox 'ATTENTION : Le prochain appel possède 2 cadences !'
GoTo GAROU
End If

Est ce que les macros sont bloquées à partir de 2 ?
Merci de votre aide !

Sabine

Ps : je ne mets pas tout le code ou le fichier car il est trop gros !

 

[PascalXLD]

Bonjour

as-tu essayé

If Range('A' & L) = Range('A' & L - 1) And Range('A' & L) = Range('A' & L - 2) And Range('D' & L) = Range('D' & L - 1) ANd Range('D' & L) = Range('D' & L - 2) Then

Bon courage

 

[Sabine]

tu avais raison Pascal, ca marche comme cela !

merci!