Discussion :

[itfashiongirl]

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 *

[Philippe Tulliez]

Bonjour,
Pourquoi utiliser le VBA alors que nativement il existe les fonctions SOMME.SI, SOMME.SI.ENS, SOMMEPROD, BDSOMME qui permettent d'effectuer des sommes sous conditions

[unparia]

Bonjour

Voici mon code qui ne fonctionne pas

Il est bourré d'erreurs et/ou non sens.
Cette discussion aurait par ailleurs du être ouverte dans la section VBA de ce forum et non la présente (Index du forum >Logiciels > Microsoft Office > Excel)
Je ne parlerai donc de ces erreurs et non sens que lorsqu'elle aura été déplacée en section ad hoc.