Recherche de date et affichage

Bonjour

Je debut en VBA, mais je m'attaque sur quelque chose de vraiment compliqué (pour moi) pour me facilité la vie sur un fichier excel.

J'aimerai pouvoir rechercher une date dans un classeur avec plusieurs sheet.

Et que si ca trouve la date cela m'affiche en message le nom du sheet et ce qu'il y a écrit dans la case précedente de la date. ( si date trouvé en E10 que ca m'affiche le texte ecrit en E9). Il peux y avoir plusieurs fois la date donc je suppose que je vais devoir ajouté une boucle.

Je sais pas si cela est possible. Pour le moment j'ai reussis à trouvé en fouillant quelqu'un qui a fait cela.

Sub TestDate()

Dim VarDate As Date

VarDate = CDate("18/5/2015")

Set x = Sheets("Weekly").Cells.Find(VarDate, , xlValues, xlWhole, , , False)

If Not x Is Nothing Then

MsgBox "X = " & x & Chr(13) & "Cette date est à la cellule " & x.Address

Else

MsgBox "Cette date n'est dans aucune cellule de la feuille.", 16

End If

End Sub

Cela me permet deja de savoir si j'ai ma date

Si quelqu'un peux m'aidé et me dire si cela est possible je le remercirai grandement

Bon j'ai continué a bossé sur mon projet.

Sub TestDate()

Dim VarDate As Date

Dim Feuille As Worksheet

VarDate = CDate(InputBox("date"))

For Each s In Array("Feuille 1",ect)

With Sheets(s).Cells

Set X = .Find(VarDate, , xlValues, xlWhole, , , False)

If Not X Is Nothing Then

MsgBox "X = " & X & Chr(13) & "Cette date est à la cellule " & X.Address

End If

End With

Next s

End Sub

Mais je bloque encore sur le message.

Comme dit precedement j'aimerai qu'il me dise sur quel sheet il trouve le resultat et qu'il me donne ce qui est ecrie dans la case avant