Manipulation de cellules avec VBA Excel

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:

---

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

---

Citation:

---

je voudrais savoir ou est l'erreur,merci

---

Code:

---

1 2 3 4

Cells("stockmini") = stock_min   Cells(A, i) = stock_min Cells(B, i) = Cells(A, 18)

---

avant tout fais un

Code:

---

Option Explicit

---

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

Code:

---

Cells("stockmini") = stock_min

---

si par exemple on écrit

Code:

---

range("stockmini").value=stock_min

---

nous devions avoir une cellule nommée "stockmini"

2.on écrit

Code:

---

1 2 3

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

---

Code:

---

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