aide formule excel

titooooo · 23 Janvier 2012

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

Softmama · 23 Janvier 2012

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.

titooooo · 23 Janvier 2012

Re : aide formule excel

100 merci mon ami

aide formule excel

titooooo

XLDnaute Occasionnel

Pièces jointes

Softmama

XLDnaute Accro

Pièces jointes

titooooo

XLDnaute Occasionnel

Discussions similaires

aide formule excel

titooooo

XLDnaute Occasionnel

Pièces jointes

Softmama

XLDnaute Accro

Pièces jointes

titooooo

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency