Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

titooooo

XLDnaute Occasionnel
bonjour

j'ai un pb pour trouver une formule voila ce que je veut avoir

j'ai un planning de deux semaine de suite

je veut déterminer si un agent travaille plus que 6 jour ou 5 jours de suite

par exemple

un agent numéro 5 travaille comme ceci
Semaine 1
il travaille de lundi
se repose mardi
travaille mercredi , jeudi
se repose le vendredi
travaille le samedi dimanche

la Semaine 2
il travaille lundi mardi mercredi jeudi vendredi

donc il travaille 7 jour de suite

j'aimerais avoir une formule qui me calcule cela

et si je fixe que la limite c'est 5 jour ou 6 jour comment faire

autre chose si possible mes amis

voici un exemple du planning et dans la dernière cellule qui me donne le nombre d'heures

voici ce que je cherche une formule qui me donne le nombre de jours de suite

et le nombre d'heures de suite

qq un qui travaille en régime 4*10 heures qui travaille 6 jours ca fait 60 heures de suite
 

Pièces jointes

Re : aide formule excel

bonjour titooooo,

Je te propose une solution par fonctions personnalisées :

VB:
Function Nb_Jours_Suite()
Application.Volatile
Dim c As Range, N As Integer, Max As Integer
Set c = Feuil1.Cells(Application.Caller.Row, "K")
Do While c.Column < 90 '(jusqu'en colonne CK)
  If c = 0 Then
    Max = Application.Max(N, Max)
    N = 0
  Else
    N = N + 1
  End If
  Set c = c.Offset(, 6)
Loop
If Max < N Then Max = N
Nb_Jours_Suite = Max
End Function

Function Nb_Heures_Suite() As Double
Application.Volatile
Dim c As Range, N As Double, Max As Double
Set c = Feuil1.Cells(Application.Caller.Row, "K")
Do While c.Column < 90 '(jusqu'en colonne CK)
  If c = 0 Then
    Max = Application.Max(N, Max)
    N = 0
  Else
    N = N + IIf(c = "", 0, c.Value)
  End If
  Set c = c.Offset(, 6)
Loop
If Max < N Then Max = N
Nb_Heures_Suite = Max * 24
End Function

Vois le fichier joint.
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
187
Réponses
5
Affichages
575
Réponses
10
Affichages
145
Réponses
7
Affichages
744
Réponses
2
Affichages
61
Réponses
11
Affichages
688
Réponses
4
Affichages
729
Réponses
6
Affichages
424
Retour