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:
Merci de votre aide
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
Partager