XL 2016 Verrouiller cellules en vba

Maxime26 à dit:

Bonjour a tous ,
je vous sollicite car j'ai une problématique ,
a priori cela ne devrai pas être compliqué mais je ne parviens pas a comprendre pourquoi cela ne fonctionne pas .


J'aimerai pouvoir bloquer la cellule de la colonne B si le texte en colonne A (de la même ligne )est égale a oui et inversement si il est égale a non j'aimerai débloquer les cellules colonnes B.

Cela me donne l'erreur d'execution 1004.
"Impossible de définir la propriété locked de la classe Range ."

VB:

Private Sub Worksheet_Change(ByVal Target As Range)

        Dim i As Integer
 
For i = 1 To 100

If Cells(i, 1) = ("oui") Then
    
     Range(Cells(i, 2), Cells(i, 2)).Locked = True
 
   ElseIf Cells(i, 1) = ("non") Then
     Range(Cells(i, 2), Cells(i, 2)).Locked = False
     End If

Next i
End Sub

B.

Cliquez pour agrandir...