Discussion :

[Jeanluc17]

Bonjour à tous,

J'ai écris un code qui, en soit fonctionne mais VBA me dit :" Dépassement de capacité" et cela m'embête car j'aimerais appliquer ce code à tout mon fichier et il m'en empêche, pouvez-vous m'aider ?

Voici le code :

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
Sub titre()
For i = 1 To 790
Cells(i + 1, 8).Select
Cells(i + 1, 8) = (Cells(i + 2, 2) - Cells(i + 1, 2)) / Cells(i + 1, 2)
Next
End Sub
 
Sub SPI()
For i = 1 To 790
Cells(i + 1, 8).Select
Cells(i + 1, 8) = (Cells(i + 2, 2) - Cells(i + 1, 2)) / Cells(i + 1, 2)
Next
End Sub
Sub rdtanormaux()
For i = 1 To 790
Cells(i + 1, 10).Select
Cells(i + 1, 10) = (Cells(i + 1, 8) - Cells(i + 1, 9))
Next
End Sub
Sub pppp()
Call titre
Call SPI
Call rdtanormaux
End Sub

Je peux joindre le fichier si besoin est : Merci à tous

[jfontaine]

Bonjour,

Un sujet fort similaire traité ce matin.
Tu as peut être la solution

http://www.developpez.net/forums/d13...ment-capacite/

[Guiiand]

Bonjour,

Au cours des lignes 4 et 11, tu effectue une division par

Code :

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

cells(i+1,2)

. Si cette valeur vaut 0 => dépassement de capacité, car les grandes lois des mathématiques nous interdisent toutes division par 0.

Cdt

[Jeanluc17]

Je vois...Merci ! Comment puis-je remédier à ceci silteplait ? Je suis assez nouveau dans VBA je n'ai pas encore les bons reflexes.

Merci.

[Guiiand]

Dans un premier temps, tu peux supprimer toutes tes lignes avec des Select, de ce que l'on voit de ta macro, ils sont inutiles.

Ensuite, tu effectue un test sur la valeur bloquante avec une structure conditionelle if... end if.

Pour cela remplace

Code :

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

Cells(i + 1, 8) = (Cells(i + 2, 2) - Cells(i + 1, 2)) / Cells(i + 1, 2)

par

Code :

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

1
2
3
4
5
If cells(i+1,2) = 0 then
"Action à faire si la valeur est 0, cela dépend de ton fichier"
else
Cells(i + 1, 8) = (Cells(i + 2, 2) - Cells(i + 1, 2)) / Cells(i + 1, 2)
end if

Enfin, je ne saisis pas la différence entre ta fonction Titre() et Spi().

Bonne journée à toi, et bon courage dans le codage

[jfontaine]

En testant la valeur du dénominateur

Code :

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

1
2
 
if Cells(i + 1, 2).value <>0 then Cells(i + 1, 8) = (Cells(i + 2, 2) - Cells(i + 1, 2)) / Cells(i + 1, 2)

[Jeanluc17]

@ Guiiand

Je te remercie cela fonctionne parfaitement. La fonction titre et SPi sont pour 2 colonnes différents si jamais.

Bonne journée

Bonsoir,
Alors cela fonctionne sur une feuille du classeur, mais pas sur toutes. La ligne en rouge est en cause... Je réouvre donc le sujet, je n'arrive pas a uploader le fichier sur le site, il est disponible sous ce lien : http://cjoint.com/13ma/CCfsvQhuR4l.htm ! Merci !

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
Code: Tout sélectionner
    Sub titre()
      For i = 2 To Range("A" & Rows.Count).End(xlUp).Row - 1
        Cells(i, 8) = (Cells(i + 1, 2) - Cells(i, 2)) / Cells(i, 2)
      Next
    End Sub
    
    Sub SPI()
      For i = 2 To Range("A" & Rows.Count).End(xlUp).Row - 1
    Cells(i, 9) = (Cells(i + 1, 6) - Cells(i, 6)) / Cells(i, 6)
      Next
    End Sub

    Sub rdtanormaux()
      For i = 2 To Range("A" & Rows.Count).End(xlUp).Row - 1
        Cells(i, 10) = (Cells(i, 8) - Cells(i, 9))
    Next
    End Sub

    Sub pppp()
    Dim RR As Worksheet
    For Each RR In ActiveWorkbook.Sheets
        RR.Activate
     
      Call titre
      Call SPI
      Call rdtanormaux
      Next
    End Sub

[jfontaine]

Pourquoi ne testes tu pas la valeur de Cells(i, 6) comme nous te l'avons proposé?

[Invité]

Code :

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

1
2
3
4
5
if val("" & Cells(i, 6))=0 then
   Cells(i, 9) =0
else
   Cells(i, 9) = (Cells(i + 1, 6) - Cells(i, 6)) *(1/ Cells(i, 6))
end if

[Jeanluc17]

Pourquoi ne testes tu pas la valeur de Cells(i, 6) comme nous te l'avons proposé?

Excuse moi je ne vois pas ou cela est proposé, comment l'écrirais tu ? Merci d'etre compréhensif, je débute vraiment

[jfontaine]

soit la version de rdurupt

ou

Code :

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

1
2
3
4
5
    Sub SPI()
      For i = 2 To Range("A" & Rows.Count).End(xlUp).Row - 1
          if Cells(i, 6) <> 0 then Cells(i, 9) = (Cells(i + 1, 6) - Cells(i, 6)) / Cells(i, 6)
      Next
    End Sub

[Jeanluc17]

Bonsoir, Merci pour l'aide mais cela ne fonctionne pas.

[Invité]

Code :

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

1
2
3
4
5
if val("" & Cells(i, 6))=0 then
   Cells(i, 9) =0
else
   Cells(i, 9) = (val("" & Cells(i + 1, 6)) - val("" & Cells(i, 6))) *(1/val("" & Cells(i, 6)))
end if

[Jeanluc17]

soit la version de rdurupt

ou

Code :

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

1
2
3
4
5
    Sub SPI()
      For i = 2 To Range("A" & Rows.Count).End(xlUp).Row - 1
          if Cells(i, 6) <> 0 then Cells(i, 9) = (Cells(i + 1, 6) - Cells(i, 6)) / Cells(i, 6)
      Next
    End Sub

VBA me dit : Incompatibilité de type pour la ligne après Then

rdurupt : Cela fonctionne, sauf qu'il me met un 0 dans la ligne 1 ou il y avait du texte.

J'aimerais également que cela s'arrète lorsqu'il n'y a plus rien à calculer comme dans le code de jfontaine, mais je ne vois pas comment il procède!

Merci pour votre aide !

[Invité]

Je n’ai pas change la cellule des dividendes n’y c’elle du diviseur encor mois le quotient
Un exit for quand tu juge la fin du calcul.

[jfontaine]

Montres nous la méthode que tu as utilisé

[Jeanluc17]

En faite cela fonctionne, j'ai tout repris au calme ce matin, peut etre que j'ai mal copié quelque chose.

Merci à tous.