Calendrier automatique sous exel

[annov]

Bonjour,

Je souhaite avoir un calendrier automatique dans une feuille de calcul .Exemple JE marque le mois et l'année dans la cellule A1 "janvier 2010" et les jours et les dates ouvrées du mois en cours s'affichent sous celle CI .

JY a t'il une astuce .Je précise que je suis débutant sur vba.

Merci d'avance.

 

[kjin]

Re : Calendrier automatique sous exel

Bonsoir,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
On Error Resume Next 'si erreur de saisie
Range("A2:A30").ClearContents
If Target.Address = "$A$1" And Target <> "" Then
    z = 2
    M = Month(Target)
    Y = Year(Target)
    x = DateAdd("m", 1, Target) - Target
    For i = 1 To x
        j = Weekday(DateSerial(Y, M, i), 1)
        If j <> 7 And j <> 1 Then
            Application.EnableEvents = False
            Cells(z, 1) = DateSerial(Y, M, i)
            z = z + 1
            Application.EnableEvents = True
        End If
    Next
End If

End Sub

A+
kjin

 

[annov]

Re : Calendrier automatique sous exel

Super ça marche ! Merci pour ton aide .
A+

 

[kiki29]

Re : Calendrier automatique sous exel

Salut, si tu veux aller plus loin il y a Les dates

 

[job75]

Re : Calendrier automatique sous exel

Bonsoir annov, kjin, kiki29,

Un exemple de calendrier que l'on peut facilement construire avec des formules.

Mise en forme conditionnelle (MFC) avec 3 conditions sur le calendrier (plage A5:B35) :

- pour les 29 30 et 31 du mois et si B2 est vide

- pour les week-ends

- pour les jours fériés.

Edition : voir les formules pour les jours fériés variables.

Ajouté MFC sur les jours fériés fixes (plage J3:IV10).

A+

 

[job75]

Re : Calendrier automatique sous exel

Bonjour le fil, le forum,

Pour le calcul de la date en B5, je découvre que ça fonctionne en remplaçant :

=DATEVAL(LIGNES(B$5:B5)&" "&$A$2&" "&$B$2)

par :

=DATEVAL(LIGNES(B$5:B5)&$A$2&$B$2)

Vérifier cependant que ça fonctionne bien sur Excel 97/2000 et 2007 (j'ai Excel 2003).

A+

 

[annov]

Re : Calendrier automatique sous exel

Merci à
tous pour cette aide précieuse .