Userform : Caption et format

[Laisse moi rire]

Bonsoir a toutes et tous

Voila, je récupère une donnée résultant d'un calcul, (Problème réglé dans un autre post, merci.), donc a deux décimal aprés la virgules.

J'aimérais que celle-ci s'affiche dans le caption de l'userform, mais pour y arriver je suis obligé de faire un leger détour par ailleur....

Voila ce que je voulais faire.

USF_ForfaitMensuel.Caption = 'La mensualisation a partir ' & VarPreposition & Worksheets(TheNum).Name & ' sera de ' & Worksheets(TheNum).Range('AX33') * Val(txtSemainesProgrammees) / 12

Mais le problème ets que cela me met X chiffres aprés la virgule, donc afin d'éviter cela je passe par un TextBox que je formate.



txtTauxMensualisation = Worksheets(TheNum).Range('AX33') * Val(txtSemainesProgrammees) / 12

USF_ForfaitMensuel.Caption = 'La mensualisation a partir ' & VarPreposition & Worksheets(TheNum).Name & ' sera de ' & txtTauxMensualisation



Private Sub txtTauxMensualisation_Change()
txtTauxMensualisation = Format(txtTauxMensualisation, '#,##0.00')
End Sub

Y'a t'il pas un moyen plus direct de faire ce format pour le caption d'un UserForm ?

Merci, G'Claire

 

[myDearFriend!]

Salut Jacques,

Tu peux peut-être essayer simplement :

      With Worksheets(TheNum)
            USF_ForfaitMensuel.Caption = 'La mensualisation a partir ' _
                  & VarPreposition & .Name _
                  & ' sera de ' _
                  & Round(.Range('AX33') * Val(txtSemainesProgrammees) / 12, 2)
      End With

Cordialement,

 

[Laisse moi rire]

myDearFriend!, le forum

Merci trés beaucoup, G'Claire