Discussion :

[stentorus]

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

[mercatog]

je voudrais savoir ou est l'erreur,merci

Code :

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

1
2
3
4
Cells("stockmini") = stock_min
 
        Cells(A, i) = stock_min
        Cells(B, i) = Cells(A, 18)

avant tout fais un

Code :

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

Option Explicit

de cette façon, tu seras obligé de déclarer toutes tes variables
1. pas de sens

Code :

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

Cells("stockmini") = stock_min

si par exemple on écrit

Code :

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

range("stockmini").value=stock_min

nous devions avoir une cellule nommée "stockmini"

2.on écrit

Code :

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

1
2
3
Range("A" & i).value=stock_min
'Ou bien
Cells(i,1).Value=stock_min

[stentorus]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim stock As Double
Dim i As Integer
Sub inc()
    stock = 0.05
    i = 25
    While stock <= 0.15
        Range("stockmini").Value = stock
        Range("A" & i).Value = stock
        Range("B" & i).Value = Range("A" & 18).Value
        stock = stock + 0.01
        i = i + 1
    Wend
 
End Sub

voila!!!!merci pour votre contribution