Discussion :

[askan]

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 :

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

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

[ucfoutu]

Bonjour,

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

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

PGZ

[ucfoutu]

Salut, pgz

A regarder également : le formatage des cellules concernées par ces opérations

[askan]

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!

[Pierre Fauconnier]

...
(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...."