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
A voir également:

2 réponses

Réponse 1 / 2
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
Merci

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

CCM 65492 internautes nous ont dit merci ce mois-ci

Signaler

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 ! :)
Signaler

Merci pour ce bout de code!!!!
Réponse 2 / 2
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
Signaler

Bonjour, =D cette solution aussi marche =D merci !
mais je vais utiliser le "round" pluto car il arrondi.
Mais merci qd mm.
Posez votre question