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

[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é?

[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)