BbertrandB
XLDnaute Nouveau
Re bonjour,
J'ai trouvé ce code :
Sub Calendrier()
'Alain Vallon, mpfe
varAn = Val(InputBox("Année ?", "CALENDRIER"))
If varAn = 0 Then Exit Sub 'clic sur touche Annuler ou la croix
X = DateSerial(varAn, 1, 1)
Y = DateValue("31 décembre " & varAn)
j = 1
For i = 0 To Y - X
If Weekday(X + i, 2) < 6 Then
Range("A" & j, "B" & j) = X + i
j = j + 1
End If
Next
Columns("A:A").NumberFormat = "dddd "
Columns("A:B").EntireColumn.AutoFit 'pour fignoler
End Sub
qui correspond à ce que je souhaite, sauf que j'aimerais y incorporer dans une colonne précédente pour chanque semaines, le numéro de semaine.
Ainsi qu'à chaque début de mois, le mois concerné.
Comment faire ??
Merci d'avance.
Bertrand.
J'ai trouvé ce code :
Sub Calendrier()
'Alain Vallon, mpfe
varAn = Val(InputBox("Année ?", "CALENDRIER"))
If varAn = 0 Then Exit Sub 'clic sur touche Annuler ou la croix
X = DateSerial(varAn, 1, 1)
Y = DateValue("31 décembre " & varAn)
j = 1
For i = 0 To Y - X
If Weekday(X + i, 2) < 6 Then
Range("A" & j, "B" & j) = X + i
j = j + 1
End If
Next
Columns("A:A").NumberFormat = "dddd "
Columns("A:B").EntireColumn.AutoFit 'pour fignoler
End Sub
qui correspond à ce que je souhaite, sauf que j'aimerais y incorporer dans une colonne précédente pour chanque semaines, le numéro de semaine.
Ainsi qu'à chaque début de mois, le mois concerné.
Comment faire ??
Merci d'avance.
Bertrand.