Trouve date dans une Plage

Bonjour

j'avais écris un bon 300 mots puis sans le vouloir j'ai fait précedents.

On va donc faire plus court : Dans une plage de cellule genre E2:K11.

Dans cette plage je n'ai que 2 types de valeurs; des nombres entiers et une date.

Je veux écrire un script qui permetterais de trouver la cellule contenant une date parmis toutes les cellules de la plage et récupérer la valeur de cette date. Genre: Find any date within range("range")

Pour ce qui est du date.value il n'y a pas de problème, mais c'est la fonction qui me permetterais de trouver la cellule contenant un date qui me bloque.

Merci de votre aide

Bonsoir et bienvenue

Sub TrouveDate()
For Each c In Range("E2:K11")
If IsDate(c) Then
MsgBox ("la date est le " & c.Value & " et se trouve dans la cellule " & c.Address)
End If
Next
End Sub

Amicalement

Nad

Rechercher des sujets similaires à "trouve date plage"