Excel VBA : Test présence date dans une liste nommée

Question

Bonjour à tous,

J'ai fait un petit bout de code pour saisir une date via un inputbox

Je voudrais ajouter un test pour vérifier si la date saisie ne figure pas déjà dans une plage nommée [lst_dates]

Si elle existe alors suite... sinon msgbox et exit sub....

Pouvez vous me donner un coup de pouce pour ça ?

Merci par avnce ;o)

Mon code

Sub macrotestsaisiedate()

Datesaisie = Format(InputBox("Saisie de la date du jour", "Format jj/mm/aaaa"), "mm/dd/yyyy") 

If Datesaisie = "" Then Exit Sub 

If IsDate(Datesaisie) Then Range("E8").Value = CDate(Datesaisie) 

'Vérif si date déjà dans [lst\_dates]

.....

End Sub

Answer 1

Bonjour

Une solution

If WorksheetFunction.CountIf(Range("lst\_Dates"), Datesaisie) <> 0 Then 

    suite....

Else 

    msgbox

End If