XL 2013 Calcul en boucle dans un userforme

youguybass

XLDnaute Nouveau
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

1641484143821.png

Donc Help
 

Discussions similaires

Statistiques des forums

Discussions
299 847
Messages
1 979 561
Membres
206 773
dernier inscrit
becaye80