textbox numerique

[waspy59]

bonjour,

tout est dit dans le titre.... j'ai une textbox sur une form dans laquelle on doit saisir un date sous la forme 'DD/MM/YYYY'

Comment faire pour permettre uniquement l'écriture de chiffres dans la textbox?
Pour l'insertion des '/' pas de probleme avec les 'IF' et 'len' mais pour empecher d'ecrire autrement qu'en chiffre je ne sais pas faire :ermm:

 

[Eric C]

Bonsoir le forum
Bonsoir waspy59

J'ai repris un très bon code de Ti (bonsoir Ti) pour te donner ceci que tu adapteras à ton USF.

Private Sub TextBox1_Change()
Dim Texte As String
  Texte = TextBox1.Text
  Select Case Len(Texte)
    Case 2, 5
      Texte = Texte & '/'
  End Select
  TextBox1.Text = Texte
End Sub

Private Sub TextBox1_Enter()
TextBox1.Text = ''
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox1
If .Value = '' Then Exit Sub

If Not IsDate(.Value) Then
.SelStart = 0
.SetFocus
.SelLength = Len(.Text)
Cancel = True


Else
  TextBox1.Text = Format(TextBox1.Text, 'dd/mm/yyyy')
  End If
    End With

End Sub

Bon ouikand à toutes & à tous 😉

 

[waspy59]

merci ca roule