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 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 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 38314 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 24 novembre 2024 4 705
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 38314 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 24 novembre 2024 4 705 > 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 38314 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 24 novembre 2024 4 705 > 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 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
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 38314 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 24 novembre 2024 4 705
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 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710 > jordane45 Messages postés 38314 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 24 novembre 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 38314 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 24 novembre 2024 4 705 > f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 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 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710 > jordane45 Messages postés 38314 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 24 novembre 2024
14 sept. 2016 à 15:35
Re,

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