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

[Krimo76]

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.

 

[sylvanu]

Bonjour Krimo,
On a le droit au VBA ?

 

[Dugenou]

Bonjour,
Si la valeur bloquante (NON) est en A3 : ta cellule à bloquer : validation des données/personnalisé
=A3<>"non"
Cordialement

 

[Krimo76]

Bonjour Krimo,
On a le droit au VBA ?

Je n'y connais rien au VBA donc si tu as plus simple

 

[sylvanu]

La jolie solution de Dugenou.

 

[Krimo76]

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]

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]

Alors allons y.
En PJ un essai avec cette petite macro événementielle :

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

 

[Dugenou]

pffff ça a l'air si facile quand c'est fait par un pro !!

 

[Krimo76]

Merci Sylvanu mais je mets ça où ?

Je suis novice

 

[sylvanu]

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.

 

[Krimo76]

Merci Sylvanu, j'ai réussi à me débrouiller avec ton fichier et un ami à moi.

Grand merci ça marche !!