ILOVEUBB
XLDnaute Occasionnel
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
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