Comment créer des dates dans usf
Bonjour
j'ai créé en utilisant un code que j'avais trouvé puis modifié dans le fichier joint
cependant je bloque et je souhaiterais pouvoir créer dans l'useform "licencié":
1- des dates de naissance en format jj/mm/aaaa (si la date est connue)ou en format aaaa (si que l'année est connue) ou ""
2- automatiser le champ annee de naissance = year (date de naissance)
quelqu'un aurait-il une idée?
merci
Etoile
Bonjour
Mise en ligne du fichier modifié
merci de votre aide
Etoile
Bonjour
après quelques recherches sur le forum, je pense avoir une piste
[code]
'recherche de l'année de naissance
If Licencies.Txtdatenaiss.Value = Format(Licencies.Txtdatenaiss.Value, "dd/mm/yyyy") Then
.Cells(i, 5) = Year(Txtdatenaiss)
ElseIf Licencies.Txtdatenaiss.Value = Format(Licencies.Txtdatenaiss.Value, 0) Then
.Cells(i, 5) = .Cells(i, 4)
Else: .Cells(i, 5) = "????"
End If
[code]
qu'en pensez-vous?
merci
Etoile
Salut Etoile et bienvenue sur le Forum,
Tu n’as pas trop de succès avec tes deux questions
Prenons donc la première des questions du présent fil : Tu dis vouloir pouvoir créer dans l'useform "licencié" des dates de naissance en format jj/mm/aaaa (si la date est connue) ou en format aaaa (si que l'année est connue) ou "".
Que veux-tu dire exactement ? Il faut que la date de naissance soit visible à l’un des deux formats indiqués ci-dessus dans les l’un de tes deux TextBox (merci de préciser lequel) ? Ou il faut que la date ou l’année de naissance inscrite dans l’un des deux TextBox (merci de préciser lequel) soit reporter à un format précis ?
A te relire.
Bonjour Yvouille & le forum.
Merci d'avoir répondu à ma question qui peut paraitre pas assez explicite, je l'avoue.
Avant de répondre à tes questions; Je précise que je suis petit utilisateur de vba (pléonasme) ,
j'ai cherché sur le forum/et livres vba des réponses et des codes que j'ai tenté de transposer à mes besoins mais cela ne doit pas toujours être très "correct". Je pense avoir un peu avancé mais il y a encore beaucoup de zones flous. Cf fichier joint.
Mais allons y point par point. Donc merci encore pour le(s) forumiste(s) qui s'y pencheront.
dans la question1: je souhaitais que dans la textbox "date de naissance" (Txtdatenaiss) le pupitreur puisse entrer au choix sans avoir un msg d'erreur:
soit une date de naissance (format jj/mm/aaaa)
soit un nombre (annee) (format 0000)
soit "" si on ne la connait pas et dans ce cas "??" apparaitrait.
Enfin, grâce à cette info datedenaissance, automatiquement la textbox suivante "annee" (Txtanneenaiss) se remplirait par le nombre précédent (0000) ou "????"
Cordialement
Etoile
Bonjour,
Proposition à tester
Les erreurs trouvées sont pointées dans les commentaires du programme valider.
Bonjour le Forum, RobJam, Yvouille
merci pour la réponse.
J'ai un bug lorsque j'inscris du texte dans cette cellule Txdatenaiss
Comment faire pour limiter l'inscription erronée dans cette cellule Txtdatenaiss avec un msg d'erreur ("date eronnée")
Seules 3 possibilités d'inscription:
vide : "";
date comprise en 01/01/1900 et 31/12/(annee(aujourdhui)-5)
ou nombre compris entre 1900 et anne(aujourdui())-5
Dans le même temps; la cellule txtanneedenaissance ne devrait pas être accessible à l'écriture mais bloquée et remplie automatiquement
Je remercie les forumistes pour leur aide
Etoile
Bonsoir,
Nouvelle proposition a tester
Bouton Année ajouter pour écrire l'année et bloquer l'accès à la textbox
Bonsoir
Merci pour ta réponse
cependant si on ne clique pas sur le bouton "annee" avant de valider, la validation se fait avec une mauvaise date.
Peut-on inclure cette notion dans la procédure du bouton Valider/Modifier?
Merci
Etoile
Bonsoir
oops
le fichier joint, pas joint...
La modification ne se fait pas correctement.
cordialement
Etoile
Bonsoir,
Tester cette nouvelle mouture.
Demain je ne suis pas disponible.
Ce sera pour mardi si problème.
Bonsoir Forum, Robjam
Ca fonctionne. Merci
Cependant il y a un conflit quand on ne met pas de date.
Dans ce cas, on doit avoir "????" en Txtdatenaisance
Pour l'autre question, je crée post un autre post pour éviter de mélanger les questions
Cordialement
Etoile
Bonsoir
je pense avoir trouvé une piste, ça a l'air de fonctionner
mais c'est peut-être pas "dans les règles de l'art"?
Cordialement
Etoile