TestBox EXCEL et format monéraire - Office 2003

nanieb
Messages postés
13
Date d'inscription
mardi 11 mars 2008
Statut
Membre
Dernière intervention
16 septembre 2011
- 27 sept. 2010 à 13:13
nanieb
Messages postés
13
Date d'inscription
mardi 11 mars 2008
Statut
Membre
Dernière intervention
16 septembre 2011
- 27 sept. 2010 à 20:30


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

bigfish_le vrai
Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
12
27 sept. 2010 à 14:28
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+
0
nanieb
Messages postés
13
Date d'inscription
mardi 11 mars 2008
Statut
Membre
Dernière intervention
16 septembre 2011

27 sept. 2010 à 20:30
Bonjour bigfish_le vrai
Merci pour l'aide apportée.
Tout fonctionne parfaitement.
Nanie
0