Compter le nombre de cellules
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:
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 *
