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

Krimo76 · 1 Octobre 2020

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 · 1 Octobre 2020

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

sylvanu · 1 Octobre 2020

Bonjour Krimo,
On a le droit au VBA ?

Dugenou · 1 Octobre 2020

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

Krimo76 · 1 Octobre 2020

sylvanu à dit:
Bonjour Krimo,
On a le droit au VBA ?

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

sylvanu · 1 Octobre 2020

La jolie solution de Dugenou.

Krimo76 · 1 Octobre 2020

Dugenou à dit:
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 · 1 Octobre 2020

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 · 1 Octobre 2020

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

Dugenou · 1 Octobre 2020

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

Krimo76 · 1 Octobre 2020

Merci Sylvanu mais je mets ça où ?

Je suis novice

sylvanu · 1 Octobre 2020

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 · 1 Octobre 2020

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

Grand merci ça marche !!

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

Krimo76

XLDnaute Nouveau

sylvanu

sylvanu

XLDnaute Barbatruc

Dugenou

XLDnaute Barbatruc

Krimo76

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Krimo76

XLDnaute Nouveau

Dugenou

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

Dugenou

XLDnaute Barbatruc

Krimo76

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Krimo76

XLDnaute Nouveau

Discussions similaires