[VBA]Changement de format sans demande

Etienne2323

XLDnaute Impliqué

• 30 Août 2011

• #2

Re : [VBA]Changement de format sans demande

Salut Kiseki,
tu n'as qu'à ajouter ceci :

Code:

fd.Cells(ligne, 3) = Format(Round(main.Range("C11"), 2),"le format désiré")

Sinon, tu peux également ajouter une ligne et lui dicter le format :

Code:

fd.Cells(ligne, 3).NumberFormat = "Format désiré"

Cordialement,

Étienne

 

Vote positif 0 Vote négatif

K

Kiseki

XLDnaute Occasionnel

• 30 Août 2011

• #3

Re : [VBA]Changement de format sans demande

Bonjour Etienne,


Merci mais je voudrait le format comptabilité, si j'entre ce format il n'aime pas avec format().

Il devrait y avoir une solution sans devoir lui donner le format, non ? Je n'ai pas trop envie non plus de recopier le format de la donnée juste au dessus (ensemble de données aux format comptabilité)

 

Vote positif 0 Vote négatif

Etienne2323

XLDnaute Impliqué

• 30 Août 2011

• #4

Re : [VBA]Changement de format sans demande

Salut Kiseki,
chez moi, le format comptabilité est le suivant :

Code:

"_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"

Ainsi, la ligne suivante devrait faire le travail :

Code:

fd.Cells(ligne, 3) = Format(Round(main.Range("C11"), 2),"_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)")

À tester bien sûr.

Tu peux essayer avec l'enregistreur de macro. Il te donnera l'écriture exacte pour le format souhaité.

Cordialement,

Étienne

 

Vote positif 0 Vote négatif

K

Kiseki

XLDnaute Occasionnel

• 1 Septembre 2011

• #5

Re : [VBA]Changement de format sans demande

Bonjour Etienne,


Merci je ne pensait plus à l'enregistreur de macro.

Et donc [RANGE].style = "Currency"


Car il n'apprécie pas plusieurs guillemet dans un format(), et sans ça le fait pas non plus.

 

Vote positif 0 Vote négatif