Discussion :

[ARTETA13]

Bonjour,

J'ai petit programme en VBA et je souhaiterai définir le cas ci-dessous:

Date1 est comprise entre le 1er avril et le 31 octobre.
et la Date 2 est comprise entre le 1 er janvier et le 31 mars et entre le 1 novembre et le 31 décembre.

Pourriez-vous m'aider svp.

Merci

Bonne journée

[Philippe Tulliez]

Bonjour,

Bonjour,
J'ai petit programme en VBA et je souhaiterai définir le cas ci-dessous:
Date1 est comprise entre le 1er avril et le 31 octobre.
et la Date 2 est comprise entre le 1 er janvier et le 31 mars et entre le 1 novembre et le 31 décembre.
Pourriez-vous m'aider svp.
Merci
Bonne journée

Quelle est la question ?

[ARTETA13]

.
comment écrie sous vba l'expression suivante:
Date1 est compris entre le 1er avril (01/04) et le 31 octobre (31/10)
Date2 est compris entre le 1er janvier (01/01) et le 31 mars (31/03) ainsi qu'entre le 1er novembre (1/11) et le 31 décembre (31/12).

Mon problème est de traduire cela sous vba.

[gFZT82]

Bonjour,

Date2 est compris entre le 1er janvier (01/01) et le 31 mars (31/03) ainsi qu'entre le 1er novembre (1/11) et le 31 décembre (31/12).

J’ai cru comprendre que tu voulais dire Date2 est compris entre le 1er janvier (01/01) et le 31 mars (31/03) OU entre le 1er novembre (1/11) et le 31 décembre (31/12).
J’ai placé la valeur de Date1 en A1 et la valeur de Date2 en A2.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
Sub Test()
Dim Date1 As Date, Date2 As Date
Dim Message1 As String, Message2 As String
    Date1 = Range("A1")
    Date2 = Range("A2")
    'Date1 est compris entre le 1er avril (01/04) et le 31 octobre (31/10)
    If Date1 >= DateValue("01/04/2012") And Date1 <= DateValue("31/10/2012") Then
        Message1 = "Date1 est conforme aux critères"
    Else
        Message1 = "Date1 est hors critères"
    End If
 
    'Date2 est compris entre le 1er janvier (01/01) et le 31 mars (31/03) _
    OU entre le 1er novembre (1/11) et le 31 décembre (31/12).
    If (Date2 >= DateValue("01/01/2012") And Date2 <= DateValue("31/03/2012")) Or _
    (Date2 >= DateValue("01/11/2012") And Date2 <= DateValue("31/12/2012")) Then
        Message2 = "Date2 est conforme aux critères"
    Else
        Message2 = "Date2 est hors critères"
    End If
    MsgBox Message1 & Chr(10) & Message2
End Sub

Cordialement.