Discussion :

[goby45]

Bonjour,

Je fais un calcul avec les cellules de ma feuille excel en vba, jusque là tout va bien mais lorsque je renvoi le resultat dans la cellule où je veux qu'il apparaisse, j'obtient dans la cellule: SFr. MonRésultat

Je ne sais ni d'où ça vient, ni comment l'enlever...

Voici mon 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
36
37
38
39
40
41
42
43
44
45
Sub essai()
Dim t As Currency
Dim i As Long
Dim lastrow As Long
lastrow = ThisWorkbook.Worksheets(1).Range("E65536").End(xlUp).Row
If Range("D" & lastrow - 3).Value = "L2" Then
i = 4200
Else:
    If Range("D" & lastrow - 3).Value = "L3" Then
    i = 3900
    Else:
        If Range("D" & lastrow - 3).Value = "L6" Then
        i = 4200
        Else:
            If Range("D" & lastrow - 3).Value = "L7" Then
            i = 6000
            Else:
                If Range("D" & lastrow - 3).Value = "L8" Or Range("D" & lastrow - 3).Value = "L9" Then
                i = 5100
                Else:
                    If Range("D" & lastrow - 3).Value = "L10" Then
                    i = 7500
                    Else:
                        If Range("D" & lastrow - 3).Value = "L11" Then
                        i = 8820
                        Else:
                            If Range("D" & lastrow - 3).Value = "D13" Or Range("D" & lastrow - 3).Value = "D14" Then
                            i = 3000
                            Else:
                                If Range("D" & lastrow - 3).Value = "S4" Then
                                i = 3600
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If
End If
 
t = Round((i * Range("N" & lastrow - 3).Value - Range("V" & lastrow - 3).Value) / i, [2])
 
ThisWorkbook.Worksheets(1).Range("M" & lastrow - 3).Value = t
End Sub

Merci de votre aide

[rjamin]

Bonjour,

Un débogage par l'exécution Pas à Pas (F8) de la procédure permettrait sans doute de voir à quel moment t prend la valeur affichée et voir pourquoi il prend cette valeur.

[goby45]

Oui mais il n'y a qu'un seul calcul sur t, et un msgbox apres ce calcul me montre que la valeur de t est bien la bonne.

Je ne comprend pas

[Jean-Philippe André]

salut,
juste dans un soucis d'optimisation et de facilite de lecture, je te propose de passer par un structure Select Case a la place de toutes les briques If Else imbriquees. :

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
Sub essai()
Dim t As Currency
Dim i As Long
Dim lastrow As Long
lastrow = ThisWorkbook.Worksheets(1).Range("E65536").End(xlUp).Row
Select Case Range("D" & lastrow - 3).Value 
     Case "L2" : i = 4200
     Case "L3" : i = 3900
     Case "L6" : i = 4200
     Case "L7" : i = 6000
     Case "L8" Or "L9" :   i = 5100
     Case "L10" : i = 7500
     Case "L11" : i = 8820
     Case "D13" Or "D14" :  i = 3000
     Case "S4" : i = 3600
End Select
 
t = Round((i * Range("N" & lastrow - 3).Value - Range("V" & lastrow - 3).Value) / i, [2])
 
ThisWorkbook.Worksheets(1).Range("M" & lastrow - 3).Value = t
End Sub

Sinon, pourquoi Currency comme type de variable ? Tu as besoin de beaucoup de precision ??

[goby45]

Oui en effet c'est beaucoup plus clair merci.

J'ai besoin d'une présision d'au moins 3 chiffres apres la virgule, tu propose un autre type de variable ?

[Jean-Philippe André]

Ok pour Currency,
mais si tu souhaites 3 chiffres apres la virgule, pourquoi arrondis-tu a 2 dans ta formule ?

mais sinon, as-tu un format number dans ta cellule resultat ?

[goby45]

Non !!
Merci c'était ça , pourquoi faire simple quand on peut faire compliqué !
Quel boulet

[Jean-Philippe André]

Si tout est resolu, pense a mettre le tag