Récupérer un nbre à 2 chiffres apres la , ds MsgBox

[egman]

Bonjour à tout le Forum,

Encore un petit souci sur la récupération d'une valeur dans un MsgBox.
Dans une cellule de ma feuille j'ai une cellule du style 647,32 et dans mon MsgBox j'obtiens 647 (je n'ai plus les 2 chiffres derriere la virgule)
Je pensais qu'en utilisant le format .TXT et non pas .VALUE on récupérait non pas la valeur mais que le format de la cellule sous forme de texte....

Voici mon petit bout de code.

Private Sub CommandButton1_Click()
Dim Plage As Range
Dim Reponse As Integer

Sheets("COMPTES").Select
Set Plage = Range(Range("E65536").End(xlUp), Range("E2"))
Plage.AutoFilter Field:=1, Criteria1:="=", Operator:= _
xlAnd, Criteria2:="<>""R"

Reponse = Range("K2").Text 'Value

MsgBox "La différence est de => " & Reponse & " €"
Selection.AutoFilter
Range("J1").Activate
End Sub

D'avance MERCI à tous pour votre aide

 

[mromain]

Re : Récupérer un nbre à 2 chiffres apres la , ds MsgBox

Bonjour egman


Tu peux soit :

> modifier la déclaration de ta variable
Dim Reponse As String
et récupérer le texte
Reponse = Range("K2").Text

> modifier la déclaration de ta variable
Dim Reponse As Double
et récupérer la valeur
Reponse = Range("K2").Value



Vu que tu avais déclaré ta variable As Integer, cette ligne
Reponse = Range("K2").Text
mettait dans Reponse "la conversion en entier du texte de la cellule K2".

a+

 

[Pierrot93]

Re : Récupérer un nbre à 2 chiffres apres la , ds MsgBox

Bonjour,

si tu utilises la propriété "text" de la cellule, modifie aussi le type de variable :

change :

Dim Reponse As Integer

en :

Dim Reponse As String

bonne journée
@+

Edition : bonjour Romain

 

[egman]

Re : Récupérer un nbre à 2 chiffres apres la , ds MsgBox

Bonjour mromain et Pierrot93,

effectivement les 2 solutions fonctionnent rés bien.

En fait cela venait de la déclaration de la variable....je m'étais focalisé sur le format à obtenir et non sur l'origine de la "bonne" déclaration.

Merci à vous Bonne journée