Calcul dans un "Userform"

Bonjour le forum,

j'ai créé un userform dans lequel j'aimerai calculer une surface si on introduis la largeur et la longueur.

J'ai donc créé un userform (m²) avec (entre autre) 3 textbox (Lgt, Larg et Surf) et j'ai repris un code trouvé sur le net que j'ai essayé d'adapter.

Apparemment je m'y prend comme une bille...

Voici le code :

Private Sub Lgt_AfterUpdate()
   If m².Lgt.Value = "" Or m².Larg.Value = "" Then Exit Sub
   m².Surf = CDec(m².Lgt) * CDec(m².Larg)
End Sub

Private Sub Larg_AfterUpdate()
   If m².Lgt.Value = "" Or m².Larg.Value = "" Then Exit Sub
   m².Surf = CDec(m².Lgt) * CDec(m².Larg)
End Sub

Private Sub Lgt_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   'TRANSFORMER LE POINT PAR UNE VIRGULE
   If KeyAscii = 46 Then KeyAscii = 44
   If InStr("1234567890,-", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Private Sub Larg_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   'TRANSFORMER LE POINT PAR UNE VIRGULE
   If KeyAscii = 46 Then KeyAscii = 44
   If InStr("1234567890,-", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Private Sub Surf_Change()
   m².Surf = Format(m².Surf.Value, "# ##0.00")
End Sub

Lorsque je rentre une valeur dans Lgt ou Larg j'ai une erreur :

Pourriez-vous m'expliquer ce que je fait mal svp

Bonjour

Un exemple de ton fichier serait bien utile pour la solution

Crdlt

Bonjour Joco7915,

Voici une version du fichier.

Le userform n'est pas encore dans le fichier mais bien au niveau du code. (d'ailleur, dans le même mouvement, comment via un bouton peut-on appeler le userform?)

Re bonjour

Un exemple voir les codes et propriétés

Passes en résolu si cela te convient

Je viens de testes en vitesse et ca a l'air d'être bien. Merci beaucoup Joco7915