problème Format date Dans formulaire de saisie

[pascal cfp 49]

Bonjour,

Dans un formulaire de saisie j'ai un textbox en rowsource une cellule avec une date format personnalisé. cette date est reporté par le formulaire en format anglais
Exemple La date aujourd'hui est 11/02/2011 le formulaire recopie 02/11/2011
Quelqu'un aurai-t-il la réponse à mon problème


Merci d'avance

Pascal cfp 49

 

[MJ13]

Re : problème Format date Dans formulaire de saisie

Bonjour Pascal:

C'est pas gagné, mais va voir ici :

https://www.excel-downloads.com/threads/probleme-de-format-de-date.157657/

Moi, j'ai le même problème sur ce code sur le filtrage d'un plannnig (j'ai fait comme cela mai bon cela ne me plaît pas):

Private Sub Workbook_Open()
'Problème date inversée en Local
Dim DateAuj2 As Date
DateAuj = CDate(Date)
DateAuj2 = Format(DateAuj - 1, ("MM/DD/YYYY"))
'MsgBox DateAuj
'MsgBox DateAuj2
'Format(DateAuj, ("MM/DD/YYYY"))
ActiveSheet.Range("$A$1:$H$365").AutoFilter Field:=1, Criteria1:= _
        ">" & DateAuj2, Operator:=xlAnd
End Sub

 

[pascal cfp 49]

Re : problème Format date Dans formulaire de saisie

Merci MJ13 pour ta réponse,

A titre d'info j'ai trouvé une astuce qui fonctionne dans mon formulaire de saisie: c'est de mettre la cellule source en format standard, le formulaire renvoie ainsi la date correctement.

Pascal cfp

 

[MJ13]

Re : problème Format date Dans formulaire de saisie

Bonjour Pascal

A titre d'info j'ai trouvé une astuce qui fonctionne dans mon formulaire de saisie: c'est de mettre la cellule source en format standard, le formulaire renvoie ainsi la date correctement.

Merci beaucoup Pascal, c'est pas pour dire, mais la, tu frôle le génie .

J'ai souvent ce problème de date inversée et en suivant tes conseils, cela fonctionne .

Bon, c'est pas tout ça, mais faut que je finisse mon ficher .

Sub filtre_dateMoins4()
DATmoins4 = Format(CDate(Date) - 4, "0")
ActiveSheet.Range("$A$2:$H$365").AutoFilter Field:=1, Criteria1:= _
        ">" & DATmoins4, Operator:=xlAnd
End Sub