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 Frame et control calendar (Caption)

Frame et control calendar (Caption)

6 réponses
Avatar
Jacques
Salut a toutes et tous.

J'aimerai pouvoir pour une frame récupérer la date du control calendar lors
du click dans celui-ci, donc j'ai mis ce code.
Private Sub Calendar1_Click()
frmRécapitulatifJours.Caption = Calendar1.Value
End Sub
Mais, je préférerai l'avoir au format Jours / Mois / Année, ( avec si
possible une majuscule sur la première lettre du jours et du mois) .

Ex : Lundi 10 Janvier 2004 (Date non contractuelle, lol)

Es-ce possible?

Je vous remercie par avance, Ouille
Signaler un problème avec ce contenu

6 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
Pierre Fauconnier
Bonour Jacques

frmRecapitulatifJours.Caption=format(calendar1.Value,"dddd dd mmmm yyyy")

Cela convient-il?


"Jacques" a écrit dans le message de
news:cik8tp$kpk$
Salut a toutes et tous.

J'aimerai pouvoir pour une frame récupérer la date du control calendar
lors

du click dans celui-ci, donc j'ai mis ce code.
Private Sub Calendar1_Click()
frmRécapitulatifJours.Caption = Calendar1.Value
End Sub
Mais, je préférerai l'avoir au format Jours / Mois / Année, ( avec si
possible une majuscule sur la première lettre du jours et du mois) .

Ex : Lundi 10 Janvier 2004 (Date non contractuelle, lol)

Es-ce possible?

Je vous remercie par avance, Ouille





Avatar
LeSteph
Bonjour Jacques,
Essaie ceci:
Private Sub Calendar1_Click()
Dim meXp
Dim Ftx1
Dim Ftx2
Dim Ftx3
Dim Ftx4
Dim Ftx5
Dim Ftx6
Dim mtXt
meXp = Calendar1.Value
Ftx1 = UCase(Mid(Format(meXp, "ddd"), 1, 1))
Ftx2 = Mid(Format(meXp, "dddd"), 2, 9)
Ftx3 = Format(meXp, "dd")
Ftx4 = UCase(Mid(Format(meXp, "mmmm"), 1, 1))
Ftx5 = Mid(Format(meXp, "mmmm"), 2, 9)
Ftx6 = Format(meXp, "yyyy")
meXp = Ftx1 & Ftx2 & " " & Ftx3 & " " & _
Ftx4 & Ftx5 & " " & Ftx6

frmRécapitulatifJours.Caption = meXp
End Sub

'lStph
"Jacques" a écrit dans le message de
news:cik8tp$kpk$
Salut a toutes et tous.

J'aimerai pouvoir pour une frame récupérer la date du control calendar
lors

du click dans celui-ci, donc j'ai mis ce code.
Private Sub Calendar1_Click()
frmRécapitulatifJours.Caption = Calendar1.Value
End Sub
Mais, je préférerai l'avoir au format Jours / Mois / Année, ( avec si
possible une majuscule sur la première lettre du jours et du mois) .

Ex : Lundi 10 Janvier 2004 (Date non contractuelle, lol)

Es-ce possible?

Je vous remercie par avance, Ouille





Avatar
Jacques
Pierre, LeSteph, le forum

Merci, dans les deux cas cela fonctionne, avec en plus l'option de LeSteph,
pour les majuscules, que demande le peuple, (Mise a part, Mais ou va t'il
chercher cela???)

Merci et bonne soirée, Ouille.


"LeSteph" a écrit dans le message de
news:
Bonjour Jacques,
Essaie ceci:
Private Sub Calendar1_Click()
Dim meXp
Dim Ftx1
Dim Ftx2
Dim Ftx3
Dim Ftx4
Dim Ftx5
Dim Ftx6
Dim mtXt
meXp = Calendar1.Value
Ftx1 = UCase(Mid(Format(meXp, "ddd"), 1, 1))
Ftx2 = Mid(Format(meXp, "dddd"), 2, 9)
Ftx3 = Format(meXp, "dd")
Ftx4 = UCase(Mid(Format(meXp, "mmmm"), 1, 1))
Ftx5 = Mid(Format(meXp, "mmmm"), 2, 9)
Ftx6 = Format(meXp, "yyyy")
meXp = Ftx1 & Ftx2 & " " & Ftx3 & " " & _
Ftx4 & Ftx5 & " " & Ftx6

