Calendrier

Le
Pascal
Bonjour,
Je n'arrive pas à faire un calendrier qui:
Serait fait de façon à ce que dernière semaine à cheval sur deux mois, soit
incluse sur le mois ou elle commence.
Comme la semaine 5/2007 ou en fait le 03/02/07 serait sur janvier. Je sais
c'est pas très catholique mais bon;
Merci
Pascal





Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000748-2, 09/06/2007
Analyse le : 11/06/2007 09:12:38
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
AV
Le #4578801
A partir d'une feuille vide :

Sub LesSemaines()
Application.ScreenUpdating = False
an = InputBox("Millésésime ?", "")
If an = "" Then Exit Sub
j1 = DateSerial(an, 1, 1)
While Weekday(j1, 2) > 1
j1 = j1 + 1
Wend
derJour = Evaluate("date(" & an & ",13,0)-choose(weekday(date(" & an &
",13,0)),6,0,1,2,3,4,5)") + 6
x = 1: y = 1
For i = j1 To derJour
Cells(x, y) = i
x = x + 1: j1 = j1 + 1
If x = 8 Then x = 1: y = y + 1
Next
Cells.EntireColumn.AutoFit
End Sub

http://cjoint.com/?glkb5JILaQ

AV
Pascal
Le #4578731
Merci Alain
Mais comment traduire en formule ta ligne derJour car j'ai fais mon
calendrier avec les mois en Col?
Pascal

"AV" epOF27$
A partir d'une feuille vide :

Sub LesSemaines()
Application.ScreenUpdating = False
an = InputBox("Millésésime ?", "")
If an = "" Then Exit Sub
j1 = DateSerial(an, 1, 1)
While Weekday(j1, 2) > 1
j1 = j1 + 1
Wend
derJour = Evaluate("date(" & an & ",13,0)-choose(weekday(date(" & an &
",13,0)),6,0,1,2,3,4,5)") + 6
x = 1: y = 1
For i = j1 To derJour
Cells(x, y) = i
x = x + 1: j1 = j1 + 1
If x = 8 Then x = 1: y = y + 1
Next
Cells.EntireColumn.AutoFit
End Sub

http://cjoint.com/?glkb5JILaQ

AV



---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000748-2, 09/06/2007
Analyse le : 11/06/2007 10:27:33
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000748-2, 09/06/2007
Analyse le : 11/06/2007 10:31:27
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

AV
Le #4578691
Mais comment traduire en formule ta ligne derJour car j'ai fais mon calendrier
avec les mois en Col?


C'est à dire ?
Tu n'as pas le résultat attendu ?
Un petit extrait du produit fini, dans sa présentation souhaitée, serait le
bienvenu
http://www.cjoint.com

AV

Pascal
Le #4578641
J'ai fais cela tu en penses quoi.
Mon =SI(ET(B$28<>"";B$28+1=D$2);"";B28+1) est un peu alambiqué mais

http://www.cijoint.fr/cij58465099016110.xls
Pascal

"AV"
Mais comment traduire en formule ta ligne derJour car j'ai fais mon
calendrier avec les mois en Col?


C'est à dire ?
Tu n'as pas le résultat attendu ?
Un petit extrait du produit fini, dans sa présentation souhaitée, serait
le bienvenu
http://www.cjoint.com

AV



---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000748-3, 11/06/2007
Analyse le : 11/06/2007 11:11:45
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000748-3, 11/06/2007
Analyse le : 11/06/2007 11:14:41
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


AV
Le #4578601
J'ai fais cela tu en penses quoi.


L'important est que ça te convienne...

AV

Publicité
Poster une réponse
Anonyme