Userform et date à l'envers

[alain.pierrephie]

Bonjour a tout le forum excel,
Je rencontre un problème que je n'ai pas réussit a régler depuis quelques jours et en désespoir de cause je m'adresse a tout les fortiches du vba.
Si j'entre une date avec mon masque de saisie USF la date qui va se mettre inverse le jour et le mois. Par exemple j'entre >> 08/10/2010 et j'obtiens dans ma feuille le 10/08/2010 >>
Ci joint mon usf , si qqun peux m'aider je n'y suis pas arrivé. Vous en remerciant par avance.

 

[Pierrot93]

Re : Userform et date à l'envers

Bonjour,

essaye la fonction "cdate", attention la valeur renseignée doit pouvoir être interprétée par excel comme une date :

Range("A1").Value = CDate(TextBox1)

bonne soirée
@+

 

[alain.pierrephie]

Re : Userform et date à l'envers

J'ai déja essayé ça mais n'y suis pas parvenu , peux être ne l'ai je pas bien écris , peux tu me l'écrire dans mon usf et l'essayer , je t'en remercie.

 

[phlaurent55]

Re : Userform et date à l'envers

Bonjour Alain,

ajoute ceci:

Private Sub CommandButton1_Click()
Dim DerL As Long
DerL = Range("C65536").End(xlUp).Row + 1
Feuil1.Activate
Range("A" & DerL).Select
If OptionButton5 Then
    ActiveCell.Offset(0, 2).Value = 2
ElseIf OptionButton6 Then
    ActiveCell.Offset(0, 2).Value = 1
End If
[B][SIZE=3][COLOR=blue]ActiveCell.Offset(0, 1).Value = TextBox1.Text[/COLOR][/SIZE][/B]
UserForm1.Hide
End
End Sub

à+
Philippe

Edit: Bonjour Pierrot

 

[Guest]

Re : Userform et date à l'envers

Bonjour,

 Range("A" & DerL).Offset(, 1) = DateValue(TextBox1)

semble fonctionner.

A+

 

[Pierrot93]

Re : Userform et date à l'envers

Re,

comprends pas, dans ton fichier le code ci-dessous fonctionne :

Private Sub CommandButton1_Click()
Range("B65536").End(xlUp)(2).Value = CDate(TextBox1)
End Sub

saisie 04/10/2010 dans le textbox
@+

Edition : bonsoir Hasco, Philippe

 

[alain.pierrephie]

Re : Userform et date à l'envers

Désolé à tous mais rien ne marche , j'ai fais tout ce que vous m'avez dit avec entrée du 04/10/2010 et ai eu 10/04/2010. J'ai joins le dossier si qqun peux essayer de mettre un code vba et essayer, merci infiniment

 

[alain.pierrephie]

Re : Userform et date à l'envers

Je vien d'essayer le code de HASCO et là ........... trop fort et je suis trop content hasco merci vraiment beaucoup depuis le temps que je galérais avec ce code.