frmRécapitulatifJours.Caption = meXp
End Sub

'lStph
"Jacques" a écrit dans le message de
news:cik8tp$kpk$
Salut a toutes et tous.

J'aimerai pouvoir pour une frame récupérer la date du control calendar
lors

du click dans celui-ci, donc j'ai mis ce code.
Private Sub Calendar1_Click()
frmRécapitulatifJours.Caption = Calendar1.Value
End Sub
Mais, je préférerai l'avoir au format Jours / Mois / Année, ( avec si
possible une majuscule sur la première lettre du jours et du mois) .

Ex : Lundi 10 Janvier 2004 (Date non contractuelle, lol)

Es-ce possible?

Je vous remercie par avance, Ouille









Avatar
LeSteph
Bonsoir,
j'aurais pu faire plus simple,en une seule ligne
mais quelle tirade
là morcelé c'est plus clair
sans ces majuscules c'était plus simple
enfin comme l'a écrit Pierre
salut ouille et à bientôt!
leSteph
"Jacques" a écrit dans le message de
news:ciklmn$8hu$
Pierre, LeSteph, le forum

Merci, dans les deux cas cela fonctionne, avec en plus l'option de
LeSteph,

pour les majuscules, que demande le peuple, (Mise a part, Mais ou va t'il
chercher cela???)

Merci et bonne soirée, Ouille.


"LeSteph" a écrit dans le message de
news:
Bonjour Jacques,
Essaie ceci:
Private Sub Calendar1_Click()
Dim meXp
Dim Ftx1
Dim Ftx2
Dim Ftx3
Dim Ftx4
Dim Ftx5
Dim Ftx6
Dim mtXt
meXp = Calendar1.Value
Ftx1 = UCase(Mid(Format(meXp, "ddd"), 1, 1))
Ftx2 = Mid(Format(meXp, "dddd"), 2, 9)
Ftx3 = Format(meXp, "dd")
Ftx4 = UCase(Mid(Format(meXp, "mmmm"), 1, 1))
Ftx5 = Mid(Format(meXp, "mmmm"), 2, 9)
Ftx6 = Format(meXp, "yyyy")
meXp = Ftx1 & Ftx2 & " " & Ftx3 & " " & _
Ftx4 & Ftx5 & " " & Ftx6

frmRécapitulatifJours.Caption = meXp
End Sub

'lStph
"Jacques" a écrit dans le message de
news:cik8tp$kpk$
Salut a toutes et tous.

J'aimerai pouvoir pour une frame récupérer la date du control calendar
lors

du click dans celui-ci, donc j'ai mis ce code.
Private Sub Calendar1_Click()
frmRécapitulatifJours.Caption = Calendar1.Value
End Sub
Mais, je préférerai l'avoir au format Jours / Mois / Année, ( avec si
possible une majuscule sur la première lettre du jours et du mois) .

Ex : Lundi 10 Janvier 2004 (Date non contractuelle, lol)

Es-ce possible?

Je vous remercie par avance, Ouille













Avatar
Pierre Fauconnier
Salut...

Et moi, j'ai été trop paresseur que pour finasser sur les majuscules... :)

Bonne soirée

Pierre


"LeSteph" a écrit dans le message de
news:
Bonsoir,
j'aurais pu faire plus simple,en une seule ligne
mais quelle tirade
là morcelé c'est plus clair
sans ces majuscules c'était plus simple
enfin comme l'a écrit Pierre
salut ouille et à bientôt!
leSteph
"Jacques" a écrit dans le message de
news:ciklmn$8hu$
Pierre, LeSteph, le forum

Merci, dans les deux cas cela fonctionne, avec en plus l'option de
LeSteph,

pour les majuscules, que demande le peuple, (Mise a part, Mais ou va
t'il


chercher cela???)

Merci et bonne soirée, Ouille.


