Addition par condition ...

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 !
 

Statistiques des forums

Discussions
312 926
Messages
2 093 672
Membres
105 781
dernier inscrit
Dominique G.