Bloquer la saisie des données si une valeur clé n'est pas dans une cellule

[Mister Binaire]

Bonjour le Forum,

Voici mon pbl, l'opérateur va par exemple rentrer des data au kms à partir de la cellule A1. mais je voudrais qu'il puisse saisir si uniquement une valeur clé (spécification) est mise en B2 si pas de valeur en B2 impossible de saisir en A1.

Merci de votre aide.

MB

 

[Papou-net]

Re : Bloquer la saisie des données si une valeur clé n'est pas dans une cellule

Bonjour Mister Binaire,

Si j'ai tout compris, voici un exemple des plus simples en pièce jointe.

Pour pouvoir saisir en colonne A, B2 doit contenir le mot "Clé".

A +

Bonne journée.

 

[Mister Binaire]

Re : Bloquer la saisie des données si une valeur clé n'est pas dans une cellule

Merci à toi papou-net .
Mais la valeur rentrée en B2 doit être une variable et non une constante (exemple 5,8,9,7).

Merci de ton aide..

MB

 

[Papou-net]

Re : Bloquer la saisie des données si une valeur clé n'est pas dans une cellule

Merci à toi papou-net .
Mais la valeur rentrée en B2 doit être une variable et non une constante (exemple 5,8,9,7).

Merci de ton aide..

MB

RE

Bien compris, mais cà ne me semble pas être un problème: tu peux très bien utiliser une variable.

Le tout est de savoir l'origine de cette variable.

A +

Cordialement.

 

[Compte Supprimé 979]

Re : Bloquer la saisie des données si une valeur clé n'est pas dans une cellule

Bonjour le fil

Si je puis me permettre, le code de Papou-net est OK il faut seulement l'adapté à tes besoins
du style

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Columns(1), Target) Is Nothing Then
    If Not Range("B2") <> "" Then Target.ClearContents
  End If
End Sub

A+

 

[Mister Binaire]

Re : Bloquer la saisie des données si une valeur clé n'est pas dans une cellule

Ok, je suis mal exprimé !!!

La valeur qui va être rentré en B2 sera rentrée par l'opérateur lui même ainsi il débloquera sa colonne A1 et pourra ainsi saisir ses data en A1.
La valeur qui sera rentrée en B2 (un nombre) est une spécification cela me permet ensuite de calculer le % de valeur HS rentrée en A1 à partir de cette limite .

Espérant avoir été clair cette fois ci et te remerciant par avance...

MB

 

[Papou-net]

Re : Bloquer la saisie des données si une valeur clé n'est pas dans une cellule

RE

OK, alors je te propose ceci:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cle As String
Cle = "5,7,8,9"
If Not Intersect(Columns(1), Target) Is Nothing Then
  If InStr(Cle, Range("B2")) = 0 Then Target.ClearContents
End If
End Sub

Tu as juste à modifier les codes dans la variable Cle, en les séparant par une virgule ou tout autre caractère spécial.

Une autre solution serait d'établir une liste de codes sur une feuille masquée, mais si les clés ne sont pas susceptibles d'évoluer fréquemment, cette solution est la plus simple.

A +

Cordialement.

PS: salut à toi Bruno.

 

[Mister Binaire]

Re : Bloquer la saisie des données si une valeur clé n'est pas dans une cellule

Papou Net & BrunoM45 un grand merci pour votre macro cela marche à merveille !!!