définir variable - un chiffre après la virgule

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

J'ai un problème avec ma macro,
Ce code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub Worksheet_ChangementB2(ByVal Target As Range)
    Dim KeyCells As Range
    Dim resultat As Single
 
    Set KeyCells = Range("B2")
     If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
    If Range("B1").Value <> "" Then
 
        If Range("B2").Value < Range("B1").Value - Range("B3").Value And Range("B2").Value <= 10 Then
            resultat = Range("B1").Value - Range("B2").Value - Range("B3").Value
           MsgBox ("il vous reste " & resultat & " jours")
 
 
        End If
        End If
       End If
End Sub
Private Sub Worksheet_ChangementB3(ByVal Target As Range)
 
    Dim KeyCells As Range
    Dim resultat As Single
 
    Set KeyCells = Range("B3")
     If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
    If Range("B1").Value <> "" Then
 
        If Range("B3").Value < Range("B1").Value - Range("B2").Value And Range("B3").Value <= 10 Then
            resultat = Range("B1").Value - Range("B2").Value - Range("B3").Value
           MsgBox ("il vous reste " & resultat & "  jours")
 
 
        End If
         End If
          End If
        End Sub

devrait me permettre de générer un msg box pour me calculer l'écart de saisie (cf résultat dans le code)
sauf que dans l'exemple que je vous donne, j'ai bien saisi dans ma B2 et B3 des valeurs correspondant au cumul de ma B1, donc je ne devrai pas avoir de msg box

là j'ai un écart bizarre qui sort et je ne sais pas à quoi ca correspond

est ce que c'est un problème du format de la variable?
ou je dois définir les décimales de mon résultat?

merci de votre aide

07/04/2015, 19h05
eriiic

Bonjour,

Il y a souvent des pertes de précisions lors des conversions décimales/binaires.
Si 4 décimales te suffisent en précision, type tes variables en Currency (entier avec virgule fixe, donc sans perte)
Sinon arrondi avec Round()

eric
07/04/2015, 19h34
ilissnmiden92

Merci
Peux tu me dire ca donne quoi sur le code?
Arrondi a un chiffre apres la virgule
07/04/2015, 20h25
eriiic

Re,

Ecrit Round dans ton code, fait F1 dessus et dis ce que tu ne comprends pas.

eric
08/04/2015, 11h38
ilissnmiden92

1 pièce(s) jointe(s)

Bonjour,

Comment définir l'arrondi de mon résultat

Code:

resultat = Range("B1").Value - Range("B2").Value - Range("B3").Value

dois je définir l'arrondi pour chaque cellule:
Range (B1)
Range (B2)
Range (B3)

ou définir l'arrondi pour le "resultat"

Voici le fichier excel pour démo:

Suite aux valeurs saisies dans ma B2 et B3, je ne dois pas avoir de Msg box, suite à ma condition et j'en ai pourtant un

Code:

If Range("B2").Value < Range("B1").Value - Range("B3").Value And Range("B2").Value <= 10 Then

Pourriez vous m'aider svp
08/04/2015, 15h41
eriiic

Il faut arrondir les résultats d'opérations.
eric