Discussion :

[student90]

Bonjour,

J'ai créé le code contenant deux boucles mais un message d'erreur de dépassement de capacité apparait... J'ai tout essayé et je ne sais plus quoi faire ...

Le but étant de calculer (G3-G4)/G4 en boucle pour les toutes les données en G et de l'insérer en H. La deuxième est faite pour reproduire la fonction toute les 8 colonnes (pour O, ...)

Pouvez-vous m'aider ?!

Je mets mon fichier excel sur le lien suivant

http://cjoint.com/?CCzp6kaOdbq

Merci d'avance !

[Efgé2]

Bonjour student90,
Je ne peux ouvrir les fichier sur cjoint, mais :
Si tu as des variables déclarées As Integer, passe les en Long (voir en Double suivant les résultats attendus)
Cordialement

[PMO2017]

Bonjour,

L'erreur se déclenche à cause d'une division par 0
A un moment donné, vous atteignez des colonnes pour lesquelles aucune cellule n'est renseignée. Excel interprète la cellule vide comme un zéro (0).
Pour démontrer mes dires, essayez le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub calcul()
'calcul des rendements des titres
    For l = 1 To 3 * 8     'boucle pour faire le rendement pour tout les 3 titres (saut de 8)
        For k = 3 To 26 - 1  '-1 car la dernière valeur ne peut pas avoir de rendement (26 = nb de données)
'formule des rendements       '2 boucles écrites en même temps
 
If ThisWorkbook.Sheets(1).Cells(k + 1, l * 8 - 1).Value <> 0 Then
  ThisWorkbook.Sheets(1).Cells(k, l * 8).Value = (ThisWorkbook.Sheets(1).Cells(k, l * 8 - 1).Value - ThisWorkbook.Sheets(1).Cells(k + 1, l * 8 - 1).Value) / (ThisWorkbook.Sheets(1).Cells(k + 1, l * 8 - 1).Value)
End If
 
        Next k
 
    Next l
End Sub

*******
Une meilleure manière de coder vos boucles avec des sauts est d'utiliser un Step

Code :

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

1
2
3
4
5
6
7
8
9
Sub Calcul_pmo()
For l = 8 To 24 Step 8  '24 est le nombre de colonnes (le Step 8 donnera sucessivement 8/16/24)
  For k = 3 To 26 - 1
    With ThisWorkbook.Sheets(1)
      .Cells(k, l).Value = (.Cells(k, l - 1).Value - .Cells(k + 1, l - 1).Value) / (.Cells(k + 1, l - 1).Value)
    End With
  Next k
Next l
End Sub

[student90]

OK super merci beaucoup PMO2017... Ca marche !!!