Différence entre deux années sous vba
Résolu
Toums91
-
Toums91 -
Toums91 -
Bonjour à tous,
Je rencontre un problème pour faire la différence entre deux dates:
En effet l'une apparaît dans un textbox et l'autre serait celle d'aujourd'hui.
A titre d'exemple 2011-1980 (année affichée par la textbox).
Mon code serait le suivant :
If ACONCEPT < (Year(Date) - 7) Then
SURCOU_ANNEE = (TRAIT_OBSO - 2) * ((Year(Date) - ACONCEPT)</gras> ^ ((Sheets("parametres_obso").Range("C30")) * (Sheets("parametres_obso").Range("C31"))))
Else: SURCOU_ANNEE = ""
End If
En effet, le code affiché en gras indique une date entière alors que ACONCEPT renvoit uniquement une année
Merci d'avance.
Je rencontre un problème pour faire la différence entre deux dates:
En effet l'une apparaît dans un textbox et l'autre serait celle d'aujourd'hui.
A titre d'exemple 2011-1980 (année affichée par la textbox).
Mon code serait le suivant :
If ACONCEPT < (Year(Date) - 7) Then
SURCOU_ANNEE = (TRAIT_OBSO - 2) * ((Year(Date) - ACONCEPT)</gras> ^ ((Sheets("parametres_obso").Range("C30")) * (Sheets("parametres_obso").Range("C31"))))
Else: SURCOU_ANNEE = ""
End If
En effet, le code affiché en gras indique une date entière alors que ACONCEPT renvoit uniquement une année
Merci d'avance.
3 réponses
-
Bonjour,
Comprend pas !
Tu dis que ..ACONCEPT = "2011-1980"
Il y a deux années, que veux-tu exactement comme année à tester ?
A+ -
AConcept, c'est le nom du textBox ?
et où est-il situé ?
sinon,If TextBox1.value < (Year(Date) - 7) Then
fonctionne parfaitement.
Si ton code est dans un module autre que l'emplacement du textBox il faut le situé.
Si sur UserFormIf NomDuUF.TextBox1.value < (Year(Date) - 7) Then
si sur feuilleIf Sheets("NomFeuille").TextBox1.value < (Year(Date) - 7) Then
Toute la connaissance du monde ne peu tenir dans une seul tête (moi)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter. -
