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

 

[patricktoulon]

et oui pas facile de formater un textbox
tout d'abord pour que le afterupdate fonctionne il faut qu'il y est au moins 2 control dans le userform
ensuite pour formater il faut astucer

Private Sub TextBox1_AfterUpdate()
    TextBox1 = Replace(TextBox1, ".", ",")
    tabl = Split(TextBox1.Text, ",")
    tabl(0) = Format(tabl(0), "@@@ @@@ @@@ @@@ @@@")
    TextBox1.Value = tabl(0)
    If UBound(tabl) > 0 Then
        TextBox1.Text = TextBox1 & "," & tabl(1)
    End If
    TextBox1.Text = Trim(TextBox1.Text)
End Sub

libre a toi de coder le format que tu veux "@@...."

 

[maval]

Bonjour Patrick

Oui sa fonctionne et je te remercie, peut tu me dire comment faire pour 19 textBox, je pense qu'il y a une boucle?

 

[patricktoulon]

re
tu a 2 solution
un module class et tu classe tes textbox
transférer ce code dans une fonction avec le textbox comme argument
tu choisi quoi ?

 

[maval]

OUi
mais la tu me parle chinois trop compliqué pour moi si tu m'aide pas

 

[patricktoulon]

ci joint exemple 3 textbox s avec la meme fonction userform2

 

[maval]

Re,

Sa fonctionne si je rentre les valeur manuellement alors que moi il rentre grasse à la combobox

 

[ChTi160]

Bonjour maval
Bonjour le Fil, le Forum
il est ou le Fichier ? ,il est ou ? Lol
（Patrick , fallait le deviner ！ lol）
jean marie

 

[maval]

Salut ChTi
Voila mon code au complet mais tu me repond jamais

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub Label3_Click()

End Sub

Private Sub UserForm_Initialize()

    Dim Cell As Range
    With Sheets("Populations 2019")
        For Each Cell In .Range("B6:B" & .Range("B65536").End(xlUp).Row)
            Me.ComboBox1.AddItem (Cell)
        Next
    End With

End Sub


Private Sub Combobox1_Click()

Dim lign As Long

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



Private Sub format_textbox(TxtB As MSForms.TextBox)
    TxtB = Replace(TxtB, ".", ",")
    tabl = Split(TxtB.Text, ",")
    tabl(0) = Format(tabl(0), "@@@ @@@ @@@ @@@ @@@")
    TxtB.Value = tabl(0)
    If UBound(tabl) > 0 Then
        TxtB.Text = TxtB & "," & tabl(1)
    End If
    TxtB.Text = Trim(TxtB.Text)

End Sub

Private Sub TextBox2_AfterUpdate()
format_textbox TextBox2

End Sub


Private Sub TextBox3_AfterUpdate()
format_textbox TextBox3

End Sub

 

[ChTi160]

Re
je suis comme beaucoup , maintenant sans fichier , je ne réponds plus ! Lol (mais je regarde )
histoire de participer(de ne pas être passe pour rien Lol)

Private Sub format_textbox(TxtB As MSForms.TextBox)
   With TxtB
       .Text = Replace(.Text, ".", ",")
       .Text = Format(CCur(.Text), "### ### ##0.00")
   End With
End Sub

pas de chiffre en Colonne B donc ?

'un truc du genre
           TextBox1.Value = Format(CCur(Replace(Cells( lign,1), ".", ",")), "### ### ##0.00")
       For i = 2 To 19 'on va sauter une Colonne (1+i)
        Controls("TextBox" & i) = Format(CCur(Replace(Cells(lign, 1 + i), ".", ",")), "### ### ##0.00")
       Next i

non testé pas de fichier
Bonne continuation
jean marie

 

[maval]

Re,

Non toujours pareil

 

[ChTi160]

Ok
jean marie

 

[job75]

Bonjour,

Pour le séparateur de milliers en VBA on utilise la virgule.

Au lieu de tabl(0) = Format(tabl(0), "@@@ @@@ @@@ @@@ @@@")

utiliser tabl(0) = Format(tabl(0), "#,##0")

et au lieu de .Text = Format(CCur(.Text), "### ### ##0.00")

utiliser .Text = Format(.Text, "#,##0.00")

A+

 

[ChTi160]

Re
Bonjour job75
jean marie

 

[maval]

Bon

J'abandonne trop compliquer?

Merci à tous