Bonsoir,

je voudrais faire une étude sensibilité du changement du coût de stockage sur le coût total de production

Quand j'execute la macro,MVisual Editor m'affiche une erreur "Incompatibilité de types mais je n'arrive a la trouver,

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
20
Dim stock As Double
Dim i As Integer
 
Sub inc()
    stock = 0.05
    i = 25
 
    While stock_min <= 0.15
 
        Cells("stockmini") = stock_min
 
        Cells(A, i) = stock_min
        Cells(B, i) = Cells(A, 18)
 
        stock_min = stock_min + 0.01
        i = i + 1
    Wend
 
 
End Sub