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

A voir également:

Vba dépassement de capacité
Dépassement de capacité vba ✓ - Forum Excel
Le logiciel amd a détecté un dépassement de délai du pilote ✓ - Forum Carte graphique
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Incompatibilité de type vba ✓ - Forum Programmation
Vba range avec variable ✓ - Forum VB / VBA

5 réponses

Réponse 1 / 5

melanie1324 Messages postés 1505 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?

Réponse 2 / 5

Ecam39 Messages postés 286 Date d'inscription jeudi 12 janvier 2012 Statut Membre Dernière intervention 16 mars 2024 9
Modifié par Ecam39 le 12/11/2013 à 11:51

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 :)

Réponse 4 / 5

Ecam39 Messages postés 286 Date d'inscription jeudi 12 janvier 2012 Statut Membre Dernière intervention 16 mars 2024 9
Modifié par Ecam39 le 12/11/2013 à 12:26

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)

melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
12 nov. 2013 à 12:48

essaie et dis moi mais je pense que le plantage de la macro provient de tes divisions par 0.

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
12 nov. 2013 à 13:19

Salut,

C'est même certain. Une division par 0 n'est pas possible (et pas seulement pour Excel ou l'informatique).

Il faut effectivement mettre des conditions pour chaque cas de figure.

J'ai un problème de compréhension avec ça:

Par contre, si j'ai :
Colonne A = 10
Colonne B = 8
Colonne C = 80 % de fiabilité

Que fait-on si A = 8 et B =10 ? Ca donne donc 125% de fiabilité ?

Ecam39 Messages postés 286 Date d'inscription jeudi 12 janvier 2012 Statut Membre Dernière intervention 16 mars 2024 9
12 nov. 2013 à 13:25

J'ai rajouté la fonction ABS, donc si tu te retrouves dans le second cas, la fonction ABS va enlever le signe et basculer ton résultat dans le premier cas. Au final tu retrouves bien tes 80% de fiabilité.

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
12 nov. 2013 à 13:36

Mouais ...

Je vois plutôt qu'il y a un écart de +/- 20 % entre le stock réel et le stock théorique et non un pourcentage de fiabilité du système !!!

Mais bon, ce n'est qu'une interprétation personnel ;0)

Ecam39 Messages postés 286 Date d'inscription jeudi 12 janvier 2012 Statut Membre Dernière intervention 16 mars 2024 9
Modifié par Ecam39 le 12/11/2013 à 13:45

L'écart ne représente t-il pas la fiabilité de ton stock ? :)

Ou ne mesure t-on pas la fiabilité en fonction des écarts (ou des non-écarts ? )

Réponse 5 / 5

Ecam39 Messages postés 286 Date d'inscription jeudi 12 janvier 2012 Statut Membre Dernière intervention 16 mars 2024 9
12 nov. 2013 à 13:45

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

Ecam39 Messages postés 286 Date d'inscription jeudi 12 janvier 2012 Statut Membre Dernière intervention 16 mars 2024 9
12 nov. 2013 à 14:20

Après quelques tests, la formule fonctionne me différencie bien les différents cas retrouvés.

Je vous remercie d'avoir pris du temps pour répondre :)

Discussions similaires

Erreur d'execution '6' Dépassement de capacité

VBA EXCEL - ERREUR 6 : DÉPASSEMENT DE CAPACITÉ

VBA excel : résoudre problème de capacité.

Erreur d'exécution 6: dépassement de capacité

Erreur d'execution '6' Dépassement de capacité

erreur d’exécution "6" Dépassement de capacité.

Discussions similaires

Newsletters