Pb format date

[jb]

Tout d'abord, bonjour à tous !

Voilà, j'ai un problème lorsque depuis un textbox d'un userform, je tape une date sous la forme jj/mm/aa. Lorsque je valide, il me renvoi la date tapée sous une feuille MAIS au FORMAT mm/jj/aa (pourtant ma cellule de destination est configurée dans le 1er format). Je ne comprend pas le problème. Avez vous une idée (du genre dire sous forme de VBA à la textbox que la forme envoyée doit être du type jj/mm/aa ? => je ne maitrise pas le code).

 

[jacquesderyes]

Bosoir JB et les amis du forum

Le petit bout de code suivant devrait répondre à ton PB:
*******************************************
Private Sub ''''celui du UserForm


CommandButton1_Click()
Dim transfert As Double

transfert = CDate(TextBox1)
ActiveSheet.[A1] = transfert
End Sub
*******************************************

Note:Tu n'es pas obligé de mettre la date en entier dans ton TBX
Par éxemple la valeur 12/3 renverra 12/3/2003(année en cours seulement)
Tu peux formater ta cellule comme tu veux par éxemple avec la même valeur(12/3 dans le TBX) si tu formates la cellule jj/mmm/aa cette derniere affichera 12 mars 03.
Si tu veux mettre la date dans une autre cellule tu selectionnes la cellule.
Tu ouvres le UF après avoir adapté auparavant le code suivant à ton bouton de validation

Private Sub ''''celui du UserForm


CommandButton2_Click()
Dim transfert As Double

transfert = CDate(TextBox1)
ActiveSheet.ActiveCell= transfert
End Sub
Tu peux bien entendu mettre deux boutons sur le UF:
1 qui valide la date dans une cellule déterminée(premier code)
1 qui valide dans n'importe quelle cellule préalablement sélectionée et formatée en date.
J'espère que celà t'aidera.
Amitiés à tous et bonne soirée.


Jacques de ryes

 

[jacquesderyes]

RE BONSOIR JB et les amis du forum

Pour le code j'ai commis une petite erreur! Il faut remplacer CommandButton2 par CommandButton1 .En éffet il faudrait écrire CommandButton2 dans la mesure où un 2° bouton était ajouté pour utiliser les 2 codes.Celà va de soit

En complément de ma 1ere réponse à ton PB, je t'indique ci-dessous différents types de libellés de dates dans le TBX acceptés par le code ci-dessus;

12 3 12 3 03 12 03 2003
12-3 12-3-03 12-03-2003
12/3 12/3/03 12/03/2003
12,3 12,3,03 12,03,2003

Il y en a d'autres mais amuses-toi avec ces différents libellés et tu t'apercevras que c'est intéressant!!!

Bonne soirée à tous

Jacques de ryes