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
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