nombre de jours consécutifs

[jopont]

Bonsoir

Dans le fichiers joint, j'ai des feuilles qui correspondent à des mois.
Dans chaque mois je compte le nombre de "ACT" et de "A"
J'aimerais avertir l'utilisateur via une procédure VBA quand le nombre consécutifs de "ACT" et de "A" est strictement supérieur à 30.
le problème se pose lorsque l'on est a cheval sur deux mois
merci de votre aide

 

[Hervé]

Re : nombre de jours consécutifs

salut

une tentative de réponse :

code à placer dans le module thisworkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim i As Byte
Dim j As Integer
Dim cpt As Byte

For i = 1 To Sheets.Count
    With Sheets(i)
        For j = 1 To .Range("iv2").End(xlDown).Column
            If .Cells(2, j) = "ACT" Or .Cells(2, j) = "A" Then
                cpt = cpt + 1
                If cpt > 30 Then
                    MsgBox "STOP, le nombre consécutif de ACT et de A est strictement supérieur à 30.", _
                    vbCritical, "PAS BON DU TOUT"
                    Exit Sub
                End If
            End If
        Next
    End With
Next i
         
End Sub

bye

 

[jopont]

Re : nombre de jours consécutifs

Le problème c'est qu'à chaque ligne ( 3 à 65) je dois faire le compte.
Chaque ligne correspond à une personne.
De plus je ne veux pas faire le compte sur toutes les feuilles de mon classeur ( seulement celles des mois)

est-ce que ton code prend en compte les "A" et "ACT" à cheval sur les mois ?

Enfin pourquoi range "iv2" ?

merci