XL 2013 Format textbox

[maval]

Bonjour,

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

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

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]

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]

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

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

 

[ChTi160]

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]

Re,

Je joint mon fichier qui seras plus explicite

 

[patricktoulon]

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

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]

Re Patrick

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

 

[patricktoulon]

UN PETIT EXEMPLE vite fait

 

[maval]

Re,

Oui sa fonctionne je te remercie

Bonne soirée

 

[ChTi160]

Re
Ton fichier adapté a ma Sauce lol
jean marie

 

[maval]

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]

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]

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