Sujet Précédent Sujet Suivant

Format TextBox VBA --> Excel

Fermé
JB. - 9 sept. 2009 à 10:43
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 9 sept. 2009 à 11:09
Bonjour,
En programmant une textbox avec le code suivant: textbox.value = Format(textbox.value, "#,##0"), j'obtiens un format de saisie numérique avec séparation des milliers.
En exportant vers excel la valeur saisie dans cette textbox, le format n'est pas reconnu. Je ne peux donc pas m'appuyer sur cette donnée pour effectuer un calcul, ce qui me pose problème...
Est-ce que quelqu'un aurait une solution à me proposer?
Merci d'avance.
JB
A voir également:

2 réponses

Réponse 1 / 2
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 155
9 sept. 2009 à 11:07
Bonjour,

la seule solution que j'ai trouvé est de mettre ta valeur textbox dans une variable, reformater ta variable et tu copies la variable dans une cellule :
e = TextBox1.Value + 1 - 1
e = Format(e, "#,##0")
range("A1") = e

J'ai essayé et ca marche!
0
Réponse 2 / 2
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
9 sept. 2009 à 11:09
Bonjour,

Voilà le test que je viens de faire : 
Private Sub CommandButton1_Click()
Dim mText As Variant

    If TextBox1.text = "" Then Exit Sub
    
    mText = Format(TextBox1.Value, "#,##0")
    
    Sheets(1).Range("A1").Value = mText
    
End Sub


Si je tape 1234567 dans ma textbox, j'ai "1 234 567" dans ma cellule A1.

Je n'ai sans doute pas bien compris ton problème.

;o)
0