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

2 réponses

  1. 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
    1. 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
  2. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    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