VBA, arrondi 2 décimales après la virgule
Bwabwa
-
dd -
dd -
Bonjour,
j'ai créé un userform dans lequelle j'insère des données par ce moyen :
le pb est que certains prix sont trop longs, avec plusieurs chiffres après la virgule..
je souhaterais afficher ces prix, arrondis et sans décimales.
Comment ça marche ?
j'ai pensé à
1 - arrondir en appliquant la fonction arrondir sur les 3 colonnes de prix concernées, puis
2 - insérer les valeurs dans les textbox correspondantes en utilisant le code ci dessus, mais il faudrait répérer la position de la prenthèse et ne recopier que ce qu'il y a avant celle-ci.
j'ai déja réfléchit aux Len Left IsString..mais je suis débutant VBA, c'est compliqué, pourriez vous m'aider s'il vous plait ?
merci d'avance
j'ai créé un userform dans lequelle j'insère des données par ce moyen :
prix.Text = Worksheets(1).Range("V" & numLigCourante).Value & " €"
le pb est que certains prix sont trop longs, avec plusieurs chiffres après la virgule..
je souhaterais afficher ces prix, arrondis et sans décimales.
Comment ça marche ?
j'ai pensé à
1 - arrondir en appliquant la fonction arrondir sur les 3 colonnes de prix concernées, puis
2 - insérer les valeurs dans les textbox correspondantes en utilisant le code ci dessus, mais il faudrait répérer la position de la prenthèse et ne recopier que ce qu'il y a avant celle-ci.
j'ai déja réfléchit aux Len Left IsString..mais je suis débutant VBA, c'est compliqué, pourriez vous m'aider s'il vous plait ?
merci d'avance
2 réponses
-
Bonsoir,
Est-ce que cette solution te convient :prix.Text = Round(Worksheets(1).Range("V" & numLigCourante).Value & " €", 2)
@+ -
Bonjour,
tu peux aussi formater, tous les formats personnalisés sont utilisables.
ex pour 2 chiffres après la virgule :
prix = Format([A1], "0.00 €")
ou en entier :
prix = Format([A1], "0 €")
eric
