XL 2013 Calcul en boucle dans un userforme

youguybass · 6 Janvier 2022

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

JM27 · 6 Janvier 2022

erreur de fichier

Phil69970 · 6 Janvier 2022

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 · 6 Janvier 2022

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 · 6 Janvier 2022

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

Phil69970 à dit:
Bonjour @youguybass

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

*Merci de ton retour

@Phil69970

youguybass · 6 Janvier 2022

Phil69970 à dit:
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 · 6 Janvier 2022

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 · 6 Janvier 2022

JM27 à dit:
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

VB:

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 · 6 Janvier 2022

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 · 6 Janvier 2022

Phil69970 à dit:
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 · 6 Janvier 2022

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

VB:

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 · 6 Janvier 2022

JM27 à dit:
Bonsoir
regardes bien , la partie décimale disparait
Val renvoie la partie entière

VB:

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 · 6 Janvier 2022

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

youguybass · 6 Janvier 2022

JM27 à dit:
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 · 6 Janvier 2022

La variable E était en integer
Ci joint correctif

JM27 · 6 Janvier 2022

erreur de fichier

XL 2013 Calcul en boucle dans un userforme

youguybass

XLDnaute Junior

JM27

Phil69970

XLDnaute Barbatruc

JM27

XLDnaute Barbatruc

youguybass

XLDnaute Junior

Pièces jointes

youguybass

XLDnaute Junior

JM27

XLDnaute Barbatruc

Pièces jointes

youguybass

XLDnaute Junior

Phil69970

XLDnaute Barbatruc

youguybass

XLDnaute Junior

JM27

XLDnaute Barbatruc

youguybass

XLDnaute Junior

JM27

XLDnaute Barbatruc

youguybass

XLDnaute Junior

JM27

XLDnaute Barbatruc

Pièces jointes

JM27

XLDnaute Barbatruc

Pièces jointes

Discussions similaires