Discussion :

[novice06]

Bonjour,

je me retrouve devant un problème pour calculer le nombre de 2 dimanches consécutifs travaillés ?
et pour les identifier de manière visuelle également.

Je joins le fichier avec plus d'explication pour une meilleure compréhension

Merci par avance pour votre aide

Bonne journée

[Philippe Tulliez]

Bonjour,
Pourquoi ne fais-tu pas un copier/coller de tes explications sur le forum avec une explication de l'organisation des données concernées ?
Tu multiplieras tes chances d'obtenir des réponses, tous les intervenants de ce forum n'ouvrent pas les classeurs à télécharger.

[Daniel.C]

Bonjour,

Utilise la macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub test()
    Dim Ctr As Long, Plage As Range, C As Range, Teste As Byte
    With Sheets("Feuil1")
        Set Plage = .Range("B2", .Cells(.Rows.Count, 2).End(xlUp))
        Plage.AutoFilter
        Plage.AutoFilter 1, "dimanche"
        Set Plage = Plage.Offset(1, 4).Resize(Plage.Rows.Count - 2).SpecialCells(xlCellTypeVisible)
        For Each C In Plage
            If C.Value = "" Then
                Teste = Teste + 1
            Else
                Teste = 0
            End If
            If Teste = 2 Then
                Ctr = Ctr + 1
                Teste = 0
            End If
        Next C
        MsgBox Ctr
    End With
End Sub

[novice06]

désolé pour le retour tardif
merci
effectivement la prochaine fois je retranscrirai directement les explications

Bonne journée