Discussion :

[kabamel]

Salut, à tous
J'ai un petit problème de boucle sur date, je voudrais affiché un message à partir du 25 de chaque mois Jusqu'au 28 pour avertir l'utilisateur.
J'ai essayé avec ce code mais aucun effet. voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim DateFin As Date
' DateFin = Format(Date, "dd-mmm-yyyy")
DateFin = Day(Date)
DateDebut = Day(Date)
For DateDebut = 25 To DateFin = 28
    If DateDebut < DateFin Then
        MsgBox "Ce mois est échu" & vbCrLf & "Veillez prendre en compte le nouveau mois", vbInformation, "Nouveau Mois"
    Else
        Exit Sub
    End If
Next DateDebut

Merci pour votre aide

[ClaudeLELOUP]

Bonjour,

Ceci devrait suffire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Public Sub tstDate()
  If Day(Date) >= 25 And Day(Date) < 28 Then
     MsgBox "Ce mois est échu" & vbCrLf & "Veuillez prendre en compte le nouveau mois.", vbInformation, "Nouveau mois"
  End If
End Sub

[kabamel]

Merci Claude. ça marche