Prob format date

Temjeh

XLDnaute Accro

• 27 Mai 2007

• #16

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

 

Dernière édition: 27 Mai 2007

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Mai 2007

• #17

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...

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 27 Mai 2007

• #18

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Mai 2007

• #19

Re : Prob format date

Re

pour tester si c'est un vendredi :

Code:

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.

@+

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 27 Mai 2007

• #20

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

 

Dernière édition: 27 Mai 2007

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Mai 2007

• #21

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...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Mai 2007

• #22

Re : Prob format date

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

@+

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 27 Mai 2007

• #23

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!

 

Pièces jointes

• Date.zip

  9.3 KB · Affichages: 15
• Date.zip

  9.3 KB · Affichages: 23
• Date.zip

  9.3 KB · Affichages: 13

Dernière édition: 27 Mai 2007

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Mai 2007

• #24

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....

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Mai 2007

• #25

Re : Prob format date

Re

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

Code:

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
@+

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 28 Mai 2007

• #26

Re : Prob format date

Merci

J'avais oublier ce post

Je garde le tout

A+

Temjeh

 

Vote positif 0 Vote négatif