test sur quantième

[bibou1212]

Bonjour à tous

J'ai un problème que je ne sais pas résoudre seul.

Je dois faire un test sur un quantième. Ce dernier représente un date de produit. il s'ajit de comparer cette date avec la date du jour (entrer manuellement en jj/mm/aaa).

Le test est valider si :
- le quantième testé est inferieur ou égale à la date (case G14)
- le quantième testé n'est pas inférieur de plus de 2 mois

le seul hic est si la production est en janvier (ex : quantième jour = 012) on peut accepter un quantième pouvant aller jusqu'à 347 qui est en décembre.

j'ai essayer de pondre un truc mais ça marche pas à tout les coups.

voiçi le code "insuffisant" :

If quant2 <= Feuil3.Range("G14") Then
'Else
' If (quant2 - (Feuil3.Range("G14") - 60)) > 50 Then
' Else
' If (datecodeet1 - 30 < Feuil3.Range("G7")) And (365 - quant2 + Feuil3.Range("G14")) <= 60 Then
' Else
'MsgBox ("Erreur de quantième étui 1")
'GoTo Finprogr

' End If
' End If
'End If


Bon courage et merci d'avance

 

[bibou1212]

Re : test sur quantième

Bonjour à tous,

Pierrot pour ton code, il marche mieux mais si on choisi une date inferieur de plus de 2 mois le test est ok alors qu'il ne devrais pas l'être.

Lorsque en date on a 05/01/2008 et qu'en quantième on met 200 ça met test ok alors que la différence de date est suppérieur à 60 jours

David

 

[Pierrot93]

Re : test sur quantième

Bonjour,

je viens de faire un essai(copié collé code donné), variable "q" = 200, en B1 "05/01/2008", me renvoie bien le message "test non OK"....

@+

 

[bibou1212]

Re : test sur quantième

Re,

Désolé c'est moi qui ai du faire une mauvaise adaptation ça mache impécable, t'es un génie.

Merci beaucoup à toi et à tous ceux qui me sont venu en aide.

MERCI