Bloquer une saisie si la date se trouve dans une liste

[fb62840]

Bonjour,

Je souhaite interdire la saisie dans une cellule si, dans cette cellule est saisie une date qui est présente dans une zone nommée DatesInterdites.

Avez-vous une idée pour m'aider à le faire ?

Merci

 

[phlaurent55]

Bonjour fb........

voir fichier joint

à+
Philippe

 

[fb62840]

Bonjour,

Merci beaucoup Philippe
j'ai commis une erreur...
En effet, la saisie est dans une cellule adjacente à celle qui contiendrait la date

J'ai un début de code de macro que j'ai essayé mais qui ne me donne pas le résultat attendu après avoir appliqué aux cellules la validation de donnée telle que tu l'as présentée (j'avais fait un essai avec une validation date différente de mais ça ne marche pas)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then
        If Target.Offset(0, -1) <> "" Then
        Target.Offset(0, -1).Select
        SendKeys "{ENTER}"
        End If
    End If
End Sub

Ce qu'il faut savoir c'est que la date est généré par une formule de type :
=SI(C2="";"";AUJOURDHUI())

Le code s'exécute mais contrairement à ce que je pensais, même si la date est "interdite" le sendkey ne provoque pas le refus de la saisie.

 

[phlaurent55]

Re,

un essai en pièce jointe

à+
Philippe