XL 2019 Recherche week-ends non travaillés

vincentbzh · 13 Décembre 2020

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

Hasco · 13 Décembre 2020

Bonjour,

En attendant mieux. Avec en B2:AC2 :

JOURSEM(DECALER(B$1;0;-MOD(COLONNE()+2;4);1;1);2)

et la formule en AE4 à tirer vers le bas :

=SOMMEPROD(N(ESTNUM(EQUIV(B4:AC4;{"Repos";"CP";"Récup.";"Conv.";"Repos.";"Dem";"Sup"};0)))*(B$2:AC$2=6))

Cordialement

vincentbzh · 13 Décembre 2020

Roblochon à dit:
Bonjour,

En attendant mieux. Avec en B2:AC2 :
et la formule en AE4 à tirer vers le bas :

Cordialement

Merci pour la réponse.
Je vais essayer de l'adapter à mon fichier.
Cordialement
Vincent

job75 · 13 Décembre 2020

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+

vincentbzh · 13 Décembre 2020

job75 à dit:
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

job75 · 13 Décembre 2020

Vous pouvez mettre des points mais alors ne pas les oublier quand c'est nécessaire.

vincentbzh · 13 Décembre 2020

job75 à dit:
Vous pouvez mettre des points mais alors ne pas les oublier quand c'est nécessaire.

Ok. Merci

XL 2019 Recherche week-ends non travaillés

vincentbzh

XLDnaute Occasionnel

Pièces jointes

Hasco

XLDnaute Barbatruc

Pièces jointes

vincentbzh

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

vincentbzh

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

vincentbzh

XLDnaute Occasionnel

Discussions similaires