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 : Sélectionner tout - Visualiser dans une fenêtre à part
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