Verrouiller les cellules suivant

[enos]

j’ai essayer de créer code VBA permettant de verrouiller les cellules B9, D9 et B11 de la feuille FICHE RENSEIGNEMENT, lorsque la cellule B6 affiche les valeurs versement ou virement,
voici l’exemple mais il ne verrouille pas les cellules

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = « $B$6 » Then

If Target.Value = « versement » Or Target.Value = « virement » Then

Me.Range(« B9,D9,B11 »).Locked = True
Else
Me.Range(« B9,D9,B11 »).Locked = False

End If
End If
End Sub

[Johnny]

Hello,

votre syntaxe n’est pas juste :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = « $B$6 » Then
If Target.Value = « versement » Or Target.Value = « virement » Then
Me.Range(« B9,D9,B11 »).Locked = True
Else
Me.Range(« B9,D9,B11 »).Locked = False
End If
End If
End Sub

Le guillemets doivent etre droits et pas courbe

Salutations

[enos]

oui, je comprend votre remarque mais, c’est la même chose, essayé pour voir

[Johnny]

vous pourriez nous transmettre votre fichier pour qu’on puisse mieux vous aidez

[enos]

Classeur1.xlsm (21,2 Ko)

en attache comme demandé

[Johnny]

le protection de votre feuille n’etait pas active

cela devrai fonctionné

Classeur1 (12).xlsm (24,2 Ko)

[enos]

GOOD JOB THANKS

[Johnny]

ravie d’avoir pu aide , n’oubliez de valide la case solution qui fait toujours plaisir

salutation