Créer une boucle (For i=1 to ...)

[Bunbun]

Bonjour à tous,

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

ActiveSheet.Protect
End Sub

 

[Dranreb]

Bonsoir.
Je dirais :

ActiveSheet.Unprotect
For L = 13 To 35 Step 2
   Cells(L + 2, "M").Locked = Cells(L, "BE").Value < Cells(L, "AC").Value
   Next L
ActiveSheet.Protect

 

[Bunbun]

Bonjour et merci Dranreb,
Dois-je déclarer la variable "L" ??

 

[Dranreb]

Bonjour.
Oui, As Long

 

[Bunbun]

re ...
je souhaiterai ajouter un message box lorsque l'utilisateur clic sur une cellule "locked", quel code utiliser ?
merci

 

[Dranreb]

Je l'ignore. Le mieux serait que la protection n'autorise pas la sélection de cellules verrouillées.

 

[Bunbun]

OK
Merci