Calendrier et repos avec numéro de semaine spécial

Bonjour,

je dois tout les mois faire un calendrier avec un numéro de semaine tout les lundis, là j'ai réussi une petite macro mais problème pourrais avoir la même chose simplement en mettant juste le numéro de repos par exemple qui me mettrait le numéro et les cases colorées en gris pour chaque repos. j'essaye depuis plusieurs semaines et impossible de réussir. Voir fichier ci joint si je réussi à le mettre avec ma question, on y verrai mieux.

Un grand merci cela m'éviterai pas mal de temps perdu et je pourrai avancer un peu sur d'autres tâches au bureau.

cordialement

Bonjour,

Le fichier n'est pas joint,regarde celui que je t'envoi sans avoir trop bien compris ta demande.

A +

Oui désolé mais mon fichier est trop gros j'envoie une image j'espère que cela ira,

et c'est presque cela.

Désolé je renvoi encore un fichier exemple avec le mois complet j'espère que vous comprendrez mieux, mon fichier est toujours trop gros pour le joindre ici. merci à Henri quand même, donc sur le mois il y a 8 repos et un numéro différents tout les lundi entre 21 et 28 suivant les repos.

Cordialement

Ouf, voilà mon fichier exemple compressé en espérant que cela ira, d'avance merci,

car je cherche toujours, le réaliser chaque fois que je l'utilise de différentes façon impossible, je ne suis pas assez expert pour ça.

Sachant que tout les lundis changement du numéro de semaine suivant les repos, ça pas de soucis cela fonctionne impeccablement. pour ceux que cela intéresse.

Sub Lundi()
    On Error Resume Next
    ValInitiale = ActiveCell.Value
    Set plgRech = Range(ActiveCell.Address & ":" & "IM5")
        For i = ActiveCell.Column To 300
                If ValInitiale = 29 Then ValInitiale = 21

            Cells(ActiveCell.Row, i).Value = ValInitiale
            ValInitiale = ValInitiale + 1
            i = i + 6

        Next
End Sub

ce qui m'intéresse c'est les repos à colorier suivant leurs numéros.

Grand merci

Bonjour

Essaies avec cette macro

Option Explicit

Sub Lundi()
Dim J As Long
Dim I As Integer
Dim Cl As Integer
Dim Num As Integer
Dim Coul

  ' Rouge, Vert brilliant, Bleu, Jaune,Vert, Bleu ciel, Vert clair, Jaune clair
  Coul = Array(3, 4, 5, 6, 10, 33, 35, 36)
  For J = 5 To Range("A" & Rows.Count).End(xlUp).Row
    If Val(Range("A" & J)) > 0 Then
      Cl = 4
      While Cells(2, Cl) <> "Lun"
       Cl = Cl + 1
      Wend
      Num = Val(Cells(J, Cl))
      If Num = 0 Then Num = 21
      With Cells(J, Cl)
        .Value = Num
        .Interior.ColorIndex = Coul(Num - 21)
      End With
      For I = Cl + 7 To Cells(2, Columns.Count).End(xlToLeft).Column Step 7
        Num = Num + 1
        If Num = 29 Then Num = 21
        With Cells(J, I)
          .Value = Num
          .Interior.ColorIndex = Coul(Num - 21)
        End With
      Next I
    End If
  Next J
End Sub

Bonjour et Merci Banzaï64,

ou je m'y prends mal ou je n'ai rien compris mais cela ne fonctionne pas avec moi.

pourtant il ne doit pas me manquer grand chose.

cordialement

Bonsoir

Je t'ai fais un bouton par feuille ( on pourra ne faire qu'un bouton qui traite toutes les feuilles)

Bonjour Banzai64 ,

Grand merci à toi, surtout que cela faisait longtemps que je faisais des essais pour trouver cette formule.

bonne journée

et encore merci

Halberick