Erreur de compilation : else sans if
I
Bonjour à tous,
Impossible de lancer mon programme, un message d'erreur s'affiche. A quoi cela est dû ?
Merci d'avance
DefBool Y
Sub REGENERATION2015()
Dim i%, k%, Var$, Y1
k = Cells(65535, 1).End(xlUp).Row
For i = 2 To k
Var = Cells(i, 13)
Y1 = (Var = "CAISSON ADMISSION AIR" Or _
Var = "CAISSON DE SOUFFLAGE" Or _
Var = "CAISSON EXTRACTION" Or _
Var = "VENTILATION DOUBLE FLUX" Or _
Var = "CENTRALE TRAITEMENT D'AIR MONO")
If Y1 And _
Cells(i, 9) < 2005 And _
Cells(i, 7) > 5000 Then _
Cells(i, 17) = "A CHANGER"
Else
Cells(i, 17) = "OK"
End If
Next i
End Sub
Bonjour,
enlève le _ dans cette instruction
Cells(i, 7) > 5000 Then _I
Parfait ça marche =)
Merci beaucoup h2so4 !