Type de variable ?

[Fab]

Rebonjour,
Dans ma macro, je souhaite récupérer 2 variables (chiffres avec décimales) via une InputBox. Puis faire un calcul avec ces 2 variables et stocker le résultat dans une 3ème variable (chiffre avec décimale (si possible exprimé en %)). Finalement, je souhaiterais mettre le résultat dans une cellule accompagmé de texte.

Sub CalculTitreSolutionAcetateDexametasone()
Dim Message1, Title, Default
Dim Message2, Title2, Default2
Dim Masse, Volume, Titre
Message1 = "Indiquer la masse d'acétate de dexamétazone pesée [mg]"
Default = ""
Masse = InputBox(Message1, Title, Default)
Message2 = "Indiquer le volume de méthanol ajouté [ml]"
Default = ""
Volume = InputBox(Message2, Title2, Default2)
Titre = Masse / Volume * 100
Selection.NumberFormat = "0.0"
Range("B39:F39").Select
ActiveCell.FormulaR1C1 = "Masse d'acétate de dexamétasone [mg] : " + Masse + " ; Volume de méthanol [ml] : " + Volume + " => titre [%] : " + Titre
With ActiveCell.Characters(Start:=1, Length:=5).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub

Lorsque je l'execute (à noter que les cellules B39:F39 ont été préalablement fusionnée) avec la variable "+ Titre" à la fin, elle plante. Ai-je mal défini le type de variable pour "Titre" ?
Encore merci

 

[Pascal76]

Saut Fab

Lorsque tu mets des variables dans du texte il faut écrire ainsi

"ma variable n°1 est la suivante : " & MaVariable1 & ". La variable n° 2 est : " & MaVariable2

Donc je pense que ton erreur vient de tes signes + qu'il faut remplacer par &

Bon courage

Pascal

 

[Fab]

Merci, effectivement ça résout le problème.
aurais-tu encore la gentillesse de me dire comment faire pour qu'il n'écrive que 2 décimales.

 

[Pascal76]

Re

maformule = Format(maformule, "0.00")

@ +

Pascal