Discussion :

[dianbobo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
       For i = 2 To beta
           p(i) = p1 + (i - 1) 
       Next i

en vb.net :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[dianbobo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

merci de votre aide

[hunteshiva]

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

met et arrête de demander qu'on te fasse tout

[dianbobo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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