Problème avec les dates

[nikess]

Bonjour à tous,

Je bloque sur un détail.... Qui peut provoquer des grosses erreurs

Je veux rentrer une date dans une de mes cellules à partir de mon userform.
je la rentre sous la forme jour/mois/année.

Range("A1").Value = Format(day1 & "/" & month1 & "/" & year1, "dd/mm/yyyy")

en ayant définie :

day1 = Day(UserForm1.TextBox1.Value)
month1 = Month(UserForm1.TextBox1.Value)
year1 = Year(UserForm1.TextBox1.Value)

le problème sous ma feuille Excel est qu'il me l'affiche au format anglais : mois/jour/année.
et je veux par la suite comparer cette date par rapport à une autre.
(Cette erreur ne se fait que quand le numéro du jour est <=12)

(j'ai mis la petite application en pièce jointe)


Si quelqu'un a une idée ?

Merci d'avance.

 

[Cousinhub]

Re : Problème avec les dates

Bonsoir,

essaie ainsi :

Range("A1").Value = Format(day1 & "/" & month1 & "/" & year1, "mm/dd/yyyy")

 

[gilbert_RGI]

Re : Problème avec les dates

bonjour

employer ceci

Private Sub CommandButton1_Click()
Sheets("Feuil1").Select

t = Split(Me.TextBox1.Value, "/")
Sheets(1).Range("A1").Value = DateSerial(Day:=t(0), Month:=t(1), Year:=t(2))

Range("A1").Select
Selection.Copy

Range("A20").Select
ActiveSheet.Paste
End Sub

 

[nikess]

Re : Problème avec les dates

Tu y étais presque :
Range("A1").Value = Format(month1 & "/" & day1 & "/" & year1, "dd/mm/yyyy")
il fallait inverser pas dans le format mais dans ce qu'on écrivait.

Merci A+

 

[Cousinhub]

Re : Problème avec les dates

Re,

Cela équivaut au même.....😉

 

[nikess]

Re : Problème avec les dates

Merci beaucoup.

l'application que je veux faire est plus complète. J'avais juste reproduis ce que je voulais faire.

A bientôt