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
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
* Merci *