Date sous le forme Lundi 11 Décembre 2006

[DIGGERJACK]

Bonjour

J'ai une macro pour choisir une date grâce au calendrier mais je n'arrives pas à l'avoir sous la forme Lundi 11 Décembre 2006

Merci de votre aide
Diggerjack

 

[lacorse33]

Re : Date sous le forme Lundi 11 Décembre 2006

Bonjour Diggerjack,

Voici le format à utiliser : jjjj jj mmmm aaaa

J'espère que cela répond à ta demande.

 

[Gruick]

Re : Date sous le forme Lundi 11 Décembre 2006

Bonjour DIGGERJACK.

la formule VBA pour ta demande est

Selection.NumberFormat = "dddd dd mmmm yyyy"

Gruick

Oooops, Béa toujours aussi rapide......

 

[DIGGERJACK]

Re : Date sous le forme Lundi 11 Décembre 2006

Salut le forum

Merci pour vos réponses mais je souhaite la majuscule sur le jour de la semaine ainsi que pour le mois

Lundi Décembre

Merci pour votre aide

Diggerjack

 

[mjo]

Re : Date sous le forme Lundi 11 Décembre 2006

Bonjour,

A essayer :
=NOMPROPRE(TEXTE("la date";"jjjj jj mmmm aaaa"))

mjo

 

[DIGGERJACK]

Re : Date sous le forme Lundi 11 Décembre 2006

Bonsoir MJO

Ta formule fonctionne mais comment la mettre en application en VBA

Merci pour ton aide

Diggerjack

 

[mjo]

Re : Date sous le forme Lundi 11 Décembre 2006

Re,

Encore heureux que tu confirmes que la formule fonctionne, je ne m'en étais pas douté !

Pour la mettre sous macro, je ne puis pas t'aider, hélas !
J'avoue ne pas être assez malin pour cela.
Quelqu'un d'autre t'apportera fort probablement la solution.

Bon week-end quand même.
mjo

 

[pierrejean]

Re : Date sous le forme Lundi 11 Décembre 2006

bonsoir DIGGERJACK

Salut mjo

tu peux t'inspirer de cela

ladate = Format(CDate("12/12/2006"), "dddd dd mmmm yyyy")
MsgBox (Application.WorksheetFunction.Proper(ladate))

 

[Gruick]

Re : Date sous le forme Lundi 11 Décembre 2006

B'soir
Tu fais nouvelle macro, tu copies la formule de mjo sur la feuille de calcul, tu mets une bonne date ou une référence à une cellule la contenant, tu valides, tu arrêtes l'enregistrement auto, et, devant tes yeux ébahis, apparaît cette ligne :

ActiveCell.FormulaR1C1 = "=PROPER(TEXT(""12/12/2006"",""jjjj jj mmmm aaaa""))"

Une autre solution plus pro :

ActiveCell = Application.WorksheetFunction.Proper(Format(CDate("12/12/2006"), "dddd dd mmmm yyyy"))

Voilà.
Gruick

Ooops, PierreJean + rapide.

 

[DIGGERJACK]

Re : Date sous le forme Lundi 11 Décembre 2006

Bonsoir à tous et merci pour vos réponses
Je vais mettre tout cela en application

Bonne soirée

Diggerjack