Comptage de jours consécutifs

[chasseur44]

Bonsoir à tous
Je cherche à vérifier que des personnes ont bien pris au moins 12 jours consécutifs sur la période (voir exemple) et ceci par une formule de calcul !
Je ne sais pas comment m'y prendre ? et est-ce faisable ?
bien sur les croix peuvent etre remplacé par une valeur numérique
Merci de votre aide

 

[JNP]

Re : Comptage de jours consécutifs

Bonsoir Chasseur44 ,
Une possibilité avec les x, et une colonne intermédiaire, ou avec des valeurs numériques .
Bonne soirée

 

[JBOBO]

Re : Comptage de jours consécutifs

Bonjour,

Un essai en P.J. les lignes peuvent etre masquée ou placer ailleurs

 

[JCGL]

Re : Comptage de jours consécutifs

Bonjour à tous,

Un essai avec :

Option Explicit

Private Sub CommandButton1_Click()
    Dim Lig As Long, LigDeb As Long, LigFin As Long
    Dim Col As Long, ColDeb As Long, ColFin As Long
    Dim CellVide As Integer

    LigDeb = 3
    LigFin = 20

    For Lig = LigDeb To LigFin
        ColDeb = 3
        ColFin = 200
        CellVide = 0

        For Col = ColDeb To ColFin
            If Cells(Lig, Col).Value = "x" Then
                CellVide = CellVide + 1
                If Cells(Lig, Col + 1).Value = "x" And Cells(Lig, Col + 12).Value = "x" Then
                    Cells(Lig, 2).Interior.ColorIndex = 4
                    Cells(Lig, 1) = "Bon"
                    GoTo Suivant
                Else
                    Cells(Lig, 2).Interior.ColorIndex = 40
                    Cells(Lig, 1) = "Pas Bon"
                    
                End If
            End If
        Next Col
Suivant:
    Next Lig
End Sub

A+ à tous

 

[chasseur44]

Re : Comptage de jours consécutifs

Merci à tous pour votre aide ! cela répond à mon besoin et en plus cela me forme !