Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel juste un format de date...

juste un format de date...

10 réponses
Avatar
Sabian
Salut...
J'ai un control Calendrier sur un UserForm.
Juste dessous, j'y ai plac=E9 un Label.
Dans ce Label, j'aimerai que la date s=E9lectionn=E9e dans mon=20
controle Calendrier s'affiche...
Pas de probl=E8me pour =E7a, j'ai plac=E9 un:

Me.lblBirthDate.caption =3D Me.ctrlBirthDate.Value

Qui je l'avoue fonctionne bien...
Maintenant, j'aimerai que le format du Caption du Label=20
soit non pas 17.11.2003 comme c'est le cas =E0 l'heure=20
actuelle, mais plut=F4t un Lundi, 17 novembre 2003.

Alors, j'ai plac=E9 juste devant le code que j'ai mis pour=20
affiche la date, le code ci-dessous:

Me.ctrlBirthDate.Value =3D Format(Date, "jjjj.mmmm.aaaa")

Mais nada, =E7a ne marche pas...
Merci pour votre aide...

Sabian...
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour Sabian
Le format doit être traduit en anglais :
Me.ctrlBirthDate.Value = Format(Date, "dddd.mmmm.yyyy")
Cordialement
Pascal

"Sabian" a écrit dans le message de
news:077901c3ad10$eddd2140$
Salut...
J'ai un control Calendrier sur un UserForm.
Juste dessous, j'y ai placé un Label.
Dans ce Label, j'aimerai que la date sélectionnée dans mon
controle Calendrier s'affiche...
Pas de problème pour ça, j'ai placé un:

Me.lblBirthDate.caption = Me.ctrlBirthDate.Value

Qui je l'avoue fonctionne bien...
Maintenant, j'aimerai que le format du Caption du Label
soit non pas 17.11.2003 comme c'est le cas à l'heure
actuelle, mais plutôt un Lundi, 17 novembre 2003.

Alors, j'ai placé juste devant le code que j'ai mis pour
affiche la date, le code ci-dessous:

Me.ctrlBirthDate.Value = Format(Date, "jjjj.mmmm.aaaa")

Mais nada, ça ne marche pas...
Merci pour votre aide...

Sabian...
Avatar
Sabian
ça ne fonctionne pas non plus...
ps: j'ai mis ce code sur le UserForm_Initialize()
et ceci juste avant le Me.lblBirthDate.caption =
Me.ctrlBirthDate.Value

