Colorier calendrier 2020

Bonjour,

Je souhaiterais colorier la semaine01 en bleu et la semaine02 en bleu, ainsi de suite sur tout le calendrier. J'ai commencé une macro :
Sub color02()

Range("B8:B14").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("B15:B21").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 15773696
.TintAndShade = 0
.PatternTintAndShade = 0
End With
'etc...

End Sub

Si vous pouviez me suggérer la suite, merci !



“Impose ta chance, serre ton bonheur et va vers ton risque. A te regarder, ils s’habitueront.” René Char 

8 réponses

  1. Bonjour,

    Je souhaiterais colorier la semaine01 en bleu et la semaine02 en bleu, ainsi de suite sur tout le calendrier.

    De premier abord, si c'est pour colorier de la même couleur, autant le faire dés le départ
    0
    1. C'est pour faire un repère pour mon travail, semaine impair en bleu, pair en rouge, ainsi de suite sur la totalité !
      0
    2. @quentin2121Et le calendrier, il est où ??
      0
  2. Re,

    A tester
    https://mon-partage.fr/f/tyJCylZW/
    0
    1. merci bien, tu as fais comment ?
      c'est adaptable avec les mois à l'horizontal ?

      https://mon-partage.fr/f/qzhVh1Fn/
      0
      1. Re,
        Je regarde pour te le faire plus dynamique
        0
        1. Re,

          Voilà
          Le calendrier est dynamique
          Sur changement de l'année en ligne 1, il se met à jour
          Sam, Dim, Sem. paire et impair, Jours fériés
          https://mon-partage.fr/f/CHnvui89/
          0
          1. Bonjour et bonne année ,

            Super, tu as réussis, merci beaucoup !
            Je voudrais savoir ta formule pour mon information ! merci en attendant !
            0
            1. Re,

              La formule (plutôt les formules)
              Il faut être curieux dans la vie, et pour que tu progresses, il te suffit d'inspecter
              toi-même les formules, dans des colonnes qui sont peut-être masquées, dans les mises en forme, etc
              C'est comme cela que l'on devient autonome
              0
              1. Ok c'est ce que je m'étais dis après coup, il est question de "sierreur" comme fonction, je vais creuser cela !
                0
            2. Re,
              A savoir qu'Excel est bien fait, si tu sélectionnes la fonction, la touche F1 de ton clavier t'amène à son aide
              0