Date en semaine

Bonjour,

Je souhaiterais gérer une alerte par rapport à une date, qui est générée en semaines.

J'ai donc ce code, mais je ne sais pas comment lui dire que c'est exprimé en semaine.

Private Sub CommandButton1_Click()
If ComboBox1.Value > Date + 5 Then
MsgBox "Bla Bla"
ComboBox1.Value = ""
End If
End Sub

Merci,

Bonjour,

Un exemple de date en semaine serait le bien venu pour comprendre ce que tu désire sinon, une petite proc qui te donne le numéro de la semaine de la date passée en argument :

Sub NumeroSemaine()

    Dim LaDate As Date
    Dim PremLundi As Date
    Dim NumSemaine As Integer

    LaDate = Date

    'retoune le premier lundi de l'année de la date passée en argument
    PremLundi = DateSerial(Year(LaDate - Weekday(LaDate - 1) + 4), 1, 1)

    'retourne le numéro de la semaine
    NumSemaine = Int((LaDate - PremLundi + Weekday(PremLundi) + 5) / 7)

    MsgBox NumSemaine

End Sub

Hervé.

Bonjour,

J'utilise un USF pour donner des délais qui sont repris dans un combobox qui reste cependant ouvert et modifiable.

Je voudrais créer des alertes de façon à ce que si certains s'amusent à trop modifier la semaine proposée elles s'affichent.

Ci-joint un l'USF

Merci