trouver code vba pour excel

Version imprimable

Bonjour,
ci dessous c'est vraiment pas un code mais je voudrai en ecrire un qui obéit a l'algorithme ci dessous
aidez moi svp

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
    Sub essai()
        'date d'echéance
        Dim a, alpha, j, beta As Double
        a = Cells(i, 8).Date 'se sont les dates d'echeances qui sont stockeés a la colonne H A partir de la ligne 5
        Cells(2, 1) = aujourdhui
        alpha(i) = (a - Cells(2, 1).Data) / 360 'nombre d'année entre la date d'echeance et aujourd'hui
        beta(i) = Int(alpha(i)) + 1
        'date du premier coupon
        d(i) = Cells(i, 10).Date 'ce sont des dates qui existent en colonne J
 
        nbredejour(i) = d(i) - Cells(2, 1) 'nombre de jours ENTRE AUJOURDHUI et la date du premier coupon
        'soit la variable x qui est égale :  le nombre de jours /30
        Dim x As Double
        Dim t1, t2 As Integer
        x(i) = d(i) - Cells(2, 1)
        t1(i) = Int(x) 'partie entiere de x
        t2(i) = x1 + 1
        j(i) = (x(i) - t1(i)) * 30 'calcul du nombre de jours compris dans x mois
       ' definir p1
       Dim p1 As Double
       p1 = x / 12
       For i = 2 To beta
       p(i) = p1 + (i - 1) 'les p(i) sont des valeurs en exposant dans ma formule
 
       Next i
       'calcul des T(i)
       For i = 1 To beta
       T(i) = (j(i) * (Sheets("Feuil2").Cells(t2(i) + 11, 7).Value + 12 * (i - 1)) + (30 - j(i)) * (Sheets("Feuil2").Cells(t1(i) + 11, 7).Value + 12 * (i - 1))) / 30
       Next i
 
       'calcul de la valeur spot c'est une somme pour i=1 à beta de tf/(1+T(i))^P(i)+100/(1+T(beta))^P(beta)
       Dim Pspot As Double
       Pspot = 0
       'la je veux ecrire une boucle for jusqu'a la derniere ligne non vide
 
 
       For i = 1 To beta
       Pspot = tf / (1 + T(i)) ^ p(i) + 100 / (1 + T(i = beta)) ^ p(i = beta)
       Pspot = Pspot + 1
       Next i
       'enfin je veux retourner Pspot dans chacune des cellules de la colonne L
     'en fait Pspot est une somme que je calculer pour chaque valeur de beta et mettre le resultat de cette somme dans une cellule a la colonne   L
       'sachant bien que les dates d'echeances changes donc modifient les calculs
 
 
 
 
 
 
    End Sub

merci d'avance

25/05/2010, 09h23
hunteshiva
tu connais vb.net?? :?
parce-que la c'est un peut abusé ta demande ...

ya rien a changer dans ton code presque
je te donne un exemple mais hors de question que je le fasse a ta place

code vba :
Code:

1 2 3 For i = 2 To beta p(i) = p1 + (i - 1) Next i
en vb.net :
Code:

1 2 3 For i As Integer = 2 To beta p(i) = p1 + (i - 1) Next
tu n'a que les boucles For a modifier, le reste tu code reste inchangé
Bonne continuation,
25/05/2010, 15h41
dianbobo

correction de l'ecriture
bonjour j'ai envi d'ecrire la formule ci-dessous dans le code en faisant varier les indices de la colonne L DE i=6 jusqu'a 100 par exemple

Code :
Code:

1 2 3 4 1.NombreDeJour(i) = Range("L6" ) - Range("A2" ) 2. 3.NombreDeJour(i) = Range("L7" ) - Range("A2" ) 4.NombreDeJour(i) = Range("L8" ) - Range("A2" ).........
peut on ecrire :

Code:

NombreDeJour(i) = Range("L"&(i)&"" ) - Range("A2" )?

merci de votre aide
25/05/2010, 15h52
hunteshiva

Hors sujet avec ta première demande .... :whistle:
et puis la en cherchant tu trouvera * facilement*

met :resolu: et arrête de demander qu'on te fasse tout
25/05/2010, 16h29
dianbobo

recherche erreur 2

non du tout rien n'est hors sujet avec ma premiere demande
tout justement je suis entrain d'essayé de faire le code
et je vais pas marquer probleme resolu pour le plaisir
a ma question precedente voila une proposition de reponse

Code:

NombreDeJour(i) = Range("L"& i) - Range("A2")