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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
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
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
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
Merci Alain Mais comment traduire en formule ta ligne derJour car j'ai fais mon calendrier avec les mois en Col? Pascal
"AV" a écrit dans le message de news: 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
Merci Alain
Mais comment traduire en formule ta ligne derJour car j'ai fais mon
calendrier avec les mois en Col?
Pascal
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
epOF27$qHHA.4200@TK2MSFTNGP05.phx.gbl...
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
Merci Alain Mais comment traduire en formule ta ligne derJour car j'ai fais mon calendrier avec les mois en Col? Pascal
"AV" a écrit dans le message de news: 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
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
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
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
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
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
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
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
uRwqWeArHHA.1296@TK2MSFTNGP06.phx.gbl...
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
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