Discussion :

[LaureneW]

Bonjour à tous !
Je rentre des données via une userform qui se retrouvent ensuite dans un tableau Excel (avec des calculs).
Pour que ce soit plus lisible au moment de la saisie des gros nombres, je souhaiterai mettre les nombres rentrés dans mes textbox de la userform sous le format "xxx xxx xxx"
Ce code fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub TextBox1.Change()
TextBox1.Text = Format(TextBox114.Value, "### ### ###")
End Sub

MAIS Excel me converti automatiquement la donnée sous format texte (alors que sous le format basique "xxxxxxxxx", Excel reconnaît bien un nombre). Ce qui est un problème puisque Excel ne peut donc plus me calculer les formules de mon tableau...
Ci dessous photo de mon problème sous Excel :


J'imagine que c'est tout bête, mais je n'ai rien trouvé qui marchait sur internet,

Merci de votre aide !

[mercatog]

Si tu n'as pas de décimales, essaies ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Cells(1, 4) = TextBox1.Text
Cells(2, 4) = Val(TextBox1.Text)
Cells(3, 4) = 1 * TextBox1.Text

[LaureneW]

Bonjour Mercatog,
merci, cela fonctionne, pas besoin de mettre la dernière ligne même
Pour ceux que ça intéresse, voici le code pour mettre en forme la textBox1 qui est renvoyée sous format nombre dans la cellule B1 de la Feuil1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub TextBox1_change()
    TextBox1.Text = Format(TextBox1.Value, "### ### ###")
    Sheets("Feuil1").Cells(1, 2) = Val(TextBox1.Text)
 
End Sub

[mercatog]

J'ai mis les 3 pour la démonstration.