"LeSteph" a écrit dans le message de
news:
Bonjour Jacques,
Essaie ceci:
Private Sub Calendar1_Click()
Dim meXp
Dim Ftx1
Dim Ftx2
Dim Ftx3
Dim Ftx4
Dim Ftx5
Dim Ftx6
Dim mtXt
meXp = Calendar1.Value
Ftx1 = UCase(Mid(Format(meXp, "ddd"), 1, 1))
Ftx2 = Mid(Format(meXp, "dddd"), 2, 9)
Ftx3 = Format(meXp, "dd")
Ftx4 = UCase(Mid(Format(meXp, "mmmm"), 1, 1))
Ftx5 = Mid(Format(meXp, "mmmm"), 2, 9)
Ftx6 = Format(meXp, "yyyy")
meXp = Ftx1 & Ftx2 & " " & Ftx3 & " " & _
Ftx4 & Ftx5 & " " & Ftx6

frmRécapitulatifJours.Caption = meXp
End Sub

'lStph
"Jacques" a écrit dans le message de
news:cik8tp$kpk$
Salut a toutes et tous.

J'aimerai pouvoir pour une frame récupérer la date du control
calendar




lors
du click dans celui-ci, donc j'ai mis ce code.
Private Sub Calendar1_Click()
frmRécapitulatifJours.Caption = Calendar1.Value
End Sub
Mais, je préférerai l'avoir au format Jours / Mois / Année, ( avec
si




possible une majuscule sur la première lettre du jours et du mois)
.





Ex : Lundi 10 Janvier 2004 (Date non contractuelle, lol)

Es-ce possible?

Je vous remercie par avance, Ouille

















Avatar
LeSteph
Salut Pierre,
Si vraiment tu veux
tu peux finasser à ton tour sur format
d'heure un peu plus haut
car là c'est moi qui paressheu!
bonne soirée à toi aussi
;-))
"Pierre Fauconnier" a écrit dans le
message de news:%
Salut...

Et moi, j'ai été trop paresseur que pour finasser sur les majuscules... :)

Bonne soirée

Pierre


"LeSteph" a écrit dans le message de
news:
Bonsoir,
j'aurais pu faire plus simple,en une seule ligne
mais quelle tirade
là morcelé c'est plus clair
sans ces majuscules c'était plus simple
enfin comme l'a écrit Pierre
salut ouille et à bientôt!
leSteph
"Jacques" a écrit dans le message de
news:ciklmn$8hu$
Pierre, LeSteph, le forum

Merci, dans les deux cas cela fonctionne, avec en plus l'option de
LeSteph,

pour les majuscules, que demande le peuple, (Mise a part, Mais ou va
t'il


chercher cela???)

Merci et bonne soirée, Ouille.


"LeSteph" a écrit dans le message de
news:
Bonjour Jacques,
Essaie ceci:
Private Sub Calendar1_Click()
Dim meXp
Dim Ftx1
Dim Ftx2
Dim Ftx3
Dim Ftx4
Dim Ftx5
Dim Ftx6
Dim mtXt
meXp = Calendar1.Value
Ftx1 = UCase(Mid(Format(meXp, "ddd"), 1, 1))
Ftx2 = Mid(Format(meXp, "dddd"), 2, 9)
Ftx3 = Format(meXp, "dd")
Ftx4 = UCase(Mid(Format(meXp, "mmmm"), 1, 1))
Ftx5 = Mid(Format(meXp, "mmmm"), 2, 9)
Ftx6 = Format(meXp, "yyyy")
meXp = Ftx1 & Ftx2 & " " & Ftx3 & " " & _
Ftx4 & Ftx5 & " " & Ftx6

frmRécapitulatifJours.Caption = meXp
End Sub

'lStph
"Jacques" a écrit dans le message de
news:cik8tp$kpk$
Salut a toutes et tous.

J'aimerai pouvoir pour une frame récupérer la date du control
calendar




lors
du click dans celui-ci, donc j'ai mis ce code.
Private Sub Calendar1_Click()
frmRécapitulatifJours.Caption = Calendar1.Value
End Sub
Mais, je préférerai l'avoir au format Jours / Mois / Année, ( avec
si




possible une majuscule sur la première lettre du jours et du
mois)





.

Ex : Lundi 10 Janvier 2004 (Date non contractuelle, lol)

Es-ce possible?

Je vous remercie par avance, Ouille