youguybass
XLDnaute Junior
J'ai un pb avec ce sous programme qui me permettrai de faire une somme de plusieurs multiplications en boucle a partir de textbox 200 à 220
J'ai réalisé cette boucle mais elle ne fonctionne pas :
J'ai comme message " incompatibilité de type"
Sub CalculTotalFI()
D = 0
For E = 200 To 220 Step 2
D = CDbl(Controls("TextBox" & E)) * CDbl(Controls("TextBox" & E + 1)) + D
Next
TxtTotalMaintenance.Value = D
End Sub
Donc Help
J'ai réalisé cette boucle mais elle ne fonctionne pas :
J'ai comme message " incompatibilité de type"
Sub CalculTotalFI()
D = 0
For E = 200 To 220 Step 2
D = CDbl(Controls("TextBox" & E)) * CDbl(Controls("TextBox" & E + 1)) + D
Next
TxtTotalMaintenance.Value = D
End Sub
Donc Help