problème Format date Dans formulaire de saisie

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pascal cfp 49

XLDnaute Nouveau
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
 
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):

Code:
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
 
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
 
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 😱.

Code:
Sub filtre_dateMoins4()
DATmoins4 = Format(CDate(Date) - 4, "0")
ActiveSheet.Range("$A$2:$H$365").AutoFilter Field:=1, Criteria1:= _
        ">" & DATmoins4, Operator:=xlAnd
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
283
Réponses
6
Affichages
305
Retour