format d'écriture chiffre

[grisan29]

Bonjour a vous tous du forum
Dans ce petit bout de code comment puis je faire pour que le résultat soit a 2 chiffres après la virgule, car tel que cela fonctionne bien mais il n’y a que cela qui coince

Sub acompte()
Dim Valide$

Sheets("feuil1").Activate
    Valide = "Je verse un acompte de 30% soit:"
 Range("A52").Value = Valide & " " & Range("G54") * 0.3 & "€"
        
End Sub

Et aussi que Valide soit souligné lors de l’inscription en A52
Merci de votre compréhension
Pascal

 

[JCGL]

Re : format d'écriture chiffre

Bonjour à tous,

Peux-tu essayer avec :

Sub acompte()Dim Valide$


Sheets("feuil1").Activate
    Valide = "Je verse un acompte de 30% soit:"
 With Range("A52")
 .Value = Valide & " " & Format(Range("G54") * 0.3, "0.00 €")
 .Font.Underline = xlUnderlineStyleSingle
 End With
End Sub

A + à tous

 

[grisan29]

Re : format d'écriture chiffre

bonsoir jcgl
merci pour ta réponse qui remplie son office parafaitement du moins au niveau du calcul, mais il ne faudrait pas que la somme soit soulignée juste "valide"
Merci beaucoup

Pascal