Ecrire la valeur d'une textbox dans une cellule avec le format désiré

Bonjour,

Voici mon problème:
j'ai crée une Userform permettant d'indiquer des caractéristiques d'un emprunt, comme le nom, le montant...

J 'ai utilisé une zone de texte, pour indiquer le montant de l'emprunt dans la cellule I9, et avant j avais changé le format de cette dernière selon un format monétaire en EUR ou en USD ...

Malheureusement, quand j appuis sur Ok, le format du montant est en texte, et je peux le mettre dans le format choisi préalablement seulement en double-cliquant sur le cellule I9 et en faisant entrer... Et là comme par magie çà marche...

Vous savez comment éviter cette action manuelle ?
cf le code de l'userform

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

'Inscrire le nom de l'entreprise dans la cellule B3 ActiveWorkbook.Sheets(Emprunt).Range("B3") = nomEntreprise 'Inscrire le nom de l'emprunt dans la cellule H2 ActiveWorkbook.Sheets(Emprunt).Range("H2") = Nomemprunt   'Choisir la mise en forme (Eur ou USD) du Nominal If OptionButton_EUR = True Then ActiveWorkbook.Sheets(Emprunt).Cells(9, 9).NumberFormat = "#,##0 [$EUR]" ElseIf OptionButton_USD = True Then ActiveWorkbook.Sheets(Emprunt).Cells(9, 9).NumberFormat = "#,##0 [$USD]" End If   'Inscrire le montant du nominal dans la cellule I9 ActiveWorkbook.Sheets(Emprunt).Range("I9") = montantnominal

---

Citation:

---

cf le code de l'userform

---

:koi:

Peux tu mettre le code en entier, avec le nom de la fonction (qui dans un userform depend de l'action que tu effectue ... )

J'ai pas bien compris, tu veux appliquer un format a ta textbox ou a des cellules d'une feuille ? Après quelle action ? :marteau:

voici le code dans sa globalité:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub CommandButton1_Click()   'Inscrire le nom de l'entreprise dans la cellule B3 ActiveWorkbook.Sheets(Emprunt).Range("B3") = nomEntreprise 'Inscrire le nom de l'emprunt dans la cellule H2 ActiveWorkbook.Sheets(Emprunt).Range("H2") = Nomemprunt   'Choisir la mise en forme (Eur ou USD) du Nomina If OptionButton_EUR = True Then ActiveWorkbook.Sheets(Emprunt).Cells(9, 9).NumberFormat = "#,##0 [$EUR]" ElseIf OptionButton_USD = True Then ActiveWorkbook.Sheets(Emprunt).Cells(9, 9).NumberFormat = "#,##0 [$USD]" End If   'Inscrire le montant du nominal dans la cellule I9 ActiveWorkbook.Sheets(Emprunt).Range("I9") = montantnominal     Empruntuserform.Hide End Sub

---

Pour préciser ma question: Je souhaite insérer un nombre dans la cellule I9 selon le format choisit avant . Le problème c 'est que j'ai l'impression qu'en utilisant une zone de texte, le nombre est intégrer en format texte (un point d'exlamation sur la cellule m'informe d'ailleurs qu'il est sous format texte), et je souhaiterais pouvoir appliquer le format que j ai choisit avant.

Bonsoir,

Essaye avec un point dans le format:

Code:

---

ActiveWorkbook.Sheets(Emprunt).Cells(9, 9).NumberFormat = "#.##0 [$EUR]"

---

Essaie de mettre ce qui suit avant le Hide :

Code:

---

1 2	ActiveWorkbook.RefreshAll

---

ou

Code:

---

Application.Calculate

---