Help... please...
(peut-être qu'on peut tout simplement pas le faire)


-----Message d'origine-----
Bonjour Sabian
Le format doit être traduit en anglais :
Me.ctrlBirthDate.Value = Format(Date, "dddd.mmmm.yyyy")
Cordialement
Pascal

"Sabian" a écrit dans le message de
news:077901c3ad10$eddd2140$
Salut...
J'ai un control Calendrier sur un UserForm.
Juste dessous, j'y ai placé un Label.
Dans ce Label, j'aimerai que la date sélectionnée dans mon
controle Calendrier s'affiche...
Pas de problème pour ça, j'ai placé un:

Me.lblBirthDate.caption = Me.ctrlBirthDate.Value

Qui je l'avoue fonctionne bien...
Maintenant, j'aimerai que le format du Caption du Label
soit non pas 17.11.2003 comme c'est le cas à l'heure
actuelle, mais plutôt un Lundi, 17 novembre 2003.

Alors, j'ai placé juste devant le code que j'ai mis pour
affiche la date, le code ci-dessous:

Me.ctrlBirthDate.Value = Format(Date, "jjjj.mmmm.aaaa")

Mais nada, ça ne marche pas...
Merci pour votre aide...

Sabian...




.



Avatar
Michel Gaboly
Bonjour,

Si tu veux avoir "Lundi 17", il faut "dddd d" ou "dddd dd"
selon que tu désires 05 ou 5 en début de mois.

Il faut donc (sans zéro en début de mois) :

"dddd d mmmm aaaa"

PS - Il n'est pas nécessaire de faire précéder le nom des
contrôles de "Me.", et pour les TextBox, tu peux aussi éco-
nomiser le ".Value", car c'est leur propriété par défaut.



Bonjour Sabian
Le format doit être traduit en anglais :
Me.ctrlBirthDate.Value = Format(Date, "dddd.mmmm.yyyy")
Cordialement
Pascal

"Sabian" a écrit dans le message de
news:077901c3ad10$eddd2140$
Salut...
J'ai un control Calendrier sur un UserForm.
Juste dessous, j'y ai placé un Label.
Dans ce Label, j'aimerai que la date sélectionnée dans mon
controle Calendrier s'affiche...
Pas de problème pour ça, j'ai placé un:

Me.lblBirthDate.caption = Me.ctrlBirthDate.Value

Qui je l'avoue fonctionne bien...
Maintenant, j'aimerai que le format du Caption du Label
soit non pas 17.11.2003 comme c'est le cas à l'heure
actuelle, mais plutôt un Lundi, 17 novembre 2003.

Alors, j'ai placé juste devant le code que j'ai mis pour
affiche la date, le code ci-dessous:

Me.ctrlBirthDate.Value = Format(Date, "jjjj.mmmm.aaaa")

Mais nada, ça ne marche pas...
Merci pour votre aide...

Sabian...


--
Cordialement,

Michel Gaboly
http://www.gaboly.com

Avatar
Sabian
Rien... ça vient pas le format voulu...
ça reste en 17.11.2003 que je mette avec "dddd dd mmmm
yyyy" ou avec "jjjj jj mmmm aaaa"...

Sabian...


-----Message d'origine-----
Bonjour,

Si tu veux avoir "Lundi 17", il faut "dddd d" ou "dddd dd"
selon que tu désires 05 ou 5 en début de mois.

Il faut donc (sans zéro en début de mois) :

"dddd d mmmm aaaa"

PS - Il n'est pas nécessaire de faire précéder le nom des
contrôles de "Me.", et pour les TextBox, tu peux aussi
éco-

nomiser le ".Value", car c'est leur propriété par défaut.



Bonjour Sabian
Le format doit être traduit en anglais :
Me.ctrlBirthDate.Value = Format(Date, "dddd.mmmm.yyyy")
Cordialement
Pascal

"Sabian" a écrit dans le message de
news:077901c3ad10$eddd2140$
Salut...
J'ai un control Calendrier sur un UserForm.
Juste dessous, j'y ai placé un Label.
Dans ce Label, j'aimerai que la date sélectionnée dans
mon


controle Calendrier s'affiche...
Pas de problème pour ça, j'ai placé un:

Me.lblBirthDate.caption = Me.ctrlBirthDate.Value

Qui je l'avoue fonctionne bien...
Maintenant, j'aimerai que le format du Caption du Label
soit non pas 17.11.2003 comme c'est le cas à l'heure
actuelle, mais plutôt un Lundi, 17 novembre 2003.

Alors, j'ai placé juste devant le code que j'ai mis pour
affiche la date, le code ci-dessous:

Me.ctrlBirthDate.Value = Format(Date, "jjjj.mmmm.aaaa")

Mais nada, ça ne marche pas...
Merci pour votre aide...

Sabian...


--
Cordialement,

Michel Gaboly
http://www.gaboly.com


.




Avatar
ru-th
Salut

si c'est un label (pas de value des labels)
Label1.Caption = Format(Date, "dddd d mmmm yyyy")
si c'est un textbox
TextBox1.Text = Format(Date, "dddd d mmmm yyyy")

a+
rural thierry

"Sabian" a écrit dans le message de news:
087201c3ad1c$4617a4b0$
Rien... ça vient pas le format voulu...
ça reste en 17.11.2003 que je mette avec "dddd dd mmmm
yyyy" ou avec "jjjj jj mmmm aaaa"...

Sabian...


-----Message d'origine-----
Bonjour,

Si tu veux avoir "Lundi 17", il faut "dddd d" ou "dddd dd"
selon que tu désires 05 ou 5 en début de mois.

Il faut donc (sans zéro en début de mois) :

"dddd d mmmm aaaa"

PS - Il n'est pas nécessaire de faire précéder le nom des
contrôles de "Me.", et pour les TextBox, tu peux aussi
éco-

nomiser le ".Value", car c'est leur propriété par défaut.



Bonjour Sabian
Le format doit être traduit en anglais :
Me.ctrlBirthDate.Value = Format(Date, "dddd.mmmm.yyyy")
Cordialement
Pascal

"Sabian" a écrit dans le message de
news:077901c3ad10$eddd2140$
Salut...
J'ai un control Calendrier sur un UserForm.
Juste dessous, j'y ai placé un Label.
Dans ce Label, j'aimerai que la date sélectionnée dans
mon


controle Calendrier s'affiche...
Pas de problème pour ça, j'ai placé un:

Me.lblBirthDate.caption = Me.ctrlBirthDate.Value

Qui je l'avoue fonctionne bien...
Maintenant, j'aimerai que le format du Caption du Label
soit non pas 17.11.2003 comme c'est le cas à l'heure
actuelle, mais plutôt un Lundi, 17 novembre 2003.

Alors, j'ai placé juste devant le code que j'ai mis pour
affiche la date, le code ci-dessous:

Me.ctrlBirthDate.Value = Format(Date, "jjjj.mmmm.aaaa")

Mais nada, ça ne marche pas...
Merci pour votre aide...

Sabian...


--
Cordialement,

Michel Gaboly
http://www.gaboly.com


.




Avatar
Michel Gaboly
Re,

Par défaut, le contenu d'un TextBox est du texte. Une conversion
en numérique est nécessaire pour pouvoir appliquer un format date.

Remplace

Me.lblBirthDate.caption = Me.ctrlBirthDate.Value

Par

lblBirthDate.Caption = CDate(ctrlBirthDate)

Tu peux utiliser une seule instruction :

lblBirthDate.Caption = Format(CDate(ctrlBirthDate),"dddd d mmmm aaaa")

et dis-nous ci cela marche. Attention au message d'erreur en cas de
saisie d'une valeur non numérique dans le TexBox.



Rien... ça vient pas le format voulu...
ça reste en 17.11.2003 que je mette avec "dddd dd mmmm
yyyy" ou avec "jjjj jj mmmm aaaa"...

Sabian...

-----Message d'origine-----
Bonjour,

Si tu veux avoir "Lundi 17", il faut "dddd d" ou "dddd dd"
selon que tu désires 05 ou 5 en début de mois.

Il faut donc (sans zéro en début de mois) :

"dddd d mmmm aaaa"

PS - Il n'est pas nécessaire de faire précéder le nom des
contrôles de "Me.", et pour les TextBox, tu peux aussi
éco-

nomiser le ".Value", car c'est leur propriété par défaut.



Bonjour Sabian
Le format doit être traduit en anglais :
Me.ctrlBirthDate.Value = Format(Date, "dddd.mmmm.yyyy")
Cordialement
Pascal

"Sabian" a écrit dans le message de
news:077901c3ad10$eddd2140$
Salut...
J'ai un control Calendrier sur un UserForm.
Juste dessous, j'y ai placé un Label.
Dans ce Label, j'aimerai que la date sélectionnée dans
mon


controle Calendrier s'affiche...
Pas de problème pour ça, j'ai placé un:

Me.lblBirthDate.caption = Me.ctrlBirthDate.Value

Qui je l'avoue fonctionne bien...
Maintenant, j'aimerai que le format du Caption du Label
soit non pas 17.11.2003 comme c'est le cas à l'heure
actuelle, mais plutôt un Lundi, 17 novembre 2003.

Alors, j'ai placé juste devant le code que j'ai mis pour
affiche la date, le code ci-dessous:

Me.ctrlBirthDate.Value = Format(Date, "jjjj.mmmm.aaaa")

Mais nada, ça ne marche pas...
Merci pour votre aide...

Sabian...


--
Cordialement,

Michel Gaboly
http://www.gaboly.com


.




--
Cordialement,

Michel Gaboly
http://www.gaboly.com



Avatar
Michel Gaboly
Re,

La date à formater ici provient du controle Calendar.

Date est un mot réservé et il ne faut donc pas utiliser
Format(Date, ...)

Je croyais l'avoir déjà dit, mais c'était un autre fil ;-((

lblBirthDate.Caption = Format(CDate(ctrlBirthDate),"dddd d mmmm aaaa")


Salut

si c'est un label (pas de value des labels)
Label1.Caption = Format(Date, "dddd d mmmm yyyy")
si c'est un textbox
TextBox1.Text = Format(Date, "dddd d mmmm yyyy")

a+
rural thierry

"Sabian" a écrit dans le message de news:
087201c3ad1c$4617a4b0$
Rien... ça vient pas le format voulu...
ça reste en 17.11.2003 que je mette avec "dddd dd mmmm
yyyy" ou avec "jjjj jj mmmm aaaa"...

Sabian...

-----Message d'origine-----
Bonjour,

Si tu veux avoir "Lundi 17", il faut "dddd d" ou "dddd dd"
selon que tu désires 05 ou 5 en début de mois.

Il faut donc (sans zéro en début de mois) :

"dddd d mmmm aaaa"

PS - Il n'est pas nécessaire de faire précéder le nom des
contrôles de "Me.", et pour les TextBox, tu peux aussi
éco-

nomiser le ".Value", car c'est leur propriété par défaut.



Bonjour Sabian
Le format doit être traduit en anglais :
Me.ctrlBirthDate.Value = Format(Date, "dddd.mmmm.yyyy")
Cordialement
Pascal

"Sabian" a écrit dans le message de
news:077901c3ad10$eddd2140$
Salut...
J'ai un control Calendrier sur un UserForm.
Juste dessous, j'y ai placé un Label.
Dans ce Label, j'aimerai que la date sélectionnée dans
mon


controle Calendrier s'affiche...
Pas de problème pour ça, j'ai placé un:

Me.lblBirthDate.caption = Me.ctrlBirthDate.Value

Qui je l'avoue fonctionne bien...
Maintenant, j'aimerai que le format du Caption du Label
soit non pas 17.11.2003 comme c'est le cas à l'heure
actuelle, mais plutôt un Lundi, 17 novembre 2003.

Alors, j'ai placé juste devant le code que j'ai mis pour
affiche la date, le code ci-dessous:

Me.ctrlBirthDate.Value = Format(Date, "jjjj.mmmm.aaaa")

Mais nada, ça ne marche pas...
Merci pour votre aide...

Sabian...


--
Cordialement,

Michel Gaboly
http://www.gaboly.com


.




--
Cordialement,

Michel Gaboly
http://www.gaboly.com



Avatar
Sabian
Nickel ! j'ai mis le code ci-dessous... tout fonctionne
nickel.

Merci et bonne soirée...

Sabian



-----Message d'origine-----
Re,

La date à formater ici provient du controle Calendar.

Date est un mot réservé et il ne faut donc pas utiliser
Format(Date, ...)

Je croyais l'avoir déjà dit, mais c'était un autre fil ;-
((


lblBirthDate.Caption = Format(CDate(ctrlBirthDate),"dddd
d mmmm aaaa")



Salut

si c'est un label (pas de value des labels)
Label1.Caption = Format(Date, "dddd d mmmm yyyy")
si c'est un textbox
TextBox1.Text = Format(Date, "dddd d mmmm yyyy")

a+
rural thierry

"Sabian" a écrit dans le message de news:
087201c3ad1c$4617a4b0$
Rien... ça vient pas le format voulu...
ça reste en 17.11.2003 que je mette avec "dddd dd mmmm
yyyy" ou avec "jjjj jj mmmm aaaa"...

Sabian...

-----Message d'origine-----
Bonjour,

Si tu veux avoir "Lundi 17", il faut "dddd d" ou "dddd
dd"



selon que tu désires 05 ou 5 en début de mois.

Il faut donc (sans zéro en début de mois) :

"dddd d mmmm aaaa"

PS - Il n'est pas nécessaire de faire précéder le nom
des



contrôles de "Me.", et pour les TextBox, tu peux aussi
éco-

nomiser le ".Value", car c'est leur propriété par
défaut.






Bonjour Sabian
Le format doit être traduit en anglais :
Me.ctrlBirthDate.Value = Format
(Date, "dddd.mmmm.yyyy")




Cordialement
Pascal

"Sabian" a écrit dans le message de
news:077901c3ad10$eddd2140$
Salut...
J'ai un control Calendrier sur un UserForm.
Juste dessous, j'y ai placé un Label.
Dans ce Label, j'aimerai que la date sélectionnée
dans




mon
controle Calendrier s'affiche...
Pas de problème pour ça, j'ai placé un:

Me.lblBirthDate.caption = Me.ctrlBirthDate.Value

Qui je l'avoue fonctionne bien...
Maintenant, j'aimerai que le format du Caption du
Label




soit non pas 17.11.2003 comme c'est le cas à l'heure
actuelle, mais plutôt un Lundi, 17 novembre 2003.

Alors, j'ai placé juste devant le code que j'ai mis
pour




affiche la date, le code ci-dessous:

Me.ctrlBirthDate.Value = Format
(Date, "jjjj.mmmm.aaaa")





Mais nada, ça ne marche pas...
Merci pour votre aide...

Sabian...


--
Cordialement,

Michel Gaboly
http://www.gaboly.com


.




--
Cordialement,

Michel Gaboly
http://www.gaboly.com


.






Avatar
ru-th
Date est un mot réservé et il ne faut donc pas utiliser
Format(Date, ...)
Je croyais l'avoir déjà dit, mais c'était un autre fil ;-((


no comment !

a+
rural thierry (qui va se coucher avant de pêter un plomb !)

"Michel Gaboly" a écrit dans le message de news:

Re,

La date à formater ici provient du controle Calendar.

Date est un mot réservé et il ne faut donc pas utiliser
Format(Date, ...)

Je croyais l'avoir déjà dit, mais c'était un autre fil ;-((

lblBirthDate.Caption = Format(CDate(ctrlBirthDate),"dddd d mmmm aaaa")


Salut

si c'est un label (pas de value des labels)
Label1.Caption = Format(Date, "dddd d mmmm yyyy")
si c'est un textbox
TextBox1.Text = Format(Date, "dddd d mmmm yyyy")

a+
rural thierry

"Sabian" a écrit dans le message de news:
087201c3ad1c$4617a4b0$
Rien... ça vient pas le format voulu...
ça reste en 17.11.2003 que je mette avec "dddd dd mmmm
yyyy" ou avec "jjjj jj mmmm aaaa"...

Sabian...

-----Message d'origine-----
Bonjour,

Si tu veux avoir "Lundi 17", il faut "dddd d" ou "dddd dd"
selon que tu désires 05 ou 5 en début de mois.

Il faut donc (sans zéro en début de mois) :

"dddd d mmmm aaaa"

PS - Il n'est pas nécessaire de faire précéder le nom des
contrôles de "Me.", et pour les TextBox, tu peux aussi
éco-

nomiser le ".Value", car c'est leur propriété par défaut.



Bonjour Sabian
Le format doit être traduit en anglais :
Me.ctrlBirthDate.Value = Format(Date, "dddd.mmmm.yyyy")
Cordialement
Pascal

"Sabian" a écrit dans le message de
news:077901c3ad10$eddd2140$
Salut...
J'ai un control Calendrier sur un UserForm.
Juste dessous, j'y ai placé un Label.
Dans ce Label, j'aimerai que la date sélectionnée dans
mon


controle Calendrier s'affiche...
Pas de problème pour ça, j'ai placé un:

Me.lblBirthDate.caption = Me.ctrlBirthDate.Value

Qui je l'avoue fonctionne bien...
Maintenant, j'aimerai que le format du Caption du Label
soit non pas 17.11.2003 comme c'est le cas à l'heure
actuelle, mais plutôt un Lundi, 17 novembre 2003.

Alors, j'ai placé juste devant le code que j'ai mis pour
affiche la date, le code ci-dessous:

Me.ctrlBirthDate.Value = Format(Date, "jjjj.mmmm.aaaa")

Mais nada, ça ne marche pas...
Merci pour votre aide...

Sabian...


--
Cordialement,

Michel Gaboly
http://www.gaboly.com


.




--
Cordialement,

Michel Gaboly
http://www.gaboly.com







Avatar
Michel Gaboly
De rien, ;-))

Bonne soirée aussi



Nickel ! j'ai mis le code ci-dessous... tout fonctionne
nickel.

Merci et bonne soirée...

Sabian

-----Message d'origine-----
Re,

La date à formater ici provient du controle Calendar.

Date est un mot réservé et il ne faut donc pas utiliser
Format(Date, ...)

Je croyais l'avoir déjà dit, mais c'était un autre fil ;-
((


lblBirthDate.Caption = Format(CDate(ctrlBirthDate),"dddd
d mmmm aaaa")



Salut

si c'est un label (pas de value des labels)
Label1.Caption = Format(Date, "dddd d mmmm yyyy")
si c'est un textbox
TextBox1.Text = Format(Date, "dddd d mmmm yyyy")

a+
rural thierry

"Sabian" a écrit dans le message de news:
087201c3ad1c$4617a4b0$
Rien... ça vient pas le format voulu...
ça reste en 17.11.2003 que je mette avec "dddd dd mmmm
yyyy" ou avec "jjjj jj mmmm aaaa"...

Sabian...

-----Message d'origine-----
Bonjour,

Si tu veux avoir "Lundi 17", il faut "dddd d" ou "dddd
dd"



selon que tu désires 05 ou 5 en début de mois.

Il faut donc (sans zéro en début de mois) :

"dddd d mmmm aaaa"

PS - Il n'est pas nécessaire de faire précéder le nom
des



contrôles de "Me.", et pour les TextBox, tu peux aussi
éco-

nomiser le ".Value", car c'est leur propriété par
défaut.






Bonjour Sabian
Le format doit être traduit en anglais :
Me.ctrlBirthDate.Value = Format
(Date, "dddd.mmmm.yyyy")




Cordialement
Pascal

"Sabian" a écrit dans le message de
news:077901c3ad10$eddd2140$
Salut...
J'ai un control Calendrier sur un UserForm.
Juste dessous, j'y ai placé un Label.
Dans ce Label, j'aimerai que la date sélectionnée
dans




mon
controle Calendrier s'affiche...
Pas de problème pour ça, j'ai placé un:

Me.lblBirthDate.caption = Me.ctrlBirthDate.Value

Qui je l'avoue fonctionne bien...
Maintenant, j'aimerai que le format du Caption du
Label




soit non pas 17.11.2003 comme c'est le cas à l'heure
actuelle, mais plutôt un Lundi, 17 novembre 2003.

Alors, j'ai placé juste devant le code que j'ai mis
pour




affiche la date, le code ci-dessous:

Me.ctrlBirthDate.Value = Format
(Date, "jjjj.mmmm.aaaa")





Mais nada, ça ne marche pas...
Merci pour votre aide...

Sabian...


--
Cordialement,

Michel Gaboly
http://www.gaboly.com


.




--
Cordialement,

Michel Gaboly
http://www.gaboly.com


.




--
Cordialement,

Michel Gaboly
http://www.gaboly.com