Je souhaiterai simplifier une macro en créant une boucle
Le "if then else" se repete de la ligne 13 à la ligne 36 (cf extrait de la macro ci dessous)
Est-il possible de creer une boucle du type :
For i=1 to 36 etc ...
Par avance merci pour votre aide
cdlt,
ci dessous extrait de la macro
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
If Range("BE13") < Range("AC13") Then
Range("M15").Locked = True
' ActiveSheet.Unprotect
Else
Range("M15").Locked = False
'ActiveSheet.Protect
End If
ActiveSheet.Unprotect
If Range("BE15") < Range("AC15") Then
Range("M17").Locked = True
' ActiveSheet.Unprotect
Else
Range("M17").Locked = False
'ActiveSheet.Protect
End If