Re: DEMO UserForm de Recherche < Date sur Tableau avec exclusions et majoration
Re Bonjour Brigitte, Brigitte & Co, Marie, le Forum
Merci pour le gros bisou !
Arrrrf enfer et damnation, je me suis mis en tête la date la plus grande dès le départ et PAS la date la plus ancienne ! lol (pourtant c'est ce que tu avais écrit dans ton premier post !!! (comme quoi les informaticiens volent parfois à dix miles au dessus de la réalité lol)
Bon alors que faire............. lol
Heureusement lorsque l'on programme depuis pas mal d'heures de vols on peut facilement retomber sur ses pattes :
Tu vois en bas du Private Module "USFStats" vers la fin ?
Oui oui là où il y ceci :
DateFound = TabPlage(0, UBound(TabPlage, 2))
LFound = TabPlage(1, UBound(TabPlage, 2))
CFound = TabPlage(2, UBound(TabPlage, 2))
DateCalculated = CDate(DateFound + 182)
BadDateFound = TabBad(0, UBound(TabBad, 2))
BadLFound = TabBad(1, UBound(TabBad, 2))
BadCFound = TabBad(2, UBound(TabBad, 2))
BadReason = TabBad(3, UBound(TabBad, 2))
Tu as bien repéré ?
.... te plantes surtout pas, sinon plus rien ne marchera !!! lol
OK alors tu remplaces pûrement et simplement tout ce qu'il y a au dessus par ceci :
For i = 0 To UBound(TabPlage, 2)
If TabPlage(0, i) <> 0 Then
DateFound = TabPlage(0, i)
LFound = TabPlage(1, i)
CFound = TabPlage(2, i)
DateCalculated = CDate(DateFound + 182)
Exit For
End If
Next
For i = 0 To UBound(TabBad, 2)
If TabBad(0, i) <> 0 Then
BadDateFound = TabBad(0, i)
BadLFound = TabBad(1, i)
BadCFound = TabBad(2, i)
BadReason = TabBad(3, i)
Exit For
End If
Next
Et hop !!! c'est la date la plus petite (ancienne) qui sera prise en compte et non plus la plus grande.
Si tu as un problème je peux poster la version II mais là je dois sortir faire des achats de Noël...
Bonne Soirée et encore désolé pour avoir compris le problème à l'envers !
@+Thierry