Textbox et les dates

Résolu
cs_Achi Messages postés 128 Date d'inscription lundi 27 février 2006 Statut Membre Dernière intervention 17 mai 2008 - 16 août 2006 à 12:49
jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 16 août 2006 à 14:02
bonjour,

tout d'abord je suis sous excel en VBA.

bon voilà j'entre par l'intermediaire d'un textbox une date (ex: 23/11/06, ou autre)
ensuite par l'action d'un bouton "valider" je rentre cette valeur directement ds une cellule ("A1") cette derniere que j'ai mis sous le format date jj/mm/aa...  le pb c'est qu'il ne me la prend pas en tant que date... et ca parce que pour m'afficher une date il m'inverse automatiquement et sans tenir compte du format de la cellule le mois et le jour... donc par exemple pour le 01/02/06 il me l'accepte mais en tant que 02/01/06...

je me prends la tête dessus depuis 2h au moins je pige pas pourquoi il me fais ca.

qq'un aurait-il la solution de ce pb.... (autre que l'inscription de la date à l'envers, mm/jj/aa).

Merci à tous qui se pencheront sur mon pb...

@+ Achi.

3 réponses

mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 17
16 août 2006 à 12:58
Salut,

il ne faut pas faire
    Range("A1").Value = TonTextBox.Value
mais
    Range("A1").Value = CDate (TonTextBox.Value)

@++

  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"

Merci de prendre le temps de répondre à ce [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx sondage]
Merci de prendre le temps de lire [reglement.aspx le Règlement CS]   =ZSzeb008_ZNxdm414YYFR
3
cs_Achi Messages postés 128 Date d'inscription lundi 27 février 2006 Statut Membre Dernière intervention 17 mai 2008
16 août 2006 à 14:00
merci Mortalino,

ca fonctionne bien!
bonne jnée..... @ + Achi
0
jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
16 août 2006 à 14:02
Salut 647037 mortalino, Salut =706192 Achi

Sinon tu peux essayer: Range("A1").Value = Format(TonTextBox.Value, "DD/MM/YYYY")
Ou bien encore si l'autre ne fonctionne pas
Range("A1").Value = Format(Cdate(TonTextBox.Value), "DD/MM/YYYY")





: Règlement
=>
:Moteur de recherche
0