Addition TextBox + un trait de séparation

[marcelio]

Bonjour à tous,
J'aimerais avoir dans ma Textbox1
après avoir additionné séparément le résultat des Textbox21 et 17
et 24 et 27, avoir un trait pour séparer ces résultats.
Exemple:
Textbox21 : 10
Textbox17 : 9

Textbox24 : 8
Textbox27 : 7

Textbox1 : 19-15

Il arrive que la Textbox21 ou la 17 aucun chiffre ne seras inscrit
idem pour les Textbox24 et 27

Merci d'avance
Marcelio

 

[13GIBE59]

Re : Addition TextBox + un trait de séparation

Bonjour Marcelio.

Vois le fichier joint.

JB

 

[job75]

Re : Addition TextBox + un trait de séparation

Bonjour marcelio, JB,

Le code de l'USF :

Private Sub TextBox17_Change()
Sommes
End Sub

Private Sub TextBox21_Change()
Sommes
End Sub

Private Sub TextBox24_Change()
Sommes
End Sub

Private Sub TextBox27_Change()
Sommes
End Sub

Sub Sommes()
TextBox1 = Val(Replace(TextBox21, ",", ".")) + Val(Replace(TextBox17, ",", ".")) _
  & "-" & Val(Replace(TextBox24, ",", ".")) + Val(Replace(TextBox27, ",", "."))
End Sub

Fonctionne quel que soit le séparateur décimal utilisé.

A+

 

[marcelio]

Re : Addition TextBox + un trait de séparation

Bonsoir JB job75 et le Forum,
Merci à tous les 2 de votre aide.
Je vais garder la solution de job75 qui convient au mieux pour mon fichier.
Bonne soirée à tous les 2 et au Forum.
Encore merci
Marcelio

 

[job75]

Re : Addition TextBox + un trait de séparation

Re,

Un peu plus court :

Private Sub TextBox17_Change()
TextBox1 = Val(Replace(TextBox21, ",", ".")) + Val(Replace(TextBox17, ",", ".")) _
  & "-" & Val(Replace(TextBox24, ",", ".")) + Val(Replace(TextBox27, ",", "."))
End Sub

Private Sub TextBox21_Change()
TextBox17_Change
End Sub

Private Sub TextBox24_Change()
TextBox17_Change
End Sub

Private Sub TextBox27_Change()
TextBox17_Change
End Sub

Bonne fin de soirée.

 

[marcelio]

Re : Addition TextBox + un trait de séparation

Bonsoir job75 et le Forum,
Désolé je n'avais pas vu la fin de la discussion.
Une nouvelle fois c'est encore super.
Merci et bonne soirée à toi et au Forum.
Marcelio