Fonction arrondi VBA à 2 digits

Fermé

simdup Messages postés 13 Date d'inscription lundi 17 novembre 2014 Statut Membre Dernière intervention 27 février 2015 - 13 janv. 2015 à 15:23
Nenette - 9 janv. 2023 à 15:49

Bonjour,
J'aimerais créer une fonction qui arrondi une valeur à 2 digit , par exemple :
pour 2.354 il me donne : 2.3
pour 0.002365 il me donne : 0.0023
Si quelqu'un à une idée d'une solution je suis preneur.
Merci par avance.

Bonne journée

A voir également:

Vba arrondi
Vba arrondi supérieur ✓ - Forum VB / VBA
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Arrondi 0.5 supérieur ou inférieur ✓ - Forum Excel
Vba range avec variable ✓ - Forum VB / VBA
Arrondi javascript ✓ - Forum Javascript

3 réponses

Réponse 1 / 3

Whismeril Messages postés 19028 Date d'inscription mardi 11 mars 2003 Statut Non membre Dernière intervention 24 avril 2024 931
13 janv. 2015 à 16:31

Bonjour,

tout est incohérent dans ton message, sit tu arrondies à 2 digits alors il y a 2 chiffres dérrière la virgule.

Dans ton premier exemple il y en a 1 et dans le second 4.

Deplus tes deux exemples montrent, non un arrondi ou le n+1ieme digit vaut 5 ou plus alors l'arrondis est au supérieur:
2.354 => 2.4
0.002365 => 0.0024...

Ce que tu montres c'est tronquer.

DOnc formule bien ta question pour avoir une réponse qui te convienne.
En attendant tu peux regarder Round() et Trunc(). (Sais plus si elles existent en VBA)

simdup Messages postés 13 Date d'inscription lundi 17 novembre 2014 Statut Membre Dernière intervention 27 février 2015
14 janv. 2015 à 13:24

oui en effet ma question n'est pas bien poser, je m'en excuse.
En fait il faudrait que je crée une fonction qui me donne un nombre avec seulement 2 chiffre significatif.
Donc pour : 2.354 => 2.4
0.002365 => 0.0024

Voila j'espere que ma question est bien formulée
Merci par avance

Réponse 2 / 3

Whismeril Messages postés 19028 Date d'inscription mardi 11 mars 2003 Statut Non membre Dernière intervention 24 avril 2024 931
14 janv. 2015 à 13:57

Bon déjà on parle bien d'arrondi.
Maintenant, 2 chiffres significatifs ça veut dire 2 chiffres derrière la virgule.
Ce n'est toujours pas ce que montrent tes deux exemples.

On va essayer.....

Function ArrondiSimdup(Valeur As Double)
    Dim posPoint As Integer
    Dim nbrDecimales As Integer
    Dim val As String
    val = CStr(Valeur) 'on passe en string sinon len() ne donne pas le bon résultat

    posPoint = InStr(val, ".") 'à quel carractère se trouve le point
    nbrDecimales = Len(val) - posPoint 'nombre de chiffres derrière le point

    ArrondiSimdup = Round(Valeur, nbrDecimales - 2) 'arrondi à 2 chiffres de moins qu'existant
End Function

Par contre je n'ai pas traité le cas ou un nombre a moins de 2 décimlaes

Nenette
9 janv. 2023 à 15:49

Bonjour,

Je ne suis pas d'accord avec Whismeril. la reformulation de simdup est bonne. 2 chiffres significatifs ne signifient ABSOLUMENT PAS 2 décimales. Ce sont des choses TOTALEMENT opposées!

Discussions similaires

Valeur aléatoire avec 2 ou 3 décimales

Publipostage: Impossible enlevé les décimales

Ajuster le format de cellule en nombre décimal en VBA

Excel : Arrondir ou tronquer à 3 chiffres après la virgule

Arrondir en VBA

Enlever 2 décimales dans une fusion Word avec un fichier Excel

Discussions similaires

Newsletters