Format date automatique VBA

Fermé
Tom - 5 oct. 2010 à 11:18
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 5 oct. 2010 à 11:36
Bonjour,


J'ai plusieurs TextBox dans un userform ou les utilisateurs devront rentrer des dates.
A chaque fois il s'agit de l'année 2010, j'aimerais trouver un moyen de leur faire rentrer que le jour et le mois (ex: 16/10) et que l'année se mette automatiquement...

Si qqun pouvait m'aider !
Merci bcp !!
A voir également:

2 réponses

Pimp92a Messages postés 418 Date d'inscription vendredi 26 juin 2009 Statut Membre Dernière intervention 20 novembre 2022 44
5 oct. 2010 à 11:30
Bonjour,

peux-tu envoyer une copie de ton fichier ou un équivalent sur

http://www.cijoint.fr/

?

Ca sera plus facile pour t'aider
0
j'ai mis mon fichier!
http://www.cijoint.fr/cjlink.php?file=cj201010/cijs4HWHRd.xls

Qd tu l'ouvres, clique sur le bouton "création nouvelle ligne". Ensuite dans l'onglet "Type d'amortissement" mets "Amortissement sur mesure" et là s'ouvrira un échéancier ou tu dois mettre des dates en fonction de l'année. Je voudrais éviter aux utilisateurs de mettre a chaque fois l'année...qu'ils n'aient à mettre que le jour et le mois et que l'année se mette automatiquement...

J'esepere avoir été un peu plus clair; :) Merci de ton aide!
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
Modifié par pijaku le 5/10/2010 à 11:36
Bonjour,
Je n'ai pas testé, mais un truc dans le genre devrait fonctionner :
Private Sub TextBox1_Change() 
        Dim Valeur As Byte 
        TextBox1.MaxLength = 10 
        Valeur = Len(TextBox1) 
        If Valeur = 2 Then TextBox1 = TextBox1 & "/" 
        If Valeur = 5 Then TextBox1 = TextBox1 & "/2010" 
End Sub 

Cordialement,
-- Il n'y a rien de tel qu'une question idiote, seulement une réponse idiote. A.Einstein --
0