JordaneBanane
XLDnaute Nouveau
Bonjour,
Nous avons créé ce code pour que selon la date d'échéance une fenêtre pop up s'ouvre et nous dit les formations arrivant bientôt à échéance.
Cependant certaines formations n'ont pas d'échéance et donc je vais devoir laisser la cellule "Échéance" vide. Or quand cette cellule est vide, le code affiche quand même un message dans la fenêtre PopUp.
J'aimerai donc que si la cellule "Échéance" est vide, passer à la ligne suivante et relancer le code.
Pourriez-vous m'aider ?
Voici le code
Public Sub PopUpVisite()
Dim i As Integer
Dim CurrentDate As Date
Dim VisiteDate As Date
Dim DifferenceDate As Variant
Dim MessageAlertVisite As String
Dim LimiteVisite As Integer
i = 6
LimiteVisite = Cells(1, 14)
CurrentDate = Format(Date, "dd/mm/yyyy")
MessageAlertVisite = ""
While Cells(i, 3) <> ""
VisiteDate = CDate(Cells(i, 10).Value)
DifferenceDate = DateDiff("d", CurrentDate, VisiteDate)
If DifferenceDate < LimiteVisite Then
MessageAlertVisite = MessageAlertVisite & vbCrLf & "Formation pour " & Cells(i, 3) & " " & Cells(i, 4) & " " & "[" & Cells(i, 8) & "]" & " dans " & DifferenceDate & " jours"
End If
i = i + 1
Wend
If MessageAlertVisite <> "" Then
MsgBox MessageAlertVisite
End If
End Sub
Merci !!!
Nous avons créé ce code pour que selon la date d'échéance une fenêtre pop up s'ouvre et nous dit les formations arrivant bientôt à échéance.
Cependant certaines formations n'ont pas d'échéance et donc je vais devoir laisser la cellule "Échéance" vide. Or quand cette cellule est vide, le code affiche quand même un message dans la fenêtre PopUp.
J'aimerai donc que si la cellule "Échéance" est vide, passer à la ligne suivante et relancer le code.
Pourriez-vous m'aider ?
Voici le code
Public Sub PopUpVisite()
Dim i As Integer
Dim CurrentDate As Date
Dim VisiteDate As Date
Dim DifferenceDate As Variant
Dim MessageAlertVisite As String
Dim LimiteVisite As Integer
i = 6
LimiteVisite = Cells(1, 14)
CurrentDate = Format(Date, "dd/mm/yyyy")
MessageAlertVisite = ""
While Cells(i, 3) <> ""
VisiteDate = CDate(Cells(i, 10).Value)
DifferenceDate = DateDiff("d", CurrentDate, VisiteDate)
If DifferenceDate < LimiteVisite Then
MessageAlertVisite = MessageAlertVisite & vbCrLf & "Formation pour " & Cells(i, 3) & " " & Cells(i, 4) & " " & "[" & Cells(i, 8) & "]" & " dans " & DifferenceDate & " jours"
End If
i = i + 1
Wend
If MessageAlertVisite <> "" Then
MsgBox MessageAlertVisite
End If
End Sub
Merci !!!