Format date automatique VBA

Tom -  
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   -
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 442 Statut Membre 44
 
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
Tom
 
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 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 768
 
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