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
Partager