Run-time error 6 Overflow

Version imprimable

Bonjour a tous,

Il se trouve que je me trouve bloque suite a une boucle que je souhaite effectuer sur une iteration de plus 100 donnees.
Code:

1 2 3 4 5 6 For c = 3 To 200 For s = 1 To 8 Worksheets("Feuille A").Cells(l, c) = Worksheets("Feuille 1").Cells(l, c) + Worksheets("Feuille B").Cells(l, s + 1) * Worksheets("Feuille C").Cells(s + 1, c) Next s Worksheets("Feuille D").Cells(l, c) = (Worksheets("A").Cells(l, c) - Worksheets("Feuille C").Cells(11, c)) / Worksheets("Feuille C").Cells(11, c) Next c
Il se trouve que j'ai un un message d'erreur Run-Time Overflow.

Une solution s'il vous plait?

Merci,
Askan

03/12/2009, 17h25
ucfoutu

Bonjour,

que contient donc Worksheets("Feuille C").Cells(11, c)
lorsque ça plante ?
(car une division par zéro = l'infini, par exemple....)
03/12/2009, 17h26
pgz

Bonjour.

Tu pourrais regarder le debugage quand tu obtiens l'erreur pour voir quelle ligne de code provoque le dépassement, quelles cellules sont concernées et quelles valeurs elles contiennent.
Le dépassement est probablement dû aux opérandes d'une opération simple comme x, /, ou +.

Salut ucfoutu.:lol:

PGZ
03/12/2009, 17h31
ucfoutu

Salut, pgz

A regarder également : le formatage des cellules concernées par ces opérations
03/12/2009, 17h55
askan

Citation:

Envoyé par ucfoutu

Bonjour,

que contient donc Worksheets("Feuille C").Cells(11, c)
lorsque ça plante ?
(car une division par zéro = l'infini, par exemple....)

Bonsoir ucfoutu,

C'est exactement mon soucis. Je l'ai donc regle en y rajoutant un If > 0 Then End if...puis ca marche!
Merci encore!

Askan
A tres bientot!
04/12/2009, 20h22
Pierre Fauconnier

Citation:

Envoyé par ucfoutu

...
(car une division par zéro = l'infini, par exemple....)

C'est n'importe quoi!

Juste pour info, parce que c'est fatigant de lire n'importe quoi sur les forums

Une division par zéro n'est pas définie, ce qui ne veut pas dire "= l'infini, par exemple...."