XL 2016 Verrouiller cellules en vba

[Maxime26]

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 ."

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.

 

[Jacky67]

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 ."

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.

Bonjour,
Une cellule est non modifiable que si elle est verrouillée et la feuille protégée
Un exemple en Pj qui verrouille les cellules de la colonne B et protège la feuille avec possibilité de modification par vba
Dans l'exemple, au départ toutes les cellules sont déverrouillées