Discussion :

[fabrice44]

bonjour,
j'ai un problème je ne comprends pas pourquoi ma macro de fonctionne pas, que la date "a" soit comprise ou non dans le creneau e<a>f la réponse et "pas bon"

pourriez vous m'aider

d'avance merci

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
Sub essaidate()
 
Dim e As Date
e = "27 / 10"
Dim f As Date
f = "15 / 3"
 
    a = Worksheets("fc 2007").Cells(3, 27)
        If f < a > e Then
        Worksheets("fc 2007").Cells(60, 18) = "OK"
        Else
        Worksheets("fc 2007").Cells(60, 18) = "PAS BON"
        End If
 
End Sub

[ouskel'n'or]

Pas qu'un pb de date

Code :

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

1
2
3
4
5
6
    a = cdate(Worksheets("fc 2007").Cells(3, 27).value)
        If f < a and f > e Then
'ou
       if f < a and a > e then
'ou
       ...

C'est toi qui vois.
Ensuite, je ne sais pas ce que va dire VBA de tes formats de date.
Quel est le format dans ta feuille de calculs ?
A+

[fabrice44]

il y avait quelques petits truc à changer sinon ca roule !
franchement je te remercie beaucoup pour tous les trucs que tu m'as donné, c'est vraiment sympa !
un jour moi aussi (peut être) j'aiderai des personnes à résoudre leurs problèmes VBA