XL 2016 affichage décimal

[marc.gilliand]

bONJOUR,
Quel est le code pour afficher 0.33 0.45, etc....
Voici mon bout de code

TextBox55.Text = Format(Sheets("USF12").Cells(16, 4).Value, "#,###.## CHF")

merci de votre aide.

 

[Jacky67]

bONJOUR,
Quel est le code pour afficher 0.33 0.45, etc....
Voici mon bout de code

TextBox55.Text = Format(Sheets("USF12").Cells(16, 4).Value, "#,###.## CHF")

merci de votre aide.

Bonjour,
Comme ceci peut être

TextBox55.Text = Format(Sheets("USF12").Cells(16, 4).Value, "#,##0.00 CHF")

 

[marc.gilliand]

Bonjour,
Comme ceci peut être

TextBox55.Text = Format(Sheets("USF12").Cells(16, 4).Value, "#,##0.00 CHF")

Merci c'est col. Ça marche. Autre question comment mettre des couleurs différentes sur un multipage d'un userform possédant des optionsbuttons ?

 

[Etoto]

Hello,

Merci c'est col. Ça marche. Autre question comment mettre des couleurs différentes sur un multipage d'un userform possédant des optionsbuttons ?

Crée un nouveau fil pour cela vu que c'est une autre question, c'est demandé par la charte dans le point 2.3 :

Le titre de la question doit être clair et comporter explicitement le sujet de la demande. Cela sous-entend qu’une nouvelle demande fait l’objet d’un nouveau fil.

Cordialement,

@ +

 

[marc.gilliand]

Merci c'est col. Ça marche. Et pour faire afficher 0.00, car avec le bout de code que vous m'avez donné, lorsque j'ai une valeur à 0, XL m'affiche .00 CHF

 

[Etoto]

Re,

Ton post est vide

 

[marc.gilliand]

Et pour faire afficher 0.00, car avec le bout de code que vous m'avez donné, lorsque j'ai une valeur à 0, XL m'affiche .00 CHF

 

[Etoto]

Et pour faire afficher 0.00, car avec le bout de code que vous m'avez donné, lorsque j'ai une valeur à 0, XL m'affiche .00 CHF

Re,

Il suffit de remplacer par

_-* #'##0.00 CHF_-;-* #'##0.00 CHF_-;_-* "-"?? CHF_-;_-@_-