OVH Cloud OVH Cloud

Format d' 1 TextBox

2 réponses
Avatar
Serge
Bonjour,


A l'ouverture d'1 formulaire de remplis mes TexBox avec le contenu de
cellules d'1 feuille Excel.
Comme j'affiche dans mes TexBox des chiffres j'utilise :

UserForm5.Controls("TextBox1").Value = Format(ActiveSheet.Cells(46,
204).Value, "##,##0")

avec la fonction Format( ..............., "##,##0") pour une meilleure
lisibilité.
Au bas de mon formulaire j'additionne toutes mes TexBox.
Lorsque l'on change le contenu de mes TexBox l'addition ne marche pas,
j'obtiens une conténation de toute mes valeurs.
Ex : Si TextBox1 = 12 363, TextBox2= 9 630, .... --> j'obtiens un total de
12 363 9 630 .....
Cela provient de mon Format.
Comment donc afficher dans 1 format donné et continuer à garder mes valeur
au format numérique ?

Merci

2 réponses

Avatar
Michel Pierron
Bonjour Serge;
exemple si tu fais la somme dans TextBox3:
Private Sub CommandButton1_Click()
TextBox3 = Format(CDbl(TextBox1) + CDbl(TextBox2), "##,##0")
End Sub

MP

"Serge" <serge.g8[NO-SPAM]@laposte.net> a écrit dans le message de
news:crtqli$2rrj$
Bonjour,


A l'ouverture d'1 formulaire de remplis mes TexBox avec le contenu de
cellules d'1 feuille Excel.
Comme j'affiche dans mes TexBox des chiffres j'utilise :

UserForm5.Controls("TextBox1").Value = Format(ActiveSheet.Cells(46,
204).Value, "##,##0")

avec la fonction Format( ..............., "##,##0") pour une meilleure
lisibilité.
Au bas de mon formulaire j'additionne toutes mes TexBox.
Lorsque l'on change le contenu de mes TexBox l'addition ne marche pas,
j'obtiens une conténation de toute mes valeurs.
Ex : Si TextBox1 = 12 363, TextBox2= 9 630, .... --> j'obtiens un total de
12 363 9 630 .....
Cela provient de mon Format.
Comment donc afficher dans 1 format donné et continuer à garder mes valeur
au format numérique ?

Merci




Avatar
Serge
Merci Michel,

Nickel - Chrome

;-)

"Michel Pierron" a écrit dans le message de
news:%
Bonjour Serge;
exemple si tu fais la somme dans TextBox3:
Private Sub CommandButton1_Click()
TextBox3 = Format(CDbl(TextBox1) + CDbl(TextBox2), "##,##0")
End Sub

MP

"Serge" <serge.g8[NO-SPAM]@laposte.net> a écrit dans le message de
news:crtqli$2rrj$
Bonjour,


A l'ouverture d'1 formulaire de remplis mes TexBox avec le contenu de
cellules d'1 feuille Excel.
Comme j'affiche dans mes TexBox des chiffres j'utilise :

UserForm5.Controls("TextBox1").Value = Format(ActiveSheet.Cells(46,
204).Value, "##,##0")

avec la fonction Format( ..............., "##,##0") pour une meilleure
lisibilité.
Au bas de mon formulaire j'additionne toutes mes TexBox.
Lorsque l'on change le contenu de mes TexBox l'addition ne marche pas,
j'obtiens une conténation de toute mes valeurs.
Ex : Si TextBox1 = 12 363, TextBox2= 9 630, .... --> j'obtiens un total
de


12 363 9 630 .....
Cela provient de mon Format.
Comment donc afficher dans 1 format donné et continuer à garder mes
valeur


au format numérique ?

Merci