Arrondir au 9

Function ArrondiA9(Valeur As Double, NbreChiffreApresVirgule As Integer)
    'on commence par tronquer au monbre de decimales choisie - 1
    Dim tronq  As Double
    tronq = Tronquer(Valeur, NbreChiffreApresVirgule - 1)
    'puis on ajouter  9 * 10^-NbreChiffreApresVirgule
    ArrondiA9 = tronq + 9 / 10 ^ NbreChiffreApresVirgule
End Function

Function Tronquer(Valeur As Double, NbreChiffreApresVirgule As Integer) As Double
    'trunc() n'existe pas en VBA alors on la refait
    Dim entier As Integer
    entier = Int(Valeur * 10 ^ NbreChiffreApresVirgule) 'si j'ai 0.123456789 et que je veut 4 chiffres, alors je multiplie par 10^4 => 1234.56789 et en prends la valeur entière => 1234
    Tronquer = entier / 10 ^ NbreChiffreApresVirgule 'ensuite je redivise pas 10^4
End Function

Function Arrondi_Au_9_Sup(Cel As Range) As Double
 Arrondi_Au_9_Sup = CDbl(Left(Cel.Value, InStr(1, Cel.Value, ",") + InStr(1, Cel.Value, ".") + 1) & 9)
End Function

Function Arrondi_Au_9_Sup(Cel As Range, NbDecimales As Byte) As Double
 Arrondi_Au_9_Sup = CDbl(Left(Cel.Value, InStr(1, Cel.Value, ",") + InStr(1, Cel.Value, ".") + NbDecimales - 1) & 9)
End Function