format mètre cube

[nrdz83]

Bonjour à vous et bon dimanche,
voila je cherche à inscrire aprés mes données mètre cube (m3) j'utilise ce code

Private Sub Txt_6_Change()
Txt_6 = Format(Replace(Txt_6, " m3", ""), "#### m3")
End Sub

Ce que je n'arrive pas c'est à mettre le trois en exposant . Est ce possible?


Par avance merci pour vos lumières

Amitiés

 

[prorudess]

Re : format mètre cube

Bonjour,

Ma réponse est peut être bête mais est-ce que cela fonctionne ?

Private Sub Txt_6_Change()
Txt_6 = Format(Replace(Txt_6, " m³", ""), "#### m³")
End Sub

 

[nrdz83]

Re : format mètre cube

Bonjour prorudess non ta péponse n'est pas bête c'est ce que je cherche à faire mais je n'arrive pas à mettre la police en exposant.
Tu le fais dans excel et le copie ensuite dans le vba?

Merci

 

[Si...]

Re : format mètre cube

salut

et avec le caractère de code 179 ?

Private Sub Txt_6_Change()
  Txt_6 = Format(Replace(Txt_6, " m³", ""), "#### m" & Chr(179))
End Sub

Si... tu changes d'évènement, tu peux faire court

Private Sub Txt_6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Txt_6 = Format(Txt_6, "#### m" & Chr(179))
End Sub