XL 2013 Calcul en boucle dans un userforme

[youguybass]

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

 

[Phil69970]

Bonjour @youguybass

Sans fichier c'est pas évident....
Un essai :

D = CDbl(Me.Controls("TextBox" & E)) * CDbl(Me.Controls("TextBox" & E + 1)) + D

*Merci de ton retour

@Phil69970

 

[JM27]

Bonsoir
3 questions:
Tes textbox son t'elles biens nommées 200 à 220
sont t'elles documentées ?
Toutes les valeurs sont t'elle numériques ?

 

[youguybass]

Bonjour
Ta solution ne fonctionne pas
Ci-joint une petite partie du fichier
Slts

Bonjour @youguybass

Sans fichier c'est pas évident....
Un essai :


*Merci de ton retour

@Phil69970

 

[youguybass]

Bonjour @youguybass

Sans fichier c'est pas évident....
Un essai :


*Merci de ton retour

@Phil69970

un peu de politesse de ma part!
Merci quand même!

 

[JM27]

Bonsoir
Comme prévu lorsque tu lances la macro de Calcul , certaines text box sont vides
Cette macro faisant le calcul sur toutes les textbox , donc ca plante
Je me suis permis quelques modifs
Gestion du cas ou l'on supprime une valeur

 

[youguybass]

Bonsoir
Comme prévu lorsque tu lances la macro de Calcul , certaines text box sont vides
Cette macro faisant le calcul sur toutes les textbox , donc ca plante
Je me suis permis quelques modifs
Gestion du cas ou l'on supprime une valeur

D = 0
For E = 200 To 220 Step 2
D = (Val(Me.Controls("TextBox" & E)) * Val(Me.Controls("TextBox" & E + 1))) + D

Next
TxtTotalMaintenance.Value = D

J'ai réussi avec "Val et des parenthèses bien positionnées

 

[Phil69970]

Re

Je m'interroge quand je vois cela

Dans ton fichier

et dans ton image du post 1 je vois ça

Edit: Vu le post 7 c'est vraiment n'importe quoi les variables ont de nouveaux changées

@Phil69970

 

[youguybass]

Re

Je m'interroge quand je vois cela

Dans ton fichier
Regarde la pièce jointe 1126740

et dans ton image du post 1 je vois ça

Regarde la pièce jointe 1126741


@Phil69970

C'est bon Phil
J'ai réussi avec :
D = 0
For E = 200 To 220 Step 2
D = (Val(Me.Controls("TextBox" & E)) * Val(Me.Controls("TextBox" & E + 1))) + D

Next
TxtTotalMaintenance.Value = D

avec avec "Val" et des parenthèses bien positionnées.

Merci

 

[JM27]

Bonsoir
regardes bien , la partie décimale disparait
Val renvoie la partie entière

D = (Val(Me.Controls("TextBox" & E)) * Val(Me.Controls("TextBox" & E + 1))) + D

Est tu bien sur que le E , c'est pas plutôt un D qu'il faut
Et que cela donne t'il lorsque tu supprimes une valeur?

 

[youguybass]

Bonsoir
regardes bien , la partie décimale disparait
Val renvoie la partie entière

D = (Val(Me.Controls("TextBox" & E)) * Val(Me.Controls("TextBox" & E + 1))) + D

Est tu bien sur que le E , c'est pas plutôt un D qu'il faut
Et que cela donne t'il lorsque tu supprimes une valeur?

Effectivement la partie décimale disparait
quelle serait la combine pour que les chiffres après la virgule soient pris en compte

 

[JM27]

As tu regardé mon fichier du #6
en plus tu fais fort , tu as estimé que ton post #7 est la solution😛

 

[youguybass]

As tu regardé mon fichier du #6
en plus tu fais fort , tu as estimé que ton post #7 est la solution😛

ou je lai essayé ton du#6, il ne prend pas les chiffres à virgule

 

[JM27]

La variable E était en integer
Ci joint correctif

 

[JM27]

erreur de fichier