Des dates dans tous les sens !

[billyboy]

Bonsoir,

J'utilise une textbox pour alimenter avec des dates un tableau sous le format jj/mm/aaaa, mais voilà, c'est le bordel, quand je rappelle ces mêmes date avec ces mêmes textbox pour les modifier, je me retrouve avec les jour à la place des mois, si je les rappelle une deuxième fois je reviens dans la bonne config CAD jj/mm/aaaa
Y a-til une option à cocher ou quelques chose du genre pour remédier à ce désagrement

Merci

 

[kjin]

Re : Des dates dans tous les sens !

Bonsoir,
Peut on voir l'objet de tes tracas
A+
kjin

 

[Pierrot93]

Re : Des dates dans tous les sens !

Bonsoir,

pour renvoyer une date dans une cellule à partir d'un "textbox", essaye peut être la fonction "cdate" :

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

bonne soirée
@+

 

[kjin]

Re : Des dates dans tous les sens !

Re,
J'avais cru comprendre que les dates dans la feuille étaient correctes !
Comme il n'y a que 12 mois, excel interprète 15/12/09 comme du texte
A+
kjin

 

[billyboy]

Re : Des dates dans tous les sens !

merci pour vos réponses,
un problème avec cdate, on obtiens une erreur si la valeur de la textbox =""

J'ai oublié de vous dire que je ne fais pas encore de prose en langage VBA
J'en suis a mes débuts




Mais je progresse !!!

Grâce à vous bien sûr.

 

[billyboy]

Re : Des dates dans tous les sens !

bonsoir jean marcel
merci pour ton test mais je ne peux pas faire un exit sub, car j'ai encore une dizaine de textbox après celle-ci.

Aurais-tu une autre idée

un ptit bout de code pour que tu visualises:

.....................

If IsDate(delais5) = False Then Sheets("Source").Cells(Adr.Row, 45).Value = ""
Sheets("Source").Cells(Adr.Row, 45).Value = CDate(delais5)

Sheets("Source").Cells(Adr.Row, 46).Value = oui5.Value

If IsDate(date_qualite) = False Then Sheets("Source").Cells(Adr.Row, 47).Value = ""
Sheets("Source").Cells(Adr.Row, 47).Value = CDate(date_qualite)

Sheets("Source").Cells(Adr.Row, 48).Value = nom_qualite.Value
Sheets("Source").Cells(Adr.Row, 49).Value = avqualok.Value

If IsDate(date_client) = False Then Sheets("Source").Cells(Adr.Row, 51).Value = ""
Sheets("Source").Cells(Adr.Row, 51).Value = CDate(date_client)

Sheets("Source").Cells(Adr.Row, 52).Value = nom_client.Value
Sheets("Source").Cells(Adr.Row, 53).Value = avcliok.Value

Sheets("Source").Cells(Adr.Row, 55).Value = imputation.Value

Sheets("Source").Cells(Adr.Row, 58).Value = mo1.Value
Sheets("Source").Cells(Adr.Row, 59).Value = nb1.Value
Sheets("Source").Cells(Adr.Row, 60).Value = tx1.Value

Sheets("Source").Cells(Adr.Row, 61).Value = mo2.Value
Sheets("Source").Cells(Adr.Row, 62).Value = nb2.Value
Sheets("Source").Cells(Adr.Row, 63).Value = tx2.Value

Sheets("Source").Cells(Adr.Row, 64).Value = mo3.Value
Sheets("Source").Cells(Adr.Row, 65).Value = nb3.Value
Sheets("Source").Cells(Adr.Row, 66).Value = tx3.Value

Sheets("Source").Cells(Adr.Row, 67).Value = mo4.Value
Sheets("Source").Cells(Adr.Row, 68).Value = nb4.Value
Sheets("Source").Cells(Adr.Row, 69).Value = tx4.Value

.........................................

 

[kjin]

Re : Des dates dans tous les sens !

Re,
Jean marcel te proposait de quitter la procédure car en général on corrige quand il y a une erreur
Maintenant si la saisie de la date est facultative...

Private Sub CommandButton1_Click()
If TextBox1 <> "" And IsDate(TextBox1) Then
Range("A1") = CDate(TextBox1.Value)
End If
'...
End Sub

A+
kjin

 

[billyboy]

Re : Des dates dans tous les sens !

merci kjin et jean marcel
Je m'y mets!
A+