Résolu XL 2010 Autoriser la saisie dans une cellule sauf si une valeur est indiquée dans une autre cellule

Krimo76

XLDnaute Nouveau
Bonjour,

Je souhaiterais pouvoir autoriser la saisie dans une cellule sauf si une autre cellule contient une valeur bloquante ("NON", "FAUX" ou autre valeur).

Dans ce cas ma cellule devra être à zéro et ne pas autoriser de modification (ou au pire m'indiquer une alerte que je paramétrerai)

J'ai essayé plusieurs choses en vain via la fonction SI, la validation des données et "Personnalisé" ... je n'y arrive pas !

Si quelqu'un peut m'aider svp, ça serait top.

Merci d'avance.
 
Ce fil a été résolu! Aller à la solution…

Krimo76

XLDnaute Nouveau
Bonjour,
Si la valeur bloquante (NON) est en A3 : ta cellule à bloquer : validation des données/personnalisé
=A3<>"non"
Cordialement
En effet ça fonctionne. Merci Dugenou !

Mais comment forcer la cellule (disons A1) à 0 si A3=NON. En supposant que A1 contenait une autre valeur auparavant, et qu'elle ne soit plus modifiable tant que A3=NON
 

Dugenou

XLDnaute Barbatruc
Supporter XLD
là il faut du VBA et Sylvanu pourra certainement t'aider

ou quelquechose du genre =si(A3="NON";0;l'autre calcul"
Si la valeur est entrée "en dur" et ne provient pas d'un calcul seul le VBA le permettra.
Cordialement
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Alors allons y. :)
En PJ un essai avec cette petite macro événementielle :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:J1")) Is Nothing Then
        If Cells(3, Target.Column) = "NON" Then
            Cells(1, Target.Column) = 0
            MsgBox " Désolé! La cellule " & Target.Address & " est vérouillée" & Chr(10) & _
                    " par la précence du NON dans la cellule correspondante en ligne 3."
        End If
    End If
End Sub
 
Ce message a été identifié comme étant une solution!

Fichiers joints

sylvanu

XLDnaute Barbatruc
Supporter XLD
Vous pouvez nous fournir un fichier anonyme ?
Car suivant les cellules à interdire il faut reprendre un peu la macro.
Par ex dans ma PJ la sécurité n'est active que sur A1:J1.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas