Discussion :

[Kirgerad]

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

[delphine35]

cf le code de l'userform

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 ?

[Kirgerad]

voici le code dans sa globalité:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[AlainTech]

Bonsoir,

Essaye avec un point dans le format:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[delphine35]

Essaie de mettre ce qui suit avant le Hide :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ActiveWorkbook.RefreshAll

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Calculate