Date comprise entre

Bonjour,

Je viens vers vous car j'essaye en vain de faire un script VBA pour comparer des dates c'est a dire par exemple :

Si ma date_Planning est comprise entre ma date début et ma date de fin alors on lance le script sinon rien ...

Date_debut < Date_Planning< Date_fin

Voici mon script et mes variables :

'**** Déclaration des variables ****
Dim Date_Deb As Date '* Date début calendrier
Dim Date_Fin As Date '* Date fin calendrier 
Dim Date_Test As Date '* Date à test 
Dim Lec_Ligne As Integer '* Variable de lecture des lignes
Dim Ec_Ligne As Integer '* Variable de remplissage des lignes

Date_Deb = Sheets("Configurations").Range("K2").Value
Date_Fin = Sheets("Configurations").Range("K3").Value
Lec_Ligne = 3
Ec_Ligne = 7 

While Lec_ligne <= 10
Date_Test =Sheets("Véhicules").Cells(Lec_Ligne, 12).Value
[tab]If Date_Deb < Date_Test < Date_fin Then[/tab]
[tab]'*Mon script[/tab]
Ec_ligne = Ec_ligne +1
[tab]End If[/tab]
Wend 

Si une personne pourrais m'éclairer sur mon problème car j'ai aucune idée de pourquoi cela prend pas ...

Merci beaucoup pour les réponses que vous pourrez m'apporter pour cette problématique .

Bonjour,

    If Date_Test > Date_Deb And Date_Test < Date_fin Then

Cordialement.

...

J'avais pas eu l'idée de décomposer complétement la formule ... j'avoue que cela fonctionne vraiment pas mal

Merci beaucoup

Rechercher des sujets similaires à "date comprise entre"