VBA erreur 6 problème d'éxecution macro

Résolu/Fermé
Lucas922 Messages postés 4 Date d'inscription lundi 12 septembre 2016 Statut Membre Dernière intervention 14 février 2017 - Modifié par jordane45 le 12/09/2016 à 18:10
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 14 sept. 2016 à 15:35
Bonjour,
J'ai un petit probleme lors de l'execution de ma macro un méssage d'erreur s'affiche à cette ligne le msg d'erreur n°6 = dépassement de capacité
Je suis novice en vba
Pouvez vous m'aider ?
cordialement

 ActiveWorkbook.Sheets("COPIL").Cells(bbb, 188) = correctionsRESERVES
        If correctionsAppros <> 0 Then
            ActiveWorkbook.Sheets("COPIL").Cells(bbb, 202) = délaicorrectionsRESERVES / correctionsRESERVES (le message d'erreur survient à cette ligne)      
        Else
            ActiveWorkbook.Sheets("COPIL").Cells(bbb, 202) = 0
        End If


EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI

Merci d'y penser dans tes prochains messages.
A voir également:

2 réponses

jordane45 Messages postés 38136 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 16 avril 2024 4 649
12 sept. 2016 à 18:10
Bonjour,
Que valent tes différentes variables au moment du plantage ?

0
Toutes les variables sont prises en compte jusqu'à cette ligne qui plante
0
jordane45 Messages postés 38136 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 16 avril 2024 4 649 > Lucas922
12 sept. 2016 à 18:21
certes...... mais..... elles contiennent quoi comme valeur au moment où ça plante ??
0
Au moment du plantage elles sont vierge
0
jordane45 Messages postés 38136 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 16 avril 2024 4 649 > Lucas922
12 sept. 2016 à 18:55
Donc .... 0 divisé par 0 .... = ? .... l'infini !
D'où l'erreur !
0
Merci beaucoup pour votre aide je comprend mon erreur mais pouvez vous du coup me dire qu'est-ce que je dois entrer afin de pouvoir garder le "0" tout en poursuivant ma macro s'il vous plaît
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
14 sept. 2016 à 11:48
Bonjour,

Si vous etes toujours a l'ecoute:

    ActiveWorkbook.Sheets("COPIL").Cells(bbb, 188) = correctionsRESERVES
    If correctionsAppros <> 0 And correctionsRESERVES <> 0 And délaicorrectionsRESERVES <> 0 Then
        ActiveWorkbook.Sheets("COPIL").Cells(bbb, 2) = délaicorrectionsRESERVES / correctionsRESERVES
    Else
        ActiveWorkbook.Sheets("COPIL").Cells(bbb, 202) = 0
    End If
0
jordane45 Messages postés 38136 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 16 avril 2024 4 649
14 sept. 2016 à 12:08
On ne sait pas d'où proviennent tes variables... comment sont elles alimentées, comment sont elles initialisées ???
De plus ... NE JAMAIS utilisé d'accents dans des noms de variables !!!
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > jordane45 Messages postés 38136 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 16 avril 2024
14 sept. 2016 à 12:52
Bonjour,

Tout a fait Thierry, encore qu'il n'y a pas d'accent et ce n'est pas mon code mais celui de Lucas922. Il a au moins le principe qu'il faut tester les variables pour eviter les ennuis sur calcul
0
jordane45 Messages postés 38136 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 16 avril 2024 4 649 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
14 sept. 2016 à 15:28
Ah oui.. je n'ai pas vu que c'était un autre intervenant... sorry

Par contre :
encore qu'il n'y a pas d'accent

et : délaicorrectionsRESERVES
A moins que mes yeux ne me jouent des tours... je vois bien un accent .. ^^
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > jordane45 Messages postés 38136 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 16 avril 2024
14 sept. 2016 à 15:35
Re,

En effet, a l'insu de mon plein gre ....................
0