vba : report des formats des chiffres dans l'usf

[miguelangelo]

Bonjour à tous,

dans le fichier joint, un usf me permet de visualiser les infos concernant une occurence.

pour un taux, je souhaite qu'il me reporte 19.6% plutot que 0.196
pour un montant je souhaite du 1000 € plutot que 1000 tout court

l'identifiant de mon occurence est ce que j'appelle un CIA.

Public Sub cia_Change()

Dim c, g

For Each c In Range("cia")
If c = cia Then
region = c.Offset(0, 1)
siret = c.Offset(0, 2)
adresse = c.Offset(0, 3)
cp = c.Offset(0, 4)
ville = c.Offset(0, 5)
commentaire = c.Offset(0, 9)
date_debut_act = c.Offset(0, 24)
loyer = c.Offset(0, 7)
charges = c.Offset(0, 15)
taxes = c.Offset(0, 17)
caut_ant = c.Offset(0, 10)
tva_loyers = c.Offset(0, 8)
tva_charges = c.Offset(0, 16)
tva_taxes = c.Offset(0, 18)
n_tiers = c.Offset(0, 13)


Merci à vous ...

End If
Next c

fin:
End Sub

 

[MathildeQ]

Re : vba : report des formats des chiffres dans l'usf

Bonjour,
pour mettre ton taux en format 19.6% :

c.Offset(0, 17) = Format(taxes.Text, "0.00%")

Pour le sigle euro je sèche.

Cordialement
Mathilde