valeur décimal dans msgbox

[bbobb]

Bonjour le forum,
J'ai une msgbox qui reprend les valeurs des cellules.
Je n'arrive pas a avoir la valeur exacte, la msgbox reprend la valeur "arrondi" (2 au lieu de 1.8 par ex).

Comme je ne suis pas sur d'être clair, je joins un petit fichier...

Bonnes fêtes de pâques à tous
Bbobb

 

[Staple1600]

Re : valeur décimal dans msgbox

Bonjour


En déclarant en As Double à la place de As Integer, cela fonctionne comme tu le souhaites.

Sub test()
Dim Rep As Integer
                       
        Dim H15200 As Double
            H15200 = Range("B9").Value
        Dim H15100 As Double
            H15100 = Range("B10").Value
        Dim H1550 As Double
            H1550 = Range("B11").Value
        Dim H1520 As Double
            H1520 = Range("B12").Value
        Dim H1510 As Double
            H1510 = Range("B13").Value
        Dim H15Total As Double
            H15Total = Range("B14").Value
                        
Rep = MsgBox("Vous avez saisi :" & Chr(10) & _
             "" & Chr(10) & _
             "" & H15200 & " pièces de 2 €" & Chr(10) & _
             "" & H15100 & " pièces de 1 €" & Chr(10) & _
             "" & H1550 & " pièces de 0.50" & Chr(10) & _
             "" & H1520 & " pièces de 0.20 €" & Chr(10) & _
             "" & H1510 & " pièces de 0.10 €" & Chr(10) & _
             "" & Chr(10) & _
             "Le montant total est de " & H15Total & " €", vbYesNo, "")
    If Rep = vbNo Then Range("B9").Select
    If Rep = vbYes Then
    End If
End Sub

PS: Pour info: extrait de l'aide VBA

MsgBox, fonction
Affiche un message dans une boîte de dialogue, attend que l'utilisateur clique sur un bouton, puis renvoie une valeur de type Integer qui indique le bouton choisi par l'utilisateur.

 

[bbobb]

Re : valeur décimal dans msgbox

Bonjour,
Super !

Merci

Bbobb