format d'écriture chiffre

grisan29 · 17 Avril 2012

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

Code:

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 · 17 Avril 2012

Re : format d'écriture chiffre

Bonjour à tous,

Peux-tu essayer avec :

VB:

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 · 18 Avril 2012

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

format d'écriture chiffre

grisan29

XLDnaute Accro

JCGL

XLDnaute Barbatruc

grisan29

XLDnaute Accro

Discussions similaires