Passer à la ligne suivante si Cellule vide

[JordaneBanane]

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 !!! 🙂

 

[Jauster]

Bonjour,

Pour facilité l'aide que nous pouvons t'apporter, peux-tu joindre une fichier anonymisé ?
De plus n'oublie d'utiliser les balises ["code=VB][/code"] (sans les guillemets) pour faciliter la lecture du code.

Merci

 

[JordaneBanane]

Bonjour,

Voici le fichier dans lequel j'aimerai insérer le code.

Je vous remercie

 

[Jauster]

Bonjour,

Proposition à essayer en ajoutant :

If DifferenceDate < LimiteVisite And Cells(i, 10) <> "" Then

Bonne journée

 

[JordaneBanane]

Super Merci beaucoup c'est parfait !!