Bonjour a tous,
Voila j essais de faire un pricer obligation mais j ai un gros problème je suis bloqué (du fait de mon faible niveau):
Details :
J ai cree un formulaire (celui ci fonctionne tres bien), ses valeurs sont directement ajoutée au cellule .
J aimerais maintenant utilisé une de ces valeurs dans un module :
Mon code qui ne fonctionne pas :
Sub PricerAnnuel()
Dim L As Integer
Dim NLign As Integer
Dim MyDateCoupon() As Date
'Calcul des dates de coupons
ThisWorkbook.Worksheets("VBA").Select
ActiveSheet.range("A3").Select
'La valeur de la cellule A3 est la valeur qui va me servir pendant tout le codage
MyDateCoupon(0) = range("A3") 'pour L = 0 CA NE FONCTIONNE PAS BIEN SUR, C'est une date du genre 05/01/2011
For L = 1 to NLign
If MyDateCoupon (L) <> range("L12") then
MyDateCoupon (L) =MyDateCoupon(L-1) + 2 mois 'JE NE SAIS PAS COMMENT CODER
else
end if
End Sub
J espere que quelqu'un d'entre vous pourra m aider
Merci d avance
Tom
Voila j essais de faire un pricer obligation mais j ai un gros problème je suis bloqué (du fait de mon faible niveau):
Details :
J ai cree un formulaire (celui ci fonctionne tres bien), ses valeurs sont directement ajoutée au cellule .
J aimerais maintenant utilisé une de ces valeurs dans un module :
Mon code qui ne fonctionne pas :
Sub PricerAnnuel()
Dim L As Integer
Dim NLign As Integer
Dim MyDateCoupon() As Date
'Calcul des dates de coupons
ThisWorkbook.Worksheets("VBA").Select
ActiveSheet.range("A3").Select
'La valeur de la cellule A3 est la valeur qui va me servir pendant tout le codage
MyDateCoupon(0) = range("A3") 'pour L = 0 CA NE FONCTIONNE PAS BIEN SUR, C'est une date du genre 05/01/2011
For L = 1 to NLign
If MyDateCoupon (L) <> range("L12") then
MyDateCoupon (L) =MyDateCoupon(L-1) + 2 mois 'JE NE SAIS PAS COMMENT CODER
else
end if
End Sub
J espere que quelqu'un d'entre vous pourra m aider
Merci d avance
Tom