XL 2010 calcul de séquence travail repos

Novice avance !? · 25 Août 2017

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 · 25 Août 2017

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

Novice avance !? · 25 Août 2017

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

XL 2010 calcul de séquence travail repos

Novice avance !?

XLDnaute Occasionnel

Pièces jointes

vgendron

XLDnaute Barbatruc

Novice avance !?

XLDnaute Occasionnel

Discussions similaires