Interdiction de modifier le contenu d'une cellule à condition que....

[ctlau]

Bonjour à tous,


Je rentre de suite dans le vif du sujet, j'ai deux colonnes (B,C) ou je rentre des informations, et en colonne H le résultat d'une formule.
Si c'est possible, je voudrai interdire la modification de la ligne en (B et C) si H est égale à "X"
Textuellement, interdire la modification de la référence (B) et de la quantité (C) si dans la colonne H il y a un "X".
Donc tant que H est vide on peut modifier B et C.
Tout en sachant que la feuille est protégée. (mdp => "aze")
je vous joints un fichier qui sera certainement plus parlant

Merci d'avance pour vos réponses, du moins je l'espère.

 

[Dranreb]

Re : Interdiction de modifier le contenu d'une cellule à condition que....

Bonsoir.

Je pense que le mieux serait d'agir lors de la modification de la colonne H par la personne ou le code qui y a accès, en modifiant la propriété Locked des cellules selon qu'on y met ou non un X.

 

[ctlau]

Re : Interdiction de modifier le contenu d'une cellule à condition que....

Bonjour et merci Dranreb,

Mais est-ce-qu'il y aura une âme charitable qui voudrait bien me donner quelques lignes de code, car personnellement je n'y comprends pas grand chose en VBA.

Merci à vous.

 

[Dranreb]

Re : Interdiction de modifier le contenu d'une cellule à condition que....

Bonsoir.

À mettre dans le module Feuil1 (Feuil1) :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
Set Target = Intersect(Me.[H2:H6000], Target)
If Target Is Nothing Then Exit Sub
For Each Cel In Target
   Intersect(Me.[B:C], Cel.EntireRow).Locked = Not IsEmpty(Cel.Value)
   Next Cel
End Sub