Formule dans textbox dans multipage

Bonjour à tous,

J'ai, dans la feuille 5 de mon multipage1 un textbox16 dans laquelle je voudrai y mettre une formule. Cette formule est égale à la valeur de la textbox15 multiplié par 50.

Pourriez vous m'aider svp car je n'y arrive pas.

Bonjour,

Un truc tout simple sur l'évènement "Change" du "TextBox15" sinon, voir avec KeyPress et faire un "Select Case" sur "KeyCode" :

Private Sub textbox15_Change()

    'remplace le point par la virgule, adapter...
    textbox15.Text = Replace(textbox15.Text, ".", ",")

    On Error Resume Next
    textbox16.Text = textbox15.Text * 50

End Sub

Hervé.