Prob format date

[Temjeh]

Bonsoir

J'ai juste besoin d'aide concernant un format en vba (Pas en formule car que la date ne doit pas changer demain))

J'ai un bout du code:

En ...A1 j'ai aujourdhui() au format "26 mai 2007"
...en B1 une liste de V1 à V4

Range("A3") = Range("B1") & " / " & Range("A1")

Le résultat est bon: V1 / 2007-05-26

Mais j'aimerais comme ca: V1 / vendredi 26 mai

Merci

Temjeh

 

[tirex28]

Re : Prob format date

Bonsoir,

Range("A3") = Range("B1") & " / " & Format(Range("A1"), "dddd dd mmm")

Cordialement,
Tirex28

 

[Mytå]

Re : Prob format date

Salut Temjeh et le forum

Essaye ceci

Range("A3") = Range("B1") & " / " & Format(Range("A1"), "dd mmmm yyyy")

Mytå

 

[Temjeh]

Re : Prob format date

Meci beaucoup Mytå, tirex28

Désolé pour le manque de clarté(dans mon ex 2007-05-26 ne donne pas vendredi mais le jour aujourdhui)

Celle de tirex28 me va tres bien sauf que j'aimerais y ajouté l'année

Ce qui donnerais: Dimanche 28 mai 2007

Merci beaucoup

Temjeh

 

[Temjeh]

Re : Prob format date

Ok j'ai trouvé

yyyy j'y essayais avec aaaa

Range("A3") = Range("B1") & " / " & Format(Range("A1"), "dddd dd mmm yyyy")

V1 / dimanche 27 mai 2007 ...V1 / Dimanche 27 mai 2007

Si vous avez une dernière idée pour le D de dimanche en majuscule
A+

Temjeh

 

[Pierrot93]

Re : Prob format date

Bonjour Temjeh, Myta, Tyrex

essaye peut être le code ci dessous :

Range("A3") = Range("B1").Value & " / " & WorksheetFunction.Proper(Format(Range("A1"), "dddd dd mmm yyyy"))

bon dimanche
@+

 

[Temjeh]

Re : Prob format date

Merci beaucoup

J'avais trouvé =NOMPROPRE(A3) mais j'aime mieux vba au cas ou la cell qui recois change

Merci beaucoup

Temjeh

 

[Temjeh]

Re : Prob format date

Rebonjour

Je reviens sur ce post

Dernière question!

Y a t il une formule excel qui me donne le no de semaine (lundi au dimanche)...4 par mois

Ex: test sur date en A1 si 27 mai 2007 me donne 4 (6mai, 13 ,20, 27 ...4ème)

Pour juin il y en aurais 5

1 ven 1ère
8 ven 2ème
15 ven 2ème
22 ven 2ème
29 ven 2ème

Merci pour une direction

Temjeh

 

[jeanpierre]

Re : Prob format date

Bonjour Temjeh, Pierrot, Myta, tirex28, re le forum,

Tu as bien la fonction :
NO.SEMAINE(la cellule;1 ou 2 selon que la semaine débute le dimanche ou le lundi)

Il convient que l'Utilitaire d'analyse soit actif dans tes macros complémentaires...

En norme ISO, elle ne fonctionne pas pour toutes les années... par contre, elle est valable en norme US....

Bon dimanche

Jean-Pierre

 

[Temjeh]

Re : Prob format date

Merci beaucoup ta formule fonctionne

Pour aujourdhui ca me donne 21 mais comment avoir 4 pour la 4ème semaine du mois

Merci

Temjeh

 

[Pierrot93]

Re : Prob format date

Re, bonjour JeanPierre

par formule je sais pas, mais en vba ca peut peut être coller avec le code ci dessous :

Sub test()
Dim d As Date, x As Byte, y As Byte, z As Byte
d = Range("A1").Value
x = DatePart("ww", d, vbMonday, vbFirstFourDays)
y = DatePart("ww", DateSerial(Year(d), Month(d), 1), vbMonday, vbFirstFourDays)
z = (x - y) + 1
End Sub

le 1er jour d'une semaine est le lundi et la 1ere semaine de l'année a au moins 4 jours.

a voir si cela peut t aider.

bon après midi
@+

edition : lire 1er jour de la semaine = lundi, désolé

 

[jeanpierre]

Re : Prob format date

Re,

Avec et peut-être... :

=NO.SEMAINE(A1;2)-(NO.SEMAINE(A1;2)-MOIS(A1)+1)

A te lire.

Jean-Pierre

Salut Pierrot : trop rapide toi.... bon week-end...

 

[Temjeh]

Re : Prob format date

Merci pour vos suggestion

Pour celle en vba ca fonctionne seulement pour certainne semaine

Si J'y met 6 juillet 2005 il me met 2 aulieu de 1

Ptêtre juste un ajustement

Dim d As Date, x As Byte, y As Byte, z As Byte
d = Range("A1").Value
x = DatePart("ww", d, vbMonday, vbFirstFourDays)
y = DatePart("ww", DateSerial(Year(d), Month(d), 1), vbMonday, vbFirstFourDays)
z = (x - y) + 1
MsgBox z

Merci
Autremet dit je cherche le no des vendredi

Temjeh

 

[Temjeh]

Re : Prob format date

Ok

Dim d As Date, x As Byte, y As Byte, z As Byte
d = Range("A1").Value
x = DatePart("ww", d, vbFriday, vbFirstFourDays)
y = DatePart("ww", DateSerial(Year(d), Month(d), 1), vbMonday, vbFirstFourDays)
z = (x - y)
MsgBox z

sans le +1 et avec friday ca a l'air a fonctionner

Merci

Temjeh

Ps pour en formule a moins que je me trompe si je change de mois ca ne me donne pas le bon n
o

 

[Pierrot93]

Re : Prob format date

Re

comprends pas, a priori le 6 juillet 2005 est bien dans la 2ème semaine, il tombe un mercredi, le 1er jour de la semaine étant un lundi, pour moi le lundi 4 juillet est le premier jour de la 2ème semaine et le 3 juillet est le dernier jour de la première semaine de juillet... ou alors il y a quelque chose qui m'échappe, c'est tout a fait possible.
@+