Laisse moi rire
XLDnaute Occasionnel
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
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