XL 2019 Recherche week-ends non travaillés

vincentbzh

XLDnaute Occasionnel
Bonjour,
j'essaie de créer une formule afin de me remonter les samedis et dimanches non travaillés suivant des dates et des termes bien précis.
Je vous joint un fichier avec la formule que j'essai de créer mais malheureusement qui ne fonctionne pas ........

Si quelqu'un pouvait m'aider, me dire pourquoi ça ne fonctionne pas et me trouver une solution .....

Merci d'avance
Vincent
 

Pièces jointes

  • Planning recherche week-end.xlsx
    17.8 KB · Affichages: 14

job75

XLDnaute Barbatruc
Bonsoir vincentbzh, Roblochon,

Voyez le fichier .xlsm joint et cette fonction VBA :
VB:
Function SommeJour(plage As Range, dates As Range, jour$)
Dim critere, i%, j%
critere = Array("CP", "Récup", "Repos", "Conv", "Dem", "Repos", "Sup")
For i = 1 To plage.Count
    If IsNumeric(Application.Match(plage(i), critere, 0)) Then
        For j = i To 1 Step -1
            If dates(j) <> "" Then
                If Format(dates(j), "dddd") = LCase(jour) Then SommeJour = SommeJour + 1
                Exit For
            End If
        Next j
    End If
Next i
End Function
Formule en AE4 à tirer à droite et vers le bas =SommeJour($B4:$AC4;$B$1:$AC$1;AE$1)

Nota : les points semant le bazar je les ai tous supprimés.

A+
 

Pièces jointes

  • Planning recherche week-end(1).xlsm
    24 KB · Affichages: 3

vincentbzh

XLDnaute Occasionnel
Bonsoir vincentbzh, Roblochon,

Voyez le fichier .xlsm joint et cette fonction VBA :
VB:
Function SommeJour(plage As Range, dates As Range, jour$)
Dim critere, i%, j%
critere = Array("CP", "Récup", "Repos", "Conv", "Dem", "Repos", "Sup")
For i = 1 To plage.Count
    If IsNumeric(Application.Match(plage(i), critere, 0)) Then
        For j = i To 1 Step -1
            If dates(j) <> "" Then
                If Format(dates(j), "dddd") = LCase(jour) Then SommeJour = SommeJour + 1
                Exit For
            End If
        Next j
    End If
Next i
End Function
Formule en AE4 à tirer à droite et vers le bas =SommeJour($B4:$AC4;$B$1:$AC$1;AE$1)

Nota : les points semant le bazar je les ai tous supprimés.

A+
Bonjour,
merci pour ta réponse mais j'ai besoin des points pour d'autres recherches.
Je vais voir.
Bonne soirée
Vincent
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 889
Membres
101 831
dernier inscrit
gillec