Format données dans 1 textbox

[SPEA]

Bonjour,

Je cherche à forcer le format des données dans les textbox d'un USF pour
faciliter la saisie des données.

Le textbox1 ne doit contenir qu'une date au format jj/mm/aa et les autres textbox ne contiennent que des valeurs numériques.

Toute autre valeur ne dois pas pouvoir être saisie à ces emplacements.

 

[BOISGONTIER]

Re : Format données dans 1 textbox

Bonjour,

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
  If Not IsDate(Me.TextBox1) Then
    MsgBox "Saisir une date!"
    Cancel = True
  End If
End Sub

JB
Formation Excel VBA JB

 

[SPEA]

Re : Format données dans 1 textbox

OK merci pour la réponse.

Est il possible de positionner le curseur automatiquement sur la textbox1 de manière à ne pas être obligé de cliquer dessus avant de saisir ?

 

[Luki]

Re : Format données dans 1 textbox

Bonjour le fil,

pour activer le text box1:

Sub Affiche_USF()
UserForm1.Show
UserForm1.TextBox1.SetFocus
End Sub

Bonne journée

Complément d'infos:

Tu peux aussi jouer sur les propriétés "TabIndex" de tes textBoxes dans la fenêtre des propriétés. Dans ton cas, il était à 11 pour le text box1 et incrémenté pour les suivants. En le passant à 1, le code ci-dessus est inutile.

Quand tu crées ton userform, le Tab index de chaque objet est incrémenté à sa création, c'est le cas aussi pour les labels. Si tu crées le label en premier, il aura ppour tab index 1. etc...

A+

 

[SPEA]

Re : Format données dans 1 textbox

Dacocac, merci pour ta réponse trés complète...

Bonne journée.