XL 2010 calcul de séquence travail repos

Novice avance !?

XLDnaute Occasionnel
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
 

Pièces jointes

  • test_grille.xlsm
    17.2 KB · Affichages: 43

vgendron

XLDnaute Barbatruc
Hello
un test avec cette macro
VB:
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
 

Statistiques des forums

Discussions
285 211
Messages
1 866 679
Membres
156 791
dernier inscrit
Cellsz
Haut Bas