Bonjour,
J'ai un fichier avec les valeurs du CAC40, j'ai une valeur par feuille, je souhaite calculer le rendement quotidien de chaque action mais chaque actions ne possède pas le même nombre de cellule pour leurs cotation, ma boucle ne fonctionne donc pas. Je souhaitais donc savoir comment faire pour obtenir le nombre de cellule et ainsi l'exploiter dans mon calcul bien que celui-ci soit diffère à chaque feuille. Voici mon code qui ne fonctionne pas

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
52
Option Explicit
 
 
Sub rentabilité()
 
Dim rdt As Double
Dim k As Long
Dim j As Long
Dim i As Long
Dim count As Long
Dim cells As Variant
 
 
k = Sheets.count
 
rdt = 0
count = 2
cells = 0
 
For i = 2 To k
Sheets(i).Activate
 
'For Each cells In columns(8)
 
 
If cells.Value = "" Then
count = count + 1
End If
 
Next cells
 
Range("I2").Value = count
 
For j = 1 To Range("Recap!I2").Value
 
If Range("E" & j).Value <> 0 Then
rdt = CDbl((Range("E" & j + 2).Value - Range("E" & j + 1).Value) / Range("E" & j + 1).Value)
Else
rdt = 0
End If
 
Range("H" & j + 2).Value = rdt
 
 
Next j
 
 
 
Next i
 
 
End Sub