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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Octobre 2020

• #2

Bonjour Krimo,
On a le droit au VBA ?

 

Vote positif 0 Vote négatif

Dugenou

XLDnaute Barbatruc

• 1 Octobre 2020

• #3

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

 

Vote positif 0 Vote négatif

K

Krimo76

XLDnaute Nouveau

• 1 Octobre 2020

• #4

sylvanu à dit:

Bonjour Krimo,
On a le droit au VBA ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Octobre 2020

• #5

La jolie solution de Dugenou.😉

 

Vote positif 0 Vote négatif

K

Krimo76

XLDnaute Nouveau

• 1 Octobre 2020

• #6

Dugenou à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Dugenou

XLDnaute Barbatruc

• 1 Octobre 2020

• #7

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Octobre 2020

• #8

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

 

Pièces jointes

• Krimo.xlsm

  14.1 KB · Affichages: 26

Vote positif 0 Vote négatif

Solution

Dugenou

XLDnaute Barbatruc

• 1 Octobre 2020

• #9

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

 

Vote positif 0 Vote négatif

K

Krimo76

XLDnaute Nouveau

• 1 Octobre 2020

• #10

Merci Sylvanu mais je mets ça où ?

Je suis novice

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Octobre 2020

• #11

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.

 

Vote positif 0 Vote négatif

K

Krimo76

XLDnaute Nouveau

• 1 Octobre 2020

• #12

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

Grand merci ça marche !!

 

Vote positif 0 Vote négatif