Test OK si date appartient à un interval (mon code ne fonctionne pas...)

[sasori14]

Bonjour,

je cherche à valider la prise de données si la date dans la colonne 4 (Inc_Ligne2, 4) est comprise entre deux dates = contenus de deux cellules. Cela ne fonctionne pas, semble t-il correcte (ou pas !!) Pouvez vous m'aider ?

If Wk_Toto.Cells(Inc_Ligne2, 1) >= Wk_ZZZ.Cells(2, 5) _
And Wk_Toto.Cells(Inc_Ligne2, 1) <= Wk_ZZZ.Cells(3, 5) Then
Test_Date = 1

 

[Pierrot93]

Re : Test OK si date appartient à un interval (mon code ne fonctionne pas...)

Bonjour,

semble correcte... mais sans voir comment sont déclarées et initialisées tes variable difficile d'en dire plus....

bon après midi
@+

 

[VDAVID]

Re : Test OK si date appartient à un interval (mon code ne fonctionne pas...)

Bonjour Sasori14,

A vue de nez et sans le reste du code, peut-être un problème de reconnaissance de dates.
Essaye de rajouter l'instruction Cdate() devant comme ceci:

Cdate(Wk_Toto.Cells(Inc_Ligne2, 1).Value)

Pour toutes les cellules
Bonne journée !

EDIT: Bonjour Pierrot93 !

 

[sasori14]

Re : Test OK si date appartient à un interval (mon code ne fonctionne pas...)

Merci, je vais tester !

 

[ChTi160]

Re : Test OK si date appartient à un interval (mon code ne fonctionne pas...)

Bonjour sasori14
Bonjour le fil
Bonjour le Forum
tu dis :

si la date dans la colonne 4 (Inc_Ligne2, 4) est comprise entre deux dates

Mais Nul Rapport avec une colonne "4" dans ce bout de procédure

If Wk_Toto.Cells(Inc_Ligne2, 1) >= Wk_ZZZ.Cells(2, 5) _
And Wk_Toto.Cells(Inc_Ligne2, 1) <= Wk_ZZZ.Cells(3, 5) Then
Test_Date = 1

.Cells(Inc_Ligne2, 1)=Colonne 1
.Cells(2, 5)=Colonne 5
bonne journée
Amicalement
Jean Marie

 

[sasori14]

Re : Test OK si date appartient à un interval (mon code ne fonctionne pas...)

Oui oui, c'est une erreur de ma part !
Colonne 1 dans un onglet 5 dans le second