Ma macro arrondi le calcul comment l'en empêcher?
Bonsoir,
J'ai crée une macro sous Excel qui marche très bien mais le problème est que celle-ci arrondi tous les calculs or il me faudrait plus de précision.
Savez vous comment faire pour l'empêcher d'arrondir? Que dois je rajouter dans mon programme?
Je vous mets ci-dessous mon programme.
Merci de votre aide
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
| Sub PUM()
Range("a1").Activate
While ActiveCell <> ""
ActiveCell.Offset(1, 0).Activate
Wend
MaLigne = ActiveCell.Row
For i = 1 To MaLigne
If Sheets("Feuil1").Cells(i + 1, 2) > 0 Then
Sheets("Feuil1").Cells(i + 1, 5).Value = (recherche(Sheets("Feuil1").Cells(i + 1, 4).Value)) * Sheets("Feuil1").Cells(i + 1, 3).Value \ Sheets("Feuil1").Cells(i + 1, 2).Value
Else
Sheets("Feuil1").Cells(i + 1, 5) = Probleme
End If
Next
End Sub |
Code:
1
2
3
4
5
6
7
8
9
| Function recherche(ref)
For i = 1 To 15
If (ref = Sheets("Feuil2").Cells(i + 1, 1)) Then
resultat = Sheets("Feuil2").Cells(i + 1, 2)
End If
Next
recherche = resultat
End Function |
