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.