Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Jauster

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

Jauster

XLDnaute Occasionnel
Bonjour,

Proposition à essayer en ajoutant :

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

Bonne journée
 

Pièces jointes

  • Plan déploiement 2018 - Copie.xlsm
    29.3 KB · Affichages: 16

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…