Discussion :

[jackborogar]

Bonjour à tous,

Lors de l'exécution de ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim juillet2 As Double
        Dim juillet_n2 As Double
        Dim Prix_juillet_N As Double
        Dim Prix_juillet_N2 As Double
 
        juillet = Sheets("Données").Cells(ligne + 13, colonne + 1).Value
        juillet_n = Sheets("Données").Cells(ligne + 1, colonne2 + 1).Value
        total_juillet = juillet + juillet_n
        Sheets("Achat").Range("F" & lig2).Value = total_juillet
 
        juillet2 = Sheets("Données").Cells(ligne + 13, colonne + 2).Value
        juillet_n2 = Sheets("Données").Cells(ligne + 1, colonne2 + 2).Value
        total_juillet2 = juillet2 + juillet_n2
        Sheets("Achat").Range("G" & lig2).Value = total_juillet2
 
 
        Prix_juillet_N = Sheets("Données").Cells(ligne + 13, colonne + 3).Value
        Prix_juillet_N2 = Sheets("Données").Cells(ligne + 1, colonne2 + 3).Value
        Sheets("Achat").Range("H" & lig2).Value = (juillet2 * Prix_juillet_N + juillet_n2 * Prix_juillet_N2) / total_juillet2

j'ai une erreur sur la dernière ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Achat").Range("H" & lig2).Value = (juillet2 * Prix_juillet_N + juillet_n2 * Prix_juillet_N2) / total_juillet2

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

Or après plusieurs recherches sur internet j'ai essayé plusieurs techniques mais en vain... De plus ce bout de code est dans une boucle et fonctionne très bien jusqu'à un certain moment(sachant que les valeurs sont relativement les mêmes)

Cordialement,

Petite précision qui a son importance lors de l'exécution du code, il plante car les valeurs sont à zéro. J'ai essayé de changer les valeurs et là tout fonctionne. Alors je suis un peu perdu à vrai dire.

[jfontaine]

Bonjour,

Quel est le type de la variable lig2.
Si Integer et que tu dépasse 32767 lignes, alors tu auras cette erreur.

[jackborogar]

Alors lors du plantage, lig2 est égale à 59. Aucune des valeurs ne dépasse le type integer. De plus j'ai essayé avec "#0" devant mon calcul, rien...

[Jean-Philippe André]

salut,

ton dépassement peut aussi être du à ton dénominateur, ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

total_juillet2

un test de blindage en amont de l'attribution de valeur et ca devrait vite être résolu

[jackborogar]

total_juillet2 est égale zéro. Et pk me metterai t-il l'erreur sur la derniere ligne alors que j'appelle déjà total_juillet2 avant?

Bon effectivement c'est le "total juillet 2" qui fait planter le schmilblick. Je mets un nombre à Juillet2 différent de zéro et là c'est bon. Je comprends pas pourquoi j'ai cette erreur...

[Invité]

Bonjour,
D’abord on ne fait jamais de division car 0/12 = erreur 12/0 = erreur ;
On test le diviseur : si Div=0 alors résultat=0.
Ensuite on multiplie le nombre a diviser par 1/DIV pour éviter une erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
if  total_juillet2=0 then
  Sheets("Achat").Range("H" & lig2).Value=0
else
Sheets("Achat").Range("H" & lig2).Value = (juillet2 * Prix_juillet_N + juillet_n2 * Prix_juillet_N2) *(1/ total_juillet2)
end if

[jackborogar]

MERCI rdurupt , pour cette précision très pertinente ainsi que Jfontaine. Effectivement en mettant un test sur le diviseur, mon code fonctionne.
Ce qui est bizarre, c'est le message d'erreur, qui pour moi était plus un problème sur les types, que sur la division en elle même, je laisse encore le sujet ouvert pour ce point.