Rentrer date sur TextBox et la copier avec style différent

[Scalpa]

Salut à tous et toutes !

Je voudrais juste créer un petit userform avec un TextBox (ça pour l'instant pas de problème) afin que l'utisateur entre une date sous la forme

19/11/03 ou 19 11 03 et ceci en Feuil1 ensuite quand il cliquera sur OK la date sera copiée en Feuil2 en A2 sous la forme "jjjj jj mmmm aaa" la fois d'après la date sera copié en A3, puis A4 etc

J'arrive à copier des nombres même la date telle que je la rentre, mais impossible après de modifier en "jjjj jj mmmm aaa" Dans le code faut-il entrer un truc du genre as Date ? Si oui va falloir m'aider, car c'est là que mes compétences s'arrêtent !

Merci à celui ou celle ou ceux qui pourront m'aider !

@+

Scalpa

 

[Zon]

Salut,

pas trés clair ce que tu demandes , peut être qu'en utilisant Format comme suit:

range("A1")=format(tatexbox,"dddd dd mmmm yyy"


A+++

 

[jacquesderyes]

Bonjour Scalpa et les amis du forum

Ci dessous le code que je te préconise pour ton pb de date:

Code a mettre dans le code du UF


Private Sub CommandButton1_Click() ---->CommandButton sur le UF
Dim dat As Date
dat = CDate(TextBox1.Value)

End Sub


Attention avec excel XP mettre
Range("A1") = VBA.Format(dat, "dddd dd mmm yyyy")

Bien amicalement
jacques de ryes

 

[jacquesderyes]

Rebonjour Scalpa
Autant pour moi ,j'ai oublié une partie du code!!!!!!!

Private Sub CommandButton1_Click() ---->CommandButton sur le UF
Dim dat As Date
dat = CDate(TextBox1.Value)
Range("A1")=Format(dat, "dddd dd mmm yyyy")

End Sub


Attention avec excel XP mettre
Range("A1") = VBA.Format(dat, "dddd dd mmm yyyy")


Avec toutes mes excuses
Bien amicalement
jacques de ryes

 

[Scalpa]

Salut Zon et Jacques !

Je vais essayer de suite votre solution et merci !

@+

Scalpa