VBA : depassement de capacité.

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:

---

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

Bonjour,

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

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

Bonjour,

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

Code:

---

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

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.

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:

---

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

---

par

Code:

---

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

En testant la valeur du dénominateur

Code:

---

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)

---

@ 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:

---

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

---

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

Code:

---

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

---

Citation:

---

Envoyé par jfontaine

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 :mouarf::mouarf:

soit la version de rdurupt

ou

Code:

---

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

---

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

Code:

---

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

---

Citation:

---

Envoyé par jfontaine

soit la version de rdurupt

ou

Code:

---

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 !

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.

Montres nous la méthode que tu as utilisé

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

Merci à tous.