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

[djedjeto]

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]

Bonjour Djedjeto,
Essayez cela :

textbox1.value=format(textbox1.value,"dd/mm/yyyy")

textbox en format date

Bonjour. Je suis navré de vous embéter comme ça avec ma série de question ... Dans mon appli sous VBA Excel 97, j'ai 2 userforms. En cliquant sur l'un des commandbutton du premier, ça appel le second, qui est un écran de validation en réalité. Dans ces 2 userforms, j'utilise 2 textbox...

www.excel-downloads.com

 

[GALOUGALOU]

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...

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

 

[sylvanu]

Bonjour Galougalou.

 

[djedjeto]

Bonjour Galougalou.

Merci beaucoup. peut etre que je ne me suis pas bien faire comprendre. le problème c'est au niveau du textbox. je veux que le texte __/__/____/ soit affiché tel quel dans le textbox pour pourvoir faire la saisie des données

 

[djedjeto]

BonjourDjedjeto, le fil

Un autre exemple de saisie

'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

 

[GALOUGALOU]

je vais regarder ce soir
juste une info
dans le code que je t'ai fait parvenir
tu saisis 28022020 dans la textbox
et elle affiche 28/02/2020
cordialement
galougalou

 

[Chris24]

RE

J'ai effacé par erreur mon message, c'était une solution identique à celle de Galougalou.
En ce qui concerne le fichier transmis le mask de saisie est défini dans le module de classe DateBox, Bon courage......

Cdt

 

[patricktoulon]

bonjour

Collection textbox formatés(patricktoulon)Un DateBox avec masque de saisie

patricktoulon a posté une nouvelle ressource : Collection textbox formatés(patricktoulon)Un DateBox avec masque de saisie - textbox formaté avec masque de saisie pour date 3 formats possibles Bonjour a tous je vous propose ma fonction qui transforme un TextBox en Date Box pour les 3...

www.excel-downloads.com

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

 

[GALOUGALOU]

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

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

 

[patricktoulon]

re

le format soit ##/##/####

et le control de validité ?
29022019 donnera 29/02/2019 ce qui est invalide

et le masque "--/--/----"?

et la navigation avec les touches si l'on doit revenir pendant la rédaction après s’être trompé ?on fait quoi on recommence tout?
testez le mien

 

[patricktoulon]

re
et pour ceux qui seraient également intéresse par un textbox avec masque de saisie sans /ou part off string voir l'exemple 4 en bas de l'userform

 

[djedjeto]

bonjour

Collection textbox formatés(patricktoulon)Un DateBox avec masque de saisie

patricktoulon a posté une nouvelle ressource : Collection textbox formatés(patricktoulon)Un DateBox avec masque de saisie - textbox formaté avec masque de saisie pour date 3 formats possibles Bonjour a tous je vous propose ma fonction qui transforme un TextBox en Date Box pour les 3...

www.excel-downloads.com

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

 

[patricktoulon]

re
ecrire dedans ? tu peux être plus clair?

 

[djedjeto]

re
ecrire dedans ? tu peux être plus clair?

Je veux tester ton fichier mais j'arrive pas