XL 2010 calcul de séquence travail repos

[Novice avance !?]

bonjour,
j'aurais aimé avoir votre aide sur le calcul de séquence d'une grille de repos svp ...

1ère colonne : les jours du 1er au 31 décembre
2ème colonne : vide si travail sinon R, H ou D pour les repos

j'aurais besoin de faire ressortir la séquence 6 - 1 - 6 : 6 jours de travail - 1 jour de repos - 6 jours de travail

j'ai mis un fichier test si ça peut vous aider

merci par avance

bonne journée

 

[vgendron]

Hello
un test avec cette macro

Sub colore()
i = 8
While i < 366
     Set avant = Range("B" & i).Offset(-6, 0).Resize(6, 1)
     Set apres = Range("B" & i).Offset(1, 0).Resize(6, 1)
     If Cells(i, 2) <> "" Then
        If Application.WorksheetFunction.CountA(avant) = 0 And Application.WorksheetFunction.CountA(apres) = 0 Then
            Union(avant, apres, Cells(i, 2)).Interior.ColorIndex = 6
        End If
    End If
    i = i + 1
Wend
End Sub

 

[Novice avance !?]

parfait merci beaucoup
j'ai pu l'adapter à ma grille de repos complète
bonne journée