Passer à la ligne suivante si Cellule vide

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 !!! :)
 

Discussions similaires

Réponses
0
Affichages
83

Statistiques des forums

Discussions
311 735
Messages
2 082 024
Membres
101 873
dernier inscrit
excellllll