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

Bwabwa -  
 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

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

@+
3
Bwabwa
 
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 ! :)
0
dd
 
Merci pour ce bout de code!!!!
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
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
2
Bwabwa
 
Bonjour, =D cette solution aussi marche =D merci !
mais je vais utiliser le "round" pluto car il arrondi.
Mais merci qd mm.
0