Calendrier automatique sous exel

K

kjin

XLDnaute Barbatruc

• 24 Janvier 2010

• #2

Re : Calendrier automatique sous exel

Bonsoir,

Code:

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

 

Pièces jointes

• annov.xls

  24.5 KB · Affichages: 574

Vote positif 0 Vote négatif

A

annov

XLDnaute Occasionnel

• 24 Janvier 2010

• #3

Re : Calendrier automatique sous exel

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

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 24 Janvier 2010

• #4

Re : Calendrier automatique sous exel

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Janvier 2010

• #5

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+

 

Pièces jointes

• Calendrier(1).xls

  36 KB · Affichages: 585
• Calendrier(1).xls

  36 KB · Affichages: 597
• Calendrier(1).xls

  36 KB · Affichages: 601

Dernière édition: 25 Janvier 2010

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Janvier 2010

• #6

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+

 

Vote positif 0 Vote négatif

A

annov

XLDnaute Occasionnel

• 25 Janvier 2010

• #7

Re : Calendrier automatique sous exel

Merci à
tous pour cette aide précieuse .

 

Vote positif 0 Vote négatif