Vérification sur date saisie

[chris6999]

Bonjour le FORUM

Je souhaiterais savoir si une date a déjà été saisie dans une autre feuille de mon fichier.

Lorsque e saisis une date en C9 dans ma feuille 1 le système vérifie que cette date n'est pas présente dans la plage B7 à B2000 de ma feuille 2.
Si c'est le cas un message d'alerte apparaît

J'ai adapté une macro un peu similiare mais cela ne fonctionne pas
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Alerte si date d'intégration du TI43 est déja connue
'Pour toute saisie dans la plage C7 à C15000 , recherche la valeur saisie dans toutes les 'cellules de la plage C7 à C15000.
'Si la valeur est trouvée Msgbox d'alerte.
'Sinon fin de la macro

If Not Intersect([c9:c9], Target) Is Nothing And Target.Count = 1 Then
With Feuil2
For Each cell In Range("b7:b2000")
If cell.Address <> Target.Address And Target.Value = cell.Value Then
MsgBox "Cette date est déà connue dans la base"
End If
Next
End With
End If
End Sub

Est-ce quequelqu'un peut m'aider?
Cordialement

 

[chris6999]

Re : Vérification sur date saisie

Bonjour et erci Jean Marcel

Ta proposition fontionne nickel dan le fichier test maispas du tout dans mon fichier réel.
Je ne comprends pas pourquoi.
Je vais creuser

Merci encore et bonne journée

 

[chris6999]

Re : Vérification sur date saisie

Ok après quelques vérifications, cela fonctionne très bien dans mon fichier.
Merci encore
Cordialement