Compter le nombre de salariés présent sur le site à un instant "T"

[jlbcall]

Bonjour,

Je cherche une solution pour comptabiliser le nombre de salarié présent sur un site à tous les horaires de la journée mais qui ont des horaires différents.
Sous forme de graphique cela serait parfait.
Le but étant de savoir à n'importe qu'elle heure de la journée le nombre de salariés qui sont présents.
voir fichier joint

Merci
JLB

 

[Dranreb]

Re : Compter le nombre de salariés présent sur le site à un instant "T"

Bonjour.
En A18 par exemple: 8:00
En B18

=NB.SI(B$9:B$12;"<="&$A18)-NB.SI($C$9:$C$12;"<="&$A18)

le nombre total de ceux qui sont déjà entrés - le nombre total de ceux qui sont déjà sortis
donne le nombre total de ceux qui sont là...

À+

 

[JNP]

Re : Compter le nombre de salariés présent sur le site à un instant "T"

Bonjour le fil ,
Une solution en SommeProd ...
Bonne journée

 

[ROGER2327]

Re : Compter le nombre de salariés présent sur le site à un instant "T"

Bonjour à tous

Et encore une…​

ROGER2327
#5289

Dimanche 15 Merdre 138 (Saints Serpents d’Airain - fête Suprême Tierce)
13 Prairial An CCXIX, 5,3345h - pois
2011-W22-3T12:48:10Z

 

[Efgé]

Re : Compter le nombre de salariés présent sur le site à un instant "T"

Bonjour jlbcall, re Dranreb, Salut JNP, Bonsoir ROGER2327,
Je sais que cela n'ira pas très loin (les cellules de l'exemple ne sont pas toutes au même format...), et jlbcall semble multiplier les fils ....
Comme je l'ai fait, et que je n'amène pas le même résultat, je le poste.

Private Sub CommandButton1_Click()
Dim Tablo(), LstRw&, RwsCnt&, X&, i&, j&
LstRw = Cells(Rows.Count, 1).End(xlUp).Row
RwsCnt = LstRw - 8
ReDim Tablo(1 To 24, 1 To RwsCnt)
For i = 9 To Cells(Rows.Count, 10).End(xlUp).Row
    X = 0
    For j = 9 To LstRw
        If Cells(j, 2).Value <= Cells(i, 10).Value And _
        Cells(j, 3).Value >= Cells(i, 10).Value Then
        X = X + 1
        Tablo(i - 8, X) = Cells(j, 1).Value
        End If
    Next j
Next i
Cells(9, 11).Resize(UBound(Tablo, 1), UBound(Tablo, 2)) = Tablo
End Sub

.
Bon courage.
Cordialement