Dépassement de capacité VBA Résolu

Question

Bonjour, 

J'ai écrit une variable en DIM as Long avec une boucle jusqu'en fin de colonne. 
Or lorsque je lance la procédure, je reçois un message de "Erreur d'exécution "6" Dépassement de capacité".

Je ne sais pas à quoi correspond ce message, j'ai changé la variable mais toujours le même message.

Voici le début de la procédure :

Sub stock_reception()

'Initialisation de la variable ecart_de_stock
Dim ecart_de_stock As Long
ecart_de_stock = 2


'Commencer la boucle en colonne E
For ecart_de_stock = 2 To Range("E2").End(xlDown).Row



'Dans la boucle, effectuer le calcul selon la condition
If Not IsEmpty(Cells(ecart_de_stock, 5)) Then


'Définir la date du jour pour le nouvel inventaire
If Not IsEmpty(Cells(ecart_de_stock, 3)) And Cells(ecart_de_stock, 1) = "" Then
Cells(ecart_de_stock, 1) = Date

Else

End If


'Définir le mois en fonction de la date de saisie
Cells(ecart_de_stock, 2) = Month(Cells(ecart_de_stock, 1))


'Afficher 0 ou 1 en fonction de l'écart d'emplacement
If Cells(ecart_de_stock, 4) - Cells(ecart_de_stock, 5) = 0 Then


Cells(ecart_de_stock, 6) = 1

Else

Cells(ecart_de_stock, 6) = 0

End If


'Afficher l'ecart des bobines entre le stock physique et informatique, sans signe
Cells(ecart_de_stock, 7) = Abs(Cells(ecart_de_stock, 4) - Cells(ecart_de_stock, 5))


'Effectuer le calcul en % de l'écart des bobines
Cells(ecart_de_stock, 8) = Abs(1 - (Cells(ecart_de_stock, 7) / Cells(ecart_de_stock, 4)))


Else

End If
Next

ActiveWorkbook.RefreshAll

End Sub

Comment puis je y remédier ?
Merci

Configuration: Windows 7 / Internet Explorer 10.0

melanie1324 · Answer

Bonjour,

Ton code a l'air correct.
SI tu lances la macro en mode pas à pas(en appuyant sur F8), sais-tu à quelle ligne il bugge?

Ecam39 · Answer

Nul part, du moins en appuyant sur F8 je fais le tour de la macro sans avoir de message d'erreur.
J'ai remarqué que la macro débute bien la procédure mais stoppe à un calcul de pourcentage précis, par une divsion par 0.

Je calcul un % en fonction d'un écart (formule dans la macro)

'Effectuer le calcul en % de l'écart des bobines



Cells(ecart_de_stock, 8) = Abs(1 - (Cells(ecart_de_stock, 7) / Cells(ecart_de_stock, 4)))

La macro donne un nombre décimale j'imagine (0,1 ; 0,54...). J'ai mis la colonne (via le format cellule) en format pourcentage.

Je viens de remarquer que la macro me calcule correctement mes 10 premières lignes et s'arrête à celle où elle perçoit une ligne n'ayant aucun écart.

Colonne A = Quantité informatique (sur cette ligne 0)
Colonne B = Contrôle physique (c'est bien égal à 0)
Colonne C = L'écart est donc de 100 % normalement. Sauf que là Excel refuse de ma le calculer et me donne le message d'erreur.

Par contre, si j'ai :
Colonne A = 10
Colonne B = 8
Colonne C = 80 % de fiabilité
Ici le calcul se fait correctement.

J'espère avoir été clair :)

melanie1324 · Answer

Re,

Si jete suis, je crois avoir trouver ton problème.

Autrement dit, quandtu fais le calcul :
Cells(ecart_de_stock, 8) = Abs(1 - (Cells(ecart_de_stock, 7) / Cells(ecart_de_stock, 4)))

cells(ecart_de_stock,4) peut être égal à 0 ?

Si la réponse est oui, sache qu'il est impossible de diviser par zéro!!!
Par conséquent, il faut que tu rajoutes une condition :

if cells(ecart_de_stock,4)<>0 then
Cells(ecart_de_stock, 8) = Abs(1 - (Cells(ecart_de_stock, 7) / Cells(ecart_de_stock, 4)))

else
Cells(ecart_de_stock, 8) ="100%"

end if

Ecam39 · Answer

Ca à l'air de correspondre, je viens de trouver une seconde situation qui donne une division par 0 :

Du moment que la colonne A = 0, tu as une division par 0 donc un plantage.
Or si la A = 0 ce n'est pas toujours 100%.

Si A = 0 mais que B <> 0 alors tu as pas 100% (normalement 0% ?)

L'interprétation du résultat est à voir avec la personne concernée ( A = 0 et B =3 est différent de A=0 et B 30, l'écart n'est pas le même, donc est ce que l'on garde 0% ou non ?), à valider.

Je vais tester la condition que tu m'a donnée en rajoutant une fonction ET :
Si A et B = 0 alors C = 100%
Si A = 0 et B > 0 (contrôle physique donc ne peut pas etre négatif), alors C = 0% (en partant de ce principe)

Ecam39 · Answer

Voici la nouvelle fonction SI que j'ai imbriqué :

'Dans la boucle, effectuer le calcul selon la condition
If Not IsEmpty(Cells(ecart_de_stock, 5)) Then

'Définir la date du jour pour le nouvel inventaire
If Not IsEmpty(Cells(ecart_de_stock, 3)) And Cells(ecart_de_stock, 1) = "" Then
Cells(ecart_de_stock, 1) = Date
Else

End If

'Définir le mois en fonction de la date de saisie
Cells(ecart_de_stock, 2) = Month(Cells(ecart_de_stock, 1))

'Afficher 0 ou 1 en fonction de l'écart d'emplacement
If Cells(ecart_de_stock, 4) - Cells(ecart_de_stock, 5) = 0 Then
Cells(ecart_de_stock, 6) = 1
Else
Cells(ecart_de_stock, 6) = 0
End If

'Afficher l'ecart des bobines entre le stock physique et informatique, sans signe
Cells(ecart_de_stock, 7) = Abs(Cells(ecart_de_stock, 4) - Cells(ecart_de_stock, 5))

'Calculer un écart avec une division par 0
If Cells(ecart_de_stock, 4) > 0 Then

'Effectuer le calcul en % de l'écart des bobines
Cells(ecart_de_stock, 8) = Abs(1 - (Cells(ecart_de_stock, 7) / Cells(ecart_de_stock, 4)))

Else

'Valeur de 100% par défaut si le stock physique et info sont vides
If Cells(ecart_de_stock, 4) = 0 And Cells(ecart_de_stock, 5) = 0 Then
Cells(ecart_de_stock, 8) = 1

Else
'Valeur de 0% par défaut si il y a un écart entre le st info et physique
If Cells(ecart_de_stock, 4) <> Cells(ecart_de_stock, 5) Then
Cells(ecart_de_stock, 8) = 0

Else
End If
End If
End If

End If

Dépassement de capacité VBA

5 réponses

Discussions similaires

Newsletters