Déverrouiller une cellule en fonction du contenu d'une autre
o
bonjour,
je suis bloquée sur mon code vba
lorsque ma cellule de la colonne C est égale à NC, je souhaite dévérouiller ma cellule de la colonne D
je souhaite faire ça pour toute la colonne et donc je veux créer une boucle.
cependant, je n'y parviens pas ....
voici mon début de code --> merci de votre aide
Sub déverrouiller()
Dim i As Integer
For i = 2 To 1000
If Range("C" & i) = "NC" Then
ActiveSheet.Unprotect Password:="ter"
Range("D" & i).Locked = False
ActiveSheet.Protect Password:="ter"
Exit Sub
Else
ActiveSheet.Unprotect Password:="ter"
Range("D" & i).Locked = True
ActiveSheet.Protect Password:="ter"
End If
Next i
i = i + 1
Exit Sub
End Sub
Bonjour,
Sub déverrouiller()
Dim i As Integer
For i = 2 To 1000
If Range("C" & i) = "NC" Then
ActiveSheet.Unprotect Password:="ter"
Range("D" &i).select
Range("D" & i).Locked = False
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect Password:="ter"
Else
ActiveSheet.Unprotect Password:="ter"
Range("D" & i).Locked = True
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect Password:="ter"
End If
Next i
End SubEviter de faire des Exit sub sinon vous sortez de votre boucle.