Bonjour à tous,
Je souhaiterai simplifier une macr en créant une boucle
Le "If then else" se repète de la ligne 13 jusque 36.
Il y a-t-il moyen de faire "For i=13 to 36 .... ???
Par avance merci
ci dessous extrait de la macro
Private Sub
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
etc....
ActiveSheet.Protect
End Sub