Question : Résultat d'affichage de vb d'Excel d'un varable dans un msgbox

Bonjour experts,

I essayant d'écrire un macro (voir ci-dessous) pour calculer le pourcentage de l'accomplissement. J'obtiens compile des erreurs avec l'aide de demande de fonction de msgbox avec la syntaxe. Remercier de votre

Dim OpenDisc de help.

Sub InspectionCompletion () comme Double
Dim PagesBOW comme Double
Dim InspCom comme Double
Dim TotalDisc comme Double

OpenDisc = CDbl (InputBox (« inscrire combien d'articles ouverts sont sur l'ARC : "))
PagesBOW = CDbl (InputBox (« introduire le nombre de pages d'ARC : "))
TotalDisc = (PagesBOW) * 8
InspCom = (((TotalDisc) -) (d'OpenDisc/(TotalDisp)) *)
MsgBox = ((InspCom), le vbDefaultButton1, « Percentage d'accomplissement d'inspection est :  », o)
End Sub
class= de

Réponse : Résultat d'affichage de vb d'Excel d'un varable dans un msgbox

ou employant le format

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 :

InspectionCompletion secondaire () Faible OpenDisc en tant que double Faible PagesBOW en tant que double Faible InspCom en tant que double Faible TotalDisc en tant que double OpenDisc = CDbl (InputBox (« inscrire combien d'articles ouverts sont sur l'ARC : ")) PagesBOW = CDbl (InputBox (« introduire le nombre de pages d'ARC : ")) TotalDisc = (PagesBOW) * 8 InspCom =) (de TotalDisc - d'OpenDisc/TotalDisc Pourcentage de MsgBox le « de l'accomplissement d'inspection est :  » Et format (InspCom, « pour cent ») Sous-marin d'extrémité