recherche plusieur date une seul cellule

[ILOVEUBB]

bonjour !
voila je suis devant une impasse , avec l'aide du forum et l'orientation des membres j'ai pu réaliser ce code qui me permet de faire apparaitre un message 2 jour avant , et il fonctionnent très bien seulement quand il ya une seul date dans la cellule mais pas quand il ya plusieurs date dans la cellule séparant avec ( ; ) .
je ne c'est pas comment procéder !!!!!



code:

Sub thedate()
Dim TheDate As String, Index As Variant
Dim T As Variant, MyDate As String

TheDate = Format((Date + 2), "dd/mm/yyyy")

T = Range("Feuil2!H1:H65000")

Index = Application.Match(TheDate, T, 0)

If IsError(Index) Then
MsgBox "Résultat négatif. Rien trouvé.", vbOKOnly + vbInformation, "Résultat"
Else

MsgBox "La Prochaine Date : " & TheDate & " existe. Elle est représentée par " & _
"l'item " & Index & " du tableau." & " N° :" & Cells(Index, 24), vbInformation + vbOKOnly, "Résultat"
End If
Erase T
End Sub

 

[ILOVEUBB]

Re : recherche plusieur date une seul cellule

salut job75
vraiment tu est trop fort je ne sais vraiment pas quoi dire , c'est bien ce que je voulais , je pense il me reste beaucoup a apprendre pour maîtriser du vba .
encore merci tu est vraiment un pro

 

[job75]

Re : recherche plusieur date une seul cellule

Bonjour à tous,

Pensant à ceux qui ouvriront mes fichiers plus tard, j'ai mis la fonction AUJOURDHUI() en colonne H.

A+