Discussion :

[lilapot]

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 :

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
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 :

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

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

[PMO2017]

Bonjour,

Essayez de changer, dans l'instruction suivante, l'opérateur arithmétique \ par /

Code :

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

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

ce qui donnerait

Code :

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

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

[lilapot]

Merci beaucoup le problème venait en effet de là!

Bonne soirée