Discussion :

[Invité]

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 !!

[Philippe Tulliez]

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"

[Invité]

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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

[Philippe Tulliez]

Bonjour,

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

C'est à dire ?

[Invité]

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

[Philippe Tulliez]

Bonjour,

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