condition

[PHILIP]

Bonjour à tous

J'ai un code qui ne m'apporte pas le résultat voulu

 For i = Cells(200, 2).End(xlUp).Row To 1 Step -1 
            If Cells(i, 2) Like Date - 1 And Cells(i, 3) < ("15:00") Then Rows(i).Delete
             Next

Dans la colonne B j'ai 2 dates soit celle d'aujourd'hui et de hier
Dans la colonne C j'ai des horaires d'entrée de commandes
Ce que je voudrais c'est éliminer toutes les lignes qui ont la date de hier et dont l'horaire d'entrée des commandes et inferieure à 15heures. Malheureusement mon code élimine toutes les lignes ayant la date de hier et n'a pas l'air de prender en compte les horaires
Pourriez vous m'aider ?
merci

 

[Dugenou]

Re : condition

Bonjour,

Peut-être le probleme se situe t il dans la façon d'écrire 15h ?
ne faut-il pas écrire le chiffre en format nombre (0.625) ou préciser dans le code que le "15:00" est une heure ?

Cordialement

 

[JNP]

Re : condition

Bonjour le fil ,
Les dates et heures en littéral doivent être exprimés entre #

Cells(i, 3) < #15:00#

qui d'ailleurs s'auto transforme au format US

Cells(i, 3) < #3:00:00 PM#

Bonne soirée