Date dans Textbox

pierrejean

XLDnaute Barbatruc

• 24 Juillet 2017

• #2

bonjour castor

inspire toi de ceci

 

Pièces jointes

• castor.xlsm

  18.4 KB · Affichages: 40

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 24 Juillet 2017

• #3

salut

en complément de la réponse de pierrejean que je suis très heureux de croiser, et en s'appuyant sur son exemple :

Private Sub TextBox1_Change()
Select Case Len(TextBox1)
Case 2, 5
TextBox1 = TextBox1 & "/"
End Select
End Sub

ceci ne répond pas tout à fait à ton souhait mais c'est une piste de départ

a plus

 

Vote positif 0 Vote négatif

castor30

XLDnaute Occasionnel

• 24 Juillet 2017

• #4

Bonjour pierrejean, hervé,
Je vous remercie c'est Ok pour moi.
Jean

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 24 Juillet 2017

• #5

Bonsoir castor30
Bonsoir Le Fil , Le Forum
Juste pour pouvoir Saluer mon vieil Ami Hervé
On pourrait aussi mettre ceci :

VB:

Private Sub TextBox1_Change()
TextBox1.MaxLength = 10 'nb caracteres maxi dans textbox
etc etc
End Sub

VB:

Private Sub TextBox1_KeyPress(ByVal Touche As MSForms.ReturnInteger)
If InStr("0123456789", Chr(Touche)) = 0 Then Touche = 0 'si on tape autre chose qu'un chiffre, il est annulé
End Sub

voir ce lien peut être !!!! Lol
https://www.excel-downloads.com/threads/besoin-codes-pour-usf.20018616/page-2
Bonne fin de Soirée
Amicalement
Jean marie

 

Dernière édition: 24 Juillet 2017

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 25 Juillet 2017

• #6

Bonjour

Je me suis amusé à traiter la saisie de nombres dans un contrôle TextBox (Usf) en pensant aux maladroits (comme moi) qui cherchent les bouton du clavier et aux malchanceux (comme ÔÒ ) qui ont des problèmes avec celui-ci. Mon clavier numérique virtuel est traité avec un Module de classe.

J’ai tout regroupé mais il est facile d’isoler chaque cas.

Je n’ai pas eu le temps de tester cela en long et en large donc si…, vous savez où me trouver.

 

Pièces jointes

• Nombre (entier, décimal, phone, date) avec UsF.xlsm

  27.1 KB · Affichages: 35

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 25 Juillet 2017

• #7

Bonjour à toutes et à tous,

Si... à dit:

…, vous savez où me trouver.

Cliquez pour agrandir...

Toutes mes excuses, castor30, pour cette intervention qui n'a d'autre but que de préciser les coordonnées téléphoniques et les tarifs de Si !

​

A bientôt

​

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 25 Juillet 2017

• #8

re

Merci ÔÒ pour la pub mais, moi qui voulais ne pas être reconnu, c’est râpé ! Je ne suis quand même pas blanc de rage !

Après mon intervention chez toi, tu aurais pu aussi donner mes coordonnées chez HP (Hautes Parlottes).

 

Vote positif 0 Vote négatif