XL 2010 prédéfinir un modèle de saisir des dates dans un textbox

djedjeto

XLDnaute Junior
salut cher ami j'ai un gros souci et je crois que je pourrais avoir la solution avec vous.
je dispose d'un formulaire qui contient des textbox a partir desquels je veux saisir des dates en excel. mon problème est que je veux prédéfinir déjà dans chaque textbox, un modèle type du format de saisie des dates par exemple __/__/____/ (jj/mm/yyyy/ )°dans les textbox. dans chaque textbox j'aurai deja ce __/__/____/ qui permettra de faire juste la saisie. comment le faire?
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Djedjeto,
Essayez cela :
VB:
textbox1.value=format(textbox1.value,"dd/mm/yyyy")
 

GALOUGALOU

XLDnaute Accro
bonjour djedjeto bonjour le forum
je ne répond pas à la question mais j'apporte un élément de réponse dans une seule textbox
une solution...

Enrichi (BBcode):
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Dim VT As Integer
    TextBox1.MaxLength = 10
    Select Case KeyAscii
        Case 46, 48 To 57
        
            VT = Len(TextBox1)
            If VT = 2 Or VT = 5 Then TextBox1 = TextBox1 & "/"
        Case Else
            KeyAscii = 0
            MsgBox "CARACTERE NON AUTORISE"
    End Select
End Sub

cordialement galougalou
ps je poste en meme temps que sylvanu( je post ou je post pas............ allez........je post! et je rajoute bonjour sylvanu
 

djedjeto

XLDnaute Junior
BonjourDjedjeto, le fil

Un autre exemple de saisie
VB:
'Code permettant de mettre une date au format 00/00/0000 dans une textbox
Private Sub TextBox1_Change()
Dim valeur As Byte
TextBox1.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
valeur = Len(TextBox1)
If valeur = 2 Or valeur = 5 Then TextBox1 = DebutP & "/"
End Sub

Cdt

Pas vu la réponse de djedjeto

A ma connaissance ce que vous demandez n'est pas possible graphiquement dans un TextBox
Jette un coup sur ce fichier. celui ci a pu faire quelque chose seulement que je sais comment l'adapter directement dans le textbox
 

Pièces jointes

  • DVP DemoDateBox.xls
    103.5 KB · Affichages: 17

patricktoulon

XLDnaute Barbatruc
bonjour
en voici un exemplaire
tout est contrôlé par le keydown
beep et re selection en cas d'erreur tapé ou de non validité de la date en fonction du format appelé
3 formats gérer par excel * par le nombre de séparateurs possibles
et sans module classe

demo3.gif
 

Pièces jointes

  • newwboxdate2019 2020.xlsm
    21.9 KB · Affichages: 18
Dernière édition:

GALOUGALOU

XLDnaute Accro
petite évolution du #3 juste pour information
avec le code de sylvanu pour que après saisie, le format soit ##/##/####
donc la saisie dans la textbox 280220 ou 28022020 sera renvoyée 28/02/2020
cordialement
galougalou
Enrichi (BBcode):
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Dim VT As Integer
    TextBox1.MaxLength = 10
    Select Case KeyAscii
        Case 46, 48 To 57
        
            VT = Len(TextBox1)
            If VT = 2 Or VT = 5 Then TextBox1 = TextBox1 & "/"
        Case Else
            KeyAscii = 0
            MsgBox "CARACTERE NON AUTORISE"
    End Select
End Sub

Private Sub TextBox1_AfterUpdate()
TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")
End Sub
 

djedjeto

XLDnaute Junior
bonjour
en voici un exemplaire
tout est contrôlé par le keydown
beep et re selection en cas d'erreur tapé ou de non validité de la date en fonction du format appelé
3 formats gérer par excel * par le nombre de séparateurs possibles
et sans module classe

Regarde la pièce jointe 1056663
salut patrick j'essais ton fichier mais j'arrive pas à ecrire dedans
 

Discussions similaires

Statistiques des forums

Discussions
311 732
Messages
2 081 995
Membres
101 857
dernier inscrit
mt60400