PORCHER
XLDnaute Occasionnel
J'ai un problème avec input box
Il renvoi dans ma TextBox un nombre arrondi ( ex.: je rempli mon inputBox 46, 58 il me renvoi 47)
Private Sub Affpnumajout_Click()
Dim Nbre As Integer
Nbre = Application.InputBox _
(Prompt:="Entrer le nouveau montant.", _
Title:="Nouveau Montant.", Default:="0,00", Type:=1)
If Nbre = False Then Exit Sub
OP_mt_ope = Nbre ' Ma TextBox montant
'Converti la valeur en Franc
Tx_ConvertFrancEuro = CDbl(OP_mt_ope.Value) * 6.55957
'Applique un Format Franc
Tx_ConvertFrancEuro.Value = Format(Tx_ConvertFrancEuro.Value, "#,##0.00"" FRF""")
End Sub
Merci de m'aider
Il renvoi dans ma TextBox un nombre arrondi ( ex.: je rempli mon inputBox 46, 58 il me renvoi 47)
Private Sub Affpnumajout_Click()
Dim Nbre As Integer
Nbre = Application.InputBox _
(Prompt:="Entrer le nouveau montant.", _
Title:="Nouveau Montant.", Default:="0,00", Type:=1)
If Nbre = False Then Exit Sub
OP_mt_ope = Nbre ' Ma TextBox montant
'Converti la valeur en Franc
Tx_ConvertFrancEuro = CDbl(OP_mt_ope.Value) * 6.55957
'Applique un Format Franc
Tx_ConvertFrancEuro.Value = Format(Tx_ConvertFrancEuro.Value, "#,##0.00"" FRF""")
End Sub
Merci de m'aider