XL 2016 affichage décimal

marc.gilliand à dit:

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.

Cliquez pour agrandir...

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

Jacky67 à dit:

Bonjour,
Comme ceci peut être

Code:

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

Cliquez pour agrandir...

marc.gilliand à dit:

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

Cliquez pour agrandir...

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.

Cliquez pour agrandir...

marc.gilliand à dit:

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

Cliquez pour agrandir...

marc.gilliand à dit:

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

Cliquez pour agrandir...

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