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
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
Code:
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
Sinon, sans verrouillage, simplement en interdisant l'accès à la cellule.
Code à mettre dans le module de la feuille :
Code:
'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
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
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
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 ??