TestBox EXCEL et format monéraire - Office 2003

Signaler
Messages postés
13
Date d'inscription
mardi 11 mars 2008
Statut
Membre
Dernière intervention
16 septembre 2011
-
Messages postés
13
Date d'inscription
mardi 11 mars 2008
Statut
Membre
Dernière intervention
16 septembre 2011
-


Bonjour,

j'ai créer un UserForm avec Combobox et TextBox
Tout fonctionne.

Sauf que les nombres insérés par TextBox dans ma feuille de calcul ne sont pas reconnus et qu'il m'est impossible de faire la somme de ces derniers.

Quelqu'un pourrait-t-il m'aider à finaliser mon projet s'il vous plait ?

TextBox3 = InputBox("Saisir le montant")
TextBox3.Text = Format(TextBox3.Value, " #,##0.00 €")
ActiveCell = TextBox3.Value

Merci pour votre aide...

Nanie

2 réponses

Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
9
Salut,

la textbox ne renvoie que du texte non formaté !

donc la ligne "TextBox3.Text = Format(TextBox3.Value, " #,##0.00 €") " ne sert pas à grand chose car même si le format "visible" correspond la valeur est du texte.

TextBox3 = InputBox("Saisir le montant")
TextBox3.Text = Format(TextBox3.Value, " # ##0,00 €")
With ActiveCell
    .NumberFormat = " # ##0,00 €" 'format de la cellule de destination
    .Value = Val(TextBox3.text) 'on converti la valeur de la textbox en valeur
End With


A+
Messages postés
13
Date d'inscription
mardi 11 mars 2008
Statut
Membre
Dernière intervention
16 septembre 2011

Bonjour bigfish_le vrai
Merci pour l'aide apportée.
Tout fonctionne parfaitement.
Nanie