XL 2013 Calcul en boucle dans un userforme

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

1641484143821.png

Donc Help
 

Discussions similaires

Réponses
12
Affichages
537

Statistiques des forums

Discussions
311 725
Messages
2 081 948
Membres
101 850
dernier inscrit
Danigra