XL 2013 Format textbox

maval · 8 Août 2019

Bonjour,

Je cherche à mettre un format à mes textBox comme ceci 100 000

J'ai fait ceci TextBox = Format("# ##0")
et après ceci

VB:

Private Sub TextBox2_AfterUpdate()
On Error Resume Next
Me.TextBox2.Value = Format(Val(Replace(TextBox2, ",", ".")), "#,##0.00")

End Sub

Sa ne fonctionne toujours pas?

Merci de votre aide

ChTi160 · 8 Août 2019

Arff
essais de faire un petit fichier ,exemple de ce que tu as et de ce que tu veux obtenir et tu verras que tu vas avancer .
courage aller ！
au fait y a quoi en colonne B ?
jean marie

job75 · 8 Août 2019

Le code du post #1 fonctionne en utilisant l'évènement Exit :

VB:

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox2 = Format(Val(Replace(TextBox2, ",", ".")), "#,##0.00")
End Sub

ChTi160 · 8 Août 2019

Re
pour le Fun !
Pense à faire un fichier exemple Lol
une approche.
On peut utiliser ou la version avec Classe1 ou pas (voir le Code) Lol
au départ on formate lors du remplissage des TextBox (voir le Code)
jean marie

maval · 8 Août 2019

Re,

Je joint mon fichier qui seras plus explicite

patricktoulon · 8 Août 2019

re
je pige pas la si c'est alimenter par le click de la combo et que les valeurs sontprises dans les cellule pourquoi passer par le afterupdate
fait le directement par la combo et la fonction

VB:

Private Sub Combobox1_Click()

Dim lign As Long

    If ComboBox1.Value <> "" Then
        
        lign = ComboBox1.ListIndex + 6
        TextBox1.Value = format_textbox(Range("A" & lign))
        TextBox2.Value = format_textbox(Range("C" & lign))
        TextBox3.Value = format_textbox(Range("D" & lign))
        TextBox4.Value = format_textbox(Range("E" & lign))
        TextBox5.Value = format_textbox(Range("F" & lign))
        TextBox6.Value = format_textbox(Range("G" & lign))
        TextBox7.Value = format_textbox(Range("H" & lign))
        TextBox8.Value = format_textbox(Range("I" & lign))
        TextBox9.Value = format_textbox(Range("J" & lign))
        TextBox10.Value = format_textbox(Range("K" & lign))
        TextBox11.Value = format_textbox(Range("L" & lign))
        TextBox12.Value = format_textbox(Range("M" & lign))
        TextBox13.Value = format_textbox(Range("N" & lign))
        TextBox14.Value = format_textbox(Range("O" & lign))
        TextBox15.Value = format_textbox(Range("P" & lign))
        TextBox16.Value = format_textbox(Range("Q" & lign))
        TextBox17.Value = format_textbox(Range("R" & lign))
        TextBox18.Value = format_textbox(Range("S" & lign))
        TextBox19.Value = format_textbox(Range("T" & lign))
    End If
    
End Sub

Private Function format_textbox(rng As Range)
       res = Replace(rng.Value, ".", ",")
       res = Format(CCur(rng.Value), "### ### ##0.00")
   format_textbox = res
End Function

et meme la on pourrait simplifier avec un boucle pour les textbox 1 a 19

maval · 8 Août 2019

Re Patrick

Je ne sais pas si chez toi sa fonctionne chez moi non ?

patricktoulon · 8 Août 2019

UN PETIT EXEMPLE vite fait

maval · 8 Août 2019

Re,

Oui sa fonctionne je te remercie

Bonne soirée

ChTi160 · 8 Août 2019

Re
Ton fichier adapté a ma Sauce lol
jean marie

maval · 8 Août 2019

Re Jean Marie

Je te remercie mais tu aurais peu le faire avant.
Mais bob c'est Sympa

Je te souhaite une bonne soirtée

ChTi160 · 9 Août 2019

Bonjour maval
c est pas comme cela qu il faut voir la Chose.
regarde mon post ＃10
c etait sans fichier.
une fois que tu as eut joint un fichier , ca etait beaucoup mieux pour tout le monde lol
je me suis meme apercu que ce n etait pas des sommes（CCur）,mais des nombres entiers（populations）,plus besoin de ce format avec virgule.
moralite , avant de poser une question ,fait un petit fichier et toi meme tu vas gagner du temps.
j ai aussi vu ton poste qui traite des images.
Bonne journee
jean marie

maval · 9 Août 2019

Bonjour Jean Marie

Je te remercie et a l'avenir je serais quoi faire

j ai aussi vu ton poste qui traite des images.

Si tu pouvai me donner la solution je gagnerai du temps

Bonne journée

XL 2013 Format textbox

maval

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

maval

XLDnaute Barbatruc

Pièces jointes

patricktoulon

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Pièces jointes

maval

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

maval

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Discussions similaires