VBA, arrondi 2 décimales après la virgule [Fermé]

Signaler
-
 dd -
Bonjour,

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

Messages postés
918
Date d'inscription
samedi 21 novembre 2009
Statut
Membre
Dernière intervention
20 mars 2013
284
Bonsoir,
Est-ce que cette solution te convient :
prix.Text = Round(Worksheets(1).Range("V" & numLigCourante).Value & " €", 2)

@+
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Bonjour, exusez moi de donner des nouvelles aussi tardivement.
Je viens de tester la solution proposée et elle fonctionne parfaitement bien.
Je vous remercie ! :)
Merci pour ce bout de code!!!!
Messages postés
23887
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
22 février 2021
6 659
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
Bonjour, =D cette solution aussi marche =D merci !
mais je vais utiliser le "round" pluto car il arrondi.
Mais merci qd mm.