Problémes de format date

bonjour,

Je tourne en rond depuis pas mal de temps avec des histoires de dates.

Je comprends pas les réponses d'excel avec mon code (UF absences)

çà me met le message d'erreur dés qu'on prend des périodes entre 06/19 et 05/20 alors que le but est inverse.

j'ai mis des formats Cdate, mais c'es pareil.

 
       'controle dates 1ere annee
        If annee1 Or annee2 < annee Or (annee1 = annee And Mois1 < 6) Then
            MsgBox "date(s) inférieure(s) à la période 06/" & annee & " à 05/" & annee + 1
            MsgBox "si (" & annee1 & " ou " & annee2 & " < " & annee & ")ou(" _
             & annee1 & " = " & annee & " et " & Mois1 & " <6)"
             Exit Sub
        End If

       'controle dates 2éme annee
        If annee1 Or annee2 > annee + 1 Or (annee2 = annee + 1 And Mois1 > 5) Then
            MsgBox "date(s) superieure(s) à la période 06/" & annee & " à 05/" & annee + 1
            MsgBox "si (" & annee1 & " ou " & annee2 & " < " & annee & ")ou(" _
             & annee1 & " = " & annee & " et " & Mois1 & " <6)"
             Exit Sub
        End If

merci de votre aide

fronck

Slt Fronck,

sans voir le fichier il faut corriger les condition à mon avis, par exemple

Changer cette ligne :

If annee1 Or annee2 < annee Or (annee1 = annee And Mois1 < 6) Then

avec celle-là

If (annee1 < annee) Or (annee2 < annee) Or (annee1 = annee And Mois1 < 6) Then

et ainsi de suite

bonjour m3ellem1,

oui çà semble fonctionner, je l'avais fait comme çà pour les 2 premiers termes mais sans mettre les parenthéses.

il y avait une 2eme erreur, c'est Mois 2 (date de fin) dans la 2éme condition.

merci

fronck