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

djedjeto · 28 Février 2020

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 · 28 Février 2020

Bonjour Djedjeto,
Essayez cela :

VB:

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 · 28 Février 2020

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

sylvanu · 28 Février 2020

Bonjour Galougalou.

djedjeto · 28 Février 2020

sylvanu à dit:
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 · 28 Février 2020

Chris24 à dit:
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

GALOUGALOU · 28 Février 2020

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 · 28 Février 2020

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 · 28 Février 2020

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 · 28 Février 2020

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

patricktoulon · 28 Février 2020

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 · 28 Février 2020

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 · 28 Février 2020

patricktoulon à dit:
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 · 28 Février 2020

re
ecrire dedans ? tu peux être plus clair?

djedjeto · 28 Février 2020

patricktoulon à dit:
re
ecrire dedans ? tu peux être plus clair?

Je veux tester ton fichier mais j'arrive pas

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

djedjeto

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

textbox en format date

GALOUGALOU

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

djedjeto

XLDnaute Junior

djedjeto

XLDnaute Junior

Pièces jointes

GALOUGALOU

XLDnaute Accro

Chris24

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

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

Pièces jointes

GALOUGALOU

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Pièces jointes

djedjeto

XLDnaute Junior

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

patricktoulon

XLDnaute Barbatruc

djedjeto

XLDnaute Junior

Discussions similaires