Dépassement de capacité VBA

Résolu/Fermé
Ecam39 Messages postés 286 Date d'inscription jeudi 12 janvier 2012 Statut Membre Dernière intervention 16 mars 2024 - Modifié par Ecam39 le 12/11/2013 à 11:07
Ecam39 Messages postés 286 Date d'inscription jeudi 12 janvier 2012 Statut Membre Dernière intervention 16 mars 2024 - 12 nov. 2013 à 14:20
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

5 réponses

melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
12 nov. 2013 à 11:21
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?
0