Discussion :

[ilissnmiden92]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[ilissnmiden92]

Merci
Peux tu me dire ca donne quoi sur le code?
Arrondi a un chiffre apres la virgule

[eriiic]

Re,

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

eric

[ilissnmiden92]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Pourriez vous m'aider svp

[eriiic]

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