Bloquer des cellules

Bonjour les développeurs, je suis bloquée et je sollicite votre aide.
Alors je voudrais savoir comment je peux bloquer la saisie dans les cellules "Détail" et "Commentaire" si la réponse est non ! Sinon si la réponse est "oui" rien ne se passe et on peut saisir dans les les cellules "Détail" et "Commentaire".
Est ce qu'il y a moyen sans VBA sinon si le recours au VBA est plus facile, quel est le code que je peux utiliser.
Je suis vraiment perdue. Merci pour votre interaction !!

Pièce jointe 586918

Bonjour,
Je ne vois pas d'autres manières qu'avec VBA de réellement protéger une cellule en fonction d'une valeur dans une autre.
Il existe bien la fonctionnalité Validation de données qui permet de restreindre l'encodage dans une cellule suivant condition. Toutefois on n'est pas à l'abri d'une suppression pure et simple par la touche Delete et d'un copier/coller qui pourrait supprimer finalement la validation de données puisque le fait de Coller supprime les propriétés de la cellule "cible" au profit de celles de la cellule "source"

D'accord Monsieur Philippe, est ce que vous pouvez me proposer un code VBA ?
Merci

Bonjour,
Petit exemple vite fait, il peut être amélioré, avec un tableau structuré nommé t_encodage (beaucoup plus simple à gérer)
Dans la colonne A, nommée Statut, j'utilise une valeur booléenne (VRAI ou FAUX)
Si c'est FAUX en colonne A (dans la procédure la colonne immédiatement à gauche de la colonne Valeur et que l'on se trouve dans la colonne nommée Valeur, il y a simulation de la touche Enter

Code de la procédure événementielle à placer dans le module de la feuille où se trouve le tableau

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range Dim ColumnNumber As Integer Set rng = Range("t_encodage") ColumnNumber = rng.ListObject.ListColumns("Valeur").Index With Target If Not Intersect(rng, Target) Is Nothing Then If ColumnNumber = .Column Then If .Offset(0, -1) = False Then Application.SendKeys ("~") End If End If End With End Sub

---

Illustration de la table ayant servi pour le test

Pièce jointe 586921

Bonjour Mr Philippe,
Merci pour votre feed-back mais je crains que le code ne marche pas pour moi !

Bonjour,

Citation:

---

Merci pour votre feed-back mais je crains que le code ne marche pas pour moi

---

C'est à dire ?

Le code affiche le code erreur d'exécution 91

Bonjour,

Citation:

---

Le code affiche le code erreur d'exécution 91

---

A quelle ligne ?
Avez-vous bien placé le code que j'ai publié dans le module de la feuille où se trouve le tableau
Votre tableau se nomme t'il t_encodage et sinon, avez-vous modifié le code dans la ligne Set rng = Range("t_encodage")

Sauf si je le signale, je teste tous les codes que je publie