Discussion :

[gobi1]

Bonjour,

Je souhaite effectuer une opération mais je ne sais pas comment la coder.
Dans ma colonne A j'ai des dates (jj/mm/aaaa).
Dans ma colonne B j'ai des cours.
L'opération a effectué consiste à récupérer la dernière valeur de la colonne B, de la diviser par la première valeur de cette même colonne (qui est en l'occurence B3 dans tous les cas) et d'élever cette fraction à la puissance(365 divisé par la nombre de jours entre la dernière date de ma colonne A et la première date qui est en A3), soit :

(dernière valeur colonne B/valeur B3)^(365/nombre de jours entre dernière date colonne A et date en A3)

Mercii.

[Jean-Philippe André]

bonjour,
utilise ceci pour récupérer la derniere cellule de chaque colonne

Code :

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

1
2
'pour connaitre le numéro de la ligne ou se trouve la dernière cellule pleine: 
Range("A1" ).End(xlDown).Row

le reste étant une simple histoire de formule

[gobi1]

Bonjour Jpcheck,

Merci pour ta réponse mais je crois que ça ne réponds pas vraiment à ma questions.Pour pouvoir écrire ma formule j'ai 2 problèmes:

- Récupérer la dernière valeur de ma colonne B
- Calculer le nombre de jours entre 2 dates, la dernière date qui se trouve dans la colonne A et la date qui se trouve en A3

[Jean-Philippe André]

On appelle ca donner des pistes, pour éviter de donner la solution tout de suite
La valeur de ta derniere cellule se récupère donc comme ceci:

Code :

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

Range("B" & Range("B1" ).End(xlDown).Row).Value

la suite, tu cherches un peu avec la colonne A, la différence et tu me dis où tu es vraiment bloqué oki ?

[gobi1]

je vois que tu essayes de me faire progresser
Bon, j'ai réussi à écrire mon code (peut être pas rigoureux mais il marche...enfiin presque) mais j'ai un autre souci d'ordre différent: je fais une boucle sur tous mes onglets, et j'obtiens le bon résultat pour le premier onglet, et ensuite il me mets ce même résulat sur tous les autres onglets!

Je te mets mon code:

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
Sub rdt()
 
Dim x, y, z As Double
Dim nbjours As Integer
Dim date1, date2 As Date
Dim cell As Range
Dim onglet, FL1 As Worksheet
 
For Each onglet In ActiveWorkbook.Worksheets
Set FL1 = onglet
date1 = Range("A3").Value
date2 = Range("A" & Range("A3").End(xlDown).Row).Value
x = Range("B" & Range("B3").End(xlDown).Row).Value
y = Range("B3").Value
nbjours = DateDiff("d", date1, date2)
For Each cell In FL1.Range("H3")
cell.Value = (x / y) ^ (365 / nbjours) - 1
Next
Next
 
End Sub

Merci

[random]

si tes dates sont en ordre croissant lors de la saisie

Code :

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

1
2
 
=((RECHERCHEV(MAX(A3:A3650);A3:B3650;2;FAUX)/$B$3)^(365/(MAX(A3:A3650)-A$3+1))-1)*100

[LeForestier]

Bonjour,
essaye avec les quelques modif que j'ai fait...

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
Sub rdt()
 
Dim x As Double, y As Double, z As Double
Dim nbjours As Integer
Dim date1 As Date, date2 As Date
Dim cell As Range
'Dim onglet, 
Dim FL1 As Worksheet
 
For Each FL1 In ActiveWorkbook.Worksheets
    FL1.select
    date1 = Range("A3").Value
    date2 = Range("A" & Range("A3").End(xlDown).Row).Value
    x = Range("B" & Range("B3").End(xlDown).Row).Value
    y = Range("B3").Value
    nbjours = DateDiff("d", date1, date2)
  '  For Each cell In 
    FL1.Range("H3").value = (x / y) ^ (365 / nbjours) - 1
   '     cell.Value = (x / y) ^ (365 / nbjours) - 1
   ' Next
Next
End Sub

A+