S
Sabine
Guest
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 !
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 !