Discussion :

[chris_ij32]

Bonjour,
J'imagine que cette question a été posée plusieurs fois, mais je n'ai pas trouvé de réponse.
Je souhaite faire un calendrier avec les classiques we et jours fériés.
Je charge mon calendrier à l'ouverture du classeur en fonction de l'année sélectionnée.
Voici le code pour les we, tout fonctionne normalement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    mois_test = mois + 1
    If mois_test = 13 Then mois_test = 1
      nb_jours_mois = Day(CDate(1 & "/" & mois_test & "/" & annee) - 1)
      For jour = 1 To nb_jours_mois
        date_en_cours = CDate(jour & "/" & mois & "/" & annee)
        'mise en forme de la date dans le calendrier avec ' et majuscule
        Cells(jour + 2, mois * 2 - 1) = "'" & UCase(Replace(Format(date_en_cours, "ddd dd"), ".", ""))
        jour_sem_en_cours = Weekday(date_en_cours)
        'samedi = 7 & dimanche = 1
        If jour_sem_en_cours = 7 Or jour_sem_en_cours = 1 Then
          'remplissage en bleu clair des we
          Cells(jour + 2, mois * 2 - 1).Interior.Color = RGB(205, 218, 239)
          Cells(jour + 2, mois * 2).Interior.Color = RGB(205, 218, 239)
        End If

etc...
J'ai les dates précédées d'une cote, exemple :
'OCTOBRE
'LUN 01
'MAR 02 ...
Dans une feuille jours_fériés j'ai ma liste de jours fériés pour l'année sélectionnée.
Je souhaiterai que les jours fériés soit colorés de la même façon que les we.
J'ai pensé à la mise en forme conditionnelle, mais comme les dates ne sont pas au même format, évidemment cela ne fonctionne pas.
Y a t il une astuce pour le faire en VBA ?
Ou avez-vous une autre idée ?
Merci
Cordialement
Chris

[Philippe Tulliez]

Bonjour,
Pour sortir un calendrier annuel avec ou sans les Week-End et jours fériés avec ou sans couleur sur ceux-ci il n'y a pas besoin de code VBA. A l'aide de toutes les fonctions natives d'excel c'est réalisable.

Bonjour,
A propos de

J'ai pensé à la mise en forme conditionnelle, mais comme les dates ne sont pas au même format, évidemment cela ne fonctionne pas.

Si la valeur qui se trouve dans la cellule, est une date, la mise en forme conditionnelle fonctionnera, quelle que soit le format appliqué. Encore faut-il y mettre la bonne formule.
Si tu expliquais comment sont organisées tes données, plage à formater, plage des jours fériés, adresses de celles-ci etc..., on pourrait peut-être t'aider.

[helas]

Bonjour,
par ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Private Sub Workbook_Open()
 Dim d As Date, c As Variant
 d = #1/1/2012#
 For mois = 1 To 12
  jour = 1
  m = Month(d)
  Do Until m <> mois
   Sheets("Feuil1").Cells(jour, mois) = jour
 
   'couleur de la cellule pour le jour de la semaine
   Select Case Format$(d, "dddd")
   Case "samedi", "dimanche"
    Sheets("Feuil1").Cells(jour, mois).Interior.Color = RGB(200, 200, 200)
   End Select
 
   'couleur de la cellule pour le jour ferie
   Set c = Sheets("Feuil2").Range("A1:A6").Find(d, LookIn:=xlValues)
   If Not c Is Nothing Then
    Sheets("Feuil1").Cells(jour, mois).Interior.Color = RGB(200, 100, 200)
   End If
 
   jour = jour + 1
   d = d + 1
   m = Month(d)
  Loop
 Next mois
End Sub

Les jours feries sont listés dans cet exemple sur la feuille 2 de A1 à A6
Il est possible de faire des adaptations pour l'affichage, les couleurs, etc

[Qwazerty]

Salut
Tu peux aussi utiliser un calendrier perpétuel.
++
Qwaz