Bonsoir à toutes et à tous, je cherche une solution pour arrondir une variable quivant le résultat de mon code. Je m'explique:
si B2*B3/1000/25 est inférieur ou égal à 1, je renseigne 1*25 en A1, si j'arrive à 1,1 je renseigne 2*25, si 2,1 je renseigne 3*25 etc...J'ai écrit ce code mais ça ne change pas comme je souhaite. Je ne sais pas si c'est clair😕
Merci de votre aide
si B2*B3/1000/25 est inférieur ou égal à 1, je renseigne 1*25 en A1, si j'arrive à 1,1 je renseigne 2*25, si 2,1 je renseigne 3*25 etc...J'ai écrit ce code mais ça ne change pas comme je souhaite. Je ne sais pas si c'est clair😕
Merci de votre aide
Code:
Option Explicit
Public Function RoundUp(ByVal vValeur As Variant, Optional ByVal iNbDecimal As Integer) As Variant
If Abs(iNbDecimal) < 1 Then RoundUp = -Int(-vValeur * 10 ^ iNbDecimal) / 10 ^ iNbDecimal
End Function
Sub test()
Dim i As Integer
If Cells(1, 2) * Cells(1, 3) / 1000 = 0 Then
Cells(1, 1).Value = 0
End If
If Cells(1, 2) * Cells(1, 3) / 1000 <> 0 Then
i = RoundUp(Cells(1, 2) * Cells(1, 3) / 1000) / 25
Cells(1, 1) = i * 25
End If
End Sub