Date comprise entre deux valeurs

[Talzatior]

Bonjour à tous

Je viens demander une confirmation quant à la syntaxe d'une condition dont j'ai besoin pour avancer ...

En effet, je souhaite savoir si l'on peut utiliser cela :

If .Cells(lig, col).Value >= 01/01/2009 and if .Cells(lig, col).value <= 31/03/2009

Merci par avance

 

[mromain]

Re : Date comprise entre deux valeurs

bonjour Talzatior,

essaye avec cette ligne :

If .Cells(lig, col).Value >= DateSerial(2009, 1, 1) And .Cells(lig, col).Value <= DateSerial(2009, 3, 31) Then

a+

 

[Catrice]

Re : Date comprise entre deux valeurs

Bonjour,

Plutot quelque chose comme ceci :

Sub Test()
lig = 1
col = 1
With ActiveSheet
If .Cells(lig, col).Value2 >= #1/1/2009# And .Cells(lig, col).Value <= #3/31/2009# Then
MsgBox "OK"
Else
MsgBox "NOK"
End If
End With
End Sub


Voir le fichier joint

 

[Talzatior]

Re : Date comprise entre deux valeurs

Merci beaucoup pour vos deux réponses, je vais de suite tester cela

A bientôt