XL 2016 VBA affichage nombre décimal (2chiffres après la virgule)

Staple1600

XLDnaute Barbatruc

• 29 Septembre 2019

• #2

Bonjour à toi aussi PORCHER

(Revoir le point qui parle du bonjour et caetera dans la charte 😉)

Sinon, pas de fichier excel sous le coude?
(histoire de ne pas se fader la re-construction d'un convertisseur euro/franc avec userform , textbox et tutti quanti, qui existe déjà sur ton disque dur 😉)

 

Vote positif 0 Vote négatif

PORCHER

XLDnaute Occasionnel

• 29 Septembre 2019

• #3

Milles excuses j'ai oublié la politesse !
Bien sure les règles de politesse trop souvent oubliées au profit du rendement et de la routine.
Je rectifie donc (Bonjour à tous)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Septembre 2019

• #4

Re,

PORCHER
Du coup, le temps que tu nous claques la bise 😉, j'ai pris le temps de faire une petit test
(Un userform, deux TextBox, Un CommandButton)
Et roule, ma poule, 46.58 reste 46.58, non ?

VB:

Private Sub CommandButton1_Click()
Nbre = Application.InputBox _
(Prompt:="Entrer le nouveau montant.", _
Title:="Nouveau Montant.", Default:="0,00", Type:=1)
If Nbre = False Then Exit Sub
TextBox1 = Nbre
Frc = Round(Nbre * 6.55957, 2)
TextBox2 = Format(Frc, "#,##0.00"" FRF""")
End Sub

En tout cas, sur mon PC, oui.

 

Vote positif 0 Vote négatif

PORCHER

XLDnaute Occasionnel

• 29 Septembre 2019

• #5

Bravo Staple 1600, sa fonctionne très bien
Et Merci de m'avoir repris pour le manque de politesse.
Merci encore et bonne continuation pour la suite

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 29 Septembre 2019

• #6

bonsoir
ce qui'il y a de bien avec l'inputbox (de l'application) c'est que le return boolean n'est pas forcement nécessaire dans ce cas précis pour le type 1

en déclararant nbre en double des le départ en en récupérant le cdec de l'input
l’opération est simple
si ca vaut plus que zero on fait sinon on fait pas

VB:

Private Sub CommandButton1_Click()
    Dim nbre As Double
    nbre = CDec(Application.InputBox(Prompt:="Entrer le nouveau montant.", Title:="Nouveau Montant.", Default:="0,00", Type:=1))
    If nbre > 0 Then OP_mt_ope = nbre: Tx_ConvertFrancEuro.Value = Format(CDbl(nbre * 6.55957), "#,##0.00"" FRF""")
End Sub

 

Dernière édition: 29 Septembre 2019

Vote positif 0 Vote négatif

PORCHER

XLDnaute Occasionnel

• 30 Septembre 2019

• #7

Bonjour patriktoulon,
C'est encore mieux et plus claire, je l'ai adopter.
Merci

 

Vote positif 0 Vote négatif