XL 2016 Vérrouillage conditionnel d'une cellule

[Raphaël76]

Bonjour,
Je souhaiterais verrouiller la saisie dans une cellule en fonction des valeurs de 2 autres cellules.
Exemple :
A3 verrouillée si A1>A2

J'ai tenté la macro suivante sans succès ....
Sub Macro1()
If Cells("A2") < Cells("A1") Then
' MsgBox "Tout le rouge n'est pas expliqué.", , "PROTECTION"
Cells("A3").Locked = True
End Sub

Merci par avance pour votre aide
Raphael

 

[Jacky67]

Bonsoir,
Le verrouillage d'une cellule ne suffit pas pour empêcher sa modification, il faut en plus protéger la feuille
Tester comme ceci

Sub Macro1()
ActiveSheet.Unprotect
[A3].Locked = False
If [A2] < [A1] Then
' MsgBox "Tout le rouge n'est pas expliqué.", , "PROTECTION"
[A3].Locked = True
ActiveSheet.Protect
End If
End Sub

 

[Theze]

Bonsoir,

Sinon, sans verrouillage, simplement en interdisant l'accès à la cellule.
Code à mettre dans le module de la feuille :

'A3 verrouillée si A1>A2
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
    If Target.Address(0, 0) <> "A3" Then Exit Sub
   
    If Range("A1").Value > Range("A2").Value Then Range("A4").Select
   
End Sub

A la sélection de la cellule A3, si A1 est supérieur à A2, il sera impossible de la sélectionner car la sélection sera aiguillée vers la cellule A4

 

[Raphaël76]

Merci JJ,
A partir d'une feuille protégée, donc saisie en A3 verrouillée.
Je souhaite déverrouiller la saisie en A3 dès que A2 > A1.

ci joint fichier en exemple.

Par avance merci

 

[Staple1600]

Bonsoir le fil, le forum

Pourquoi ne pas simplement utiliser Données/Validation ?
avec cette formule: =NON(A1>A2)
Et en mettant lemessage dans l'onglet Alerte d'Erreur, avec comme choix de Style: Arrêt

 

[Jacky67]

Merci JJ,
A partir d'une feuille protégée, donc saisie en A3 verrouillée.
Je souhaite déverrouiller la saisie en A3 dès que A2 > A1.

ci joint fichier en exemple.

Par avance merci

Re..
A défaut de savoir comment les cellules A1 et A2 sont renseignées , dans l'exemple ces deux cellules sont déverrouillées
Tester le classeur en PJ

 

[Staple1600]

Bonjour le fil, le forum, Raphaël76, Theze, jacky67

Transparence quand tu nous tiens...

[aparté]
Qu'il est loin le temps des synergies et émulations entre répondeurs sur XLD
[/aparré]

 

[Raphaël76]

Bonjour JJ,
dslé mais je m'en sors pas ...
Je vous joins le fichier d'origine

Feuille protégée (pour éviter les saisies n'importe ou ds le classeur)
Saisie ds la colonne "M" verrouillée à rendre possible en fonction des valeurs des colonnes BF et BG
BF et BG sont des cellules calculées verrouillées
Exemple :
M15 verrouillée par defaut
M15 à deverrouiller si BG13>BF13

Merci

 

[Staple1600]

Re

@Raphaël76
Je réitère
Quid de ma proposition du message#5?
A défaut de réponse sur ma sugesstion, me saluer, serait la moindre des courtoisies, non ?

 

[Raphaël76]

Bonjour Staple1600,
Je n'ai pas exploré votre solution pour le moment et dont je ne comprend pas la mise en oeuvre ...

dslé pour l'oubli de salutation j'étais resté concentré sur mon fichier

Cordialement,

 

[phlaurent55]

Bonjour à tous,

Bonjour Staple1600,
Je n'ai pas exploré votre solution pour le moment et dont je ne comprend pas la mise en oeuvre ...

dslé pour l'oubli de salutation j'étais resté concentré sur mon fichier

Cordialement,

La solution de Staple est la plus simple et la meilleure
S'il ne l'avait pas proposée hier à 22h57, j'aurais donné la même à 22h58

à+
Philippe

 

[Staple1600]

Re

Voici les détails pour la mise en oeuvre
On sélectionne A3 et on va dans le menu Données/Validation

 

[Raphaël76]

Bonjour à tous,


La solution de Staple est la plus simple et la meilleure
S'il ne l'avait pas proposée hier à 22h57, j'aurais donné la même à 22h58

à+
Philippe

OK Laurent
mais je ne vois comment la mettre en oeuvre ...
Possible de me joindre un fichier avec un petit exemple ?

cdlt,

 

[Jacky67]

Re.
Si tu ne veux pas la proposition de JM.....????
Avant de continuer, cette formule présente en BG13
=SOMME(AD13:AV14;BA13;BC13)
est-elle correcte ???==>AV14<==
Faudra t'il traiter la plage M13:M60 ??

 

[Staple1600]

Re, bonjour phlaurent55

J'ai mis une copie d'écran pour la mise en oeuvre dans le message#12