TextBox avec l'abréviation en minutes

[maval]

Bonjour

J'ai sur un Userform un TextBox limité en 3 chiffres avec se code:

Private Sub TextBox1_Change()
     Dim Valeur As Byte
    TextBox1.MaxLength = 3
    Valeur = Len(TextBox1)
End Sub

J'aimerai lui ajouter l'abréviation de "minutes" soit ex: 119 (Mns)

Je vos remercie d'avance

 

[david84]

Re : TextBox avec l'abréviation en minutes

Bonjour,
à tester :

Private Sub TextBox1_Change()
Dim N
N = Val(Me.TextBox1.Value)
Me.TextBox1.Value = IIf(InStr(Me.TextBox1.Value, " (Mns)") > 0, Me.TextBox1.Value, Me.TextBox1.Value & " (Mns)")
Me.TextBox1.SelStart = Len(N)
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  Dim N
  N = Val(Me.TextBox1.Value)
  If Len(N) > 2 Then Beep: KeyAscii = 0
End Sub

A+

 

[maval]

Re : TextBox avec l'abréviation en minutes

Bonjour David

Je te remercie sa fonctionne Nickel

Bon WE