bonjour le forum,
bonjour à tous,
je cherche de l'aide pour trouver la date suivante (la plus proche) lorsque la date à trouver en colonne B n'existe pas
--> lgn = Range("B:B").Find(dte, lookat:=xlWhole).Row
ici il s'agit de trouver la ligne du 01/07/2019 mais cette date n'existe pas, j'aimerais que le code recherche la ligne du 02/07/2019 et si cette date n'existe pas alors 03/07/2019....jusqu'a trouver une date et renvoyer sa ligne.
ici mon code bug depuis un moment et il m'a fallu du temps pour comprendre que c'est parce qu'il n'avait pas d’occurrence, le 01/07/2019 il n'y a pas eu de production donc cette date n'est pas dans la liste, ça peut changer d'une année à l'autre.
merci d'avance pour votre aide.
Pedro.
dte = DateSerial(Year(Date), 7, 1)
sem = Format(Now, "ww")
If sem < 40 Then
lgn = 2
Else: lgn = Range("B:B").Find(dte, lookat:=xlWhole).Row
End If