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

 

[Temjeh]

Re : Prob format date

Rebonjour

Tu as raison je regardais Juin sur mon calendrier papier et juillet sue mon range

...désolé et merci de reter éveiller

A+

Pour le +1 si je le met pas ca fonctione bien!

Voici le final qui est cliquer chaque vendredi avec ma date du jour en A1:

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), vbFriday, vbFirstFourDays)
z = (x - y)
Range("A3") = "V" & z & " / " & WorksheetFunction.Proper(Format(Range("A1"), "dddd dd mmm yyyy"))

Temjeh

 

[Pierrot93]

Re : Prob format date

Re

attention tu définis x en utilisant l'argument "vbfriday" et y avec l'argument "vbmonday"... ceci expliquerait peut être cela... Mais pour moi il faut bien rajouter 1...

 

[Temjeh]

Re : Prob format date

Bonjour

Sans abuser

Je voudrais y faire un test:

If Range("A1") n'est pas un vendredi then
MsgBox "Pas un vendredi";Exit Sub
...mon code

Merci

A+

Temjeh

 

[Pierrot93]

Re : Prob format date

Re

pour tester si c'est un vendredi :

If Weekday(Range("A1").Value) <> 6 Then MsgBox "pas un vendredi": Exit Sub

tu as vu mondernier post sur la définition des arguments, tu ne m'as pas répondu.

@+

 

[Temjeh]

Re : Prob format date

Merci je n'avais pas uptdater j'avais éditer à 8:08 avant que tu me répondre pour la correction

Le test est parfait!

Merci

Temjeh

 

[Pierrot93]

Re : Prob format date

Re

si j'en crois mon calendrier, si la semaine commence un vendredi, la 1ére semaine de septembre commence le vendredi 31 aout, et donc pour moi le vendredi 28 septembre est le 1er jour de la 5ème semaine de septembre 2005....enfin je crois...

 

[Pierrot93]

Re : Prob format date

Aarf tu as enlevé ton fichier sur septembre, je suis trop lent...

@+

 

[Temjeh]

Re : Prob format date

Merci

Juste une vision différente de l'affaire

Je batit ce code pour un amis qui ptêtre pense aussi comme toi(je le vois ce soir)

Je cherchais simplement le no du vendredi:

Septembre:
7
14
21
28 ..4ème

A+

Temjeh

Je te le remet

Au moins je saurai comment l'adapté

Merci je suis très content de ce code!

 

[Pierrot93]

Re : Prob format date

Re

aucun problème Temjeh, par contre dans toutes mes explications et tous mes codes je cherchais un numéro de SEMAINE et non à trouver le numéro du VENDREDI, vu comme ceci effectivement c'est different et pour septembre c'est bien le 4ème VENDREDI de septembre dans la 5ème SEMAINE....

 

[Pierrot93]

Re : Prob format date

Re

une dernière proposition pour retrouver le VENDREDI d'un mois :

Sub test()
Dim d As Date, x As Byte
If Weekday(Range("A1").Value) <> 6 Then MsgBox "Pas un vendredi": Exit Sub
For d = DateSerial(Year(Range("A1").Value), Month(Range("A1").Value), 1) To Range("A1").Value
    If Weekday(d) = 6 Then x = x + 1
Next d
Range("A3") = "V" & x & " / " & WorksheetFunction.Proper(Format(Range("A1"), _
    "dddd dd mmmm yyyy"))
End Sub

elle me semble un peu plus sure, à toi de voir.

bonne fin d'après midi
@+

 

[Temjeh]

Re : Prob format date

Merci

J'avais oublier ce post

Je garde le tout

A+

Temjeh