USF Textbox - Moyenne

[xvella]

Bonjour Forum,
Bonjour Tous,

J'ai un souci pour faire une moyenne dans un userform via des textbox.

Merci d'avance pour l'aide que vous pourrez m'apporter.
@+

 

[PascalXLD]

Re : USF Textbox - Moyenne

Bonjour

un petit essai en pièce jointe

 

[Spitnolan08]

Re : USF Textbox - Moyenne

Bonjour,
à la bourre sur Pascal et sansz recherche de simplification de code :

Private Sub TextBox1_Change()
Dim ValeurRésultat As Currency
Dim Compteur As Byte

'Compter le nombre d'épaisseur inscrite pour établir la moyenne
Compteur = 0

If TextBox1 <> "" Then
Compteur = Compteur + 1
ValeurRésultat = CDbl(TextBox1.Value)
End If
If TextBox2 <> "" Then
Compteur = Compteur + 1
ValeurRésultat = ValeurRésultat + CDbl(TextBox2.Value)
End If
If TextBox3 <> "" Then
Compteur = Compteur + 1
ValeurRésultat = ValeurRésultat + CDbl(TextBox3.Value)
End If
If TextBox4 <> "" Then
Compteur = Compteur + 1
ValeurRésultat = ValeurRésultat + CDbl(TextBox4.Value)
End If
If TextBox5 <> "" Then
Compteur = Compteur + 1
ValeurRésultat = ValeurRésultat + CDbl(TextBox5.Value)
End If

TextBox6 = Format(ValeurRésultat, "0.00")

End Sub

Cordialement

 

[xvella]

Re : USF Textbox - Moyenne

Bonjour Pascal76,
Bonjour spitnolan08,
Bonjour Forum,

Vos 2 solution marche toute 2 dans le cas de nombre entier mais à chaque fois que je veux mettre exemple 12.5 - 12.3 - 12.4
En fait des nombres à virgule ça bug.

Merci pour votre aide.
@+

 

[Spitnolan08]

Re : USF Textbox - Moyenne

Re,

No problem chez moi: ça fonctionne dans tous les cas. Mais il faut que tu modifies de la même façon chaque private sub.

Cordialement

 

[PascalXLD]

Re : USF Textbox - Moyenne

Re

voilà modifié

 

[PascalXLD]

Re : USF Textbox - Moyenne

Re,

No problem chez moi: ça fonctionne dans tous les cas. Mais il faut que tu modifies de la même façon chaque private sub.

Cordialement

Tout dépend si tu as des , ou des .

avec des points il faut utiliser val et non cdbl

Bonne fin de journée

 

[pierrejean]

Re : USF Textbox - Moyenne

bonjour a tous

ma version

le point et la virgule sont acceptés

 

[pierrejean]

Re : USF Textbox - Moyenne

re

je viens de regarder la version de Pascal76

et je constate que la mienne n'est qu'un honteux plagiat avec pour seule difference

Controls("TextBox" & n).Value = Replace(Controls("TextBox" & n).Value, ",", ".")

qui permet d'accepter le point ou la virgule

 

[xvella]

Re : USF Textbox - Moyenne

Bonjour Pascal76,
Bonjour spitnolan08,
Bonjour pierrejean,
Bonjour Forum,

Je vous remercie tous les trois.

Bonne Journée à tous.
@+