Macro Erreur : Overflow Résolu

Question

Bonjour à tous!!

Je poste ce sujet à cause d'un petit soucis avec l'erreur overflow:

Je declare i et j en tant que Long  (Dim i,j as Long)

If Cells(1, 2) = "1/2013" Then
For j = 2 To nbl - 2
m = Cells(j, 2).Value
n = Cells(nbl - 4, 2).Value
Cells(j, nbc + 5).Value = m / n * 100 <------ l'erreur est sur cette ligne
Cells(j, nbc + 5).Select
Selection.NumberFormat = "0.00"
j = j + 1
Next j
End If

J'ai essayé de décomposer au maximum le calcul afin de pas trop manger de mémoire, mais là, j'ai plus d'idée ...
D'où vient exactement cette erreur ?
 Comment est ce que je peux la corriger ?

Merci d'avance pour votre aide précieuse !!

Configuration: Windows 7 / Firefox 21.0

eriiic · Answer

Bonjour,

Déposer le fichier xls (réduit au nécessaire et anonymisé, avec les explications et éventuellement le résultat attendu) sur cjoint.com et coller ici le lien fourni.

Au passage avec Dim i,j as Long seul j est long, i est non typé (variant).
eric

WeaponEDGE · Answer

Bonjour,

Cells(j, nbc + 5).Value = m / n * 100 

Je pense que le .Value est en trop.

WeaponEDGE

Maxxikilla · Answer

Re,
@eric -->  Ah bon, je ne savais pas !! il n'est pas possible de déclarer plusieurs variables d'un coup ?

@WeaponEDGE j'ai modifié le .Value, ca ne change rien

Je viens de trouver l'erreur, en affichant les valeurs de m et n avec des MsgBox, je me suis aperçu que n valait 0.
Et comme je ne suis pas Chuck Norris, et bien je ne peux pas diviser par 0..

Merci beaucoup pour votre aide. Une fois mon erreur rectifiée, ca fontionne !!

Macro Erreur : Overflow

3 réponses

Discussions similaires

Newsletters