Pointage

Bonjour à Tous,

j'ai une équipe d'une vingtaine de personnes, je veux calculer le nombre des minutes de retard ou de départ avant l'heure.

de mon côté je fais le calcul avec une méthode classique mais très lente et fatigante. j'utilise la formule suivante:

=SI(STXT(B4;2;1)*1<8;"";STXT(B4;4;2)*1)+SI(STXT(C4;2;1)*1<8;"";STXT(C4;4;2)*1)+SI(STXT(D4;2;1)*1<8;"";STXT(D4;4;2)*1)+..........+SI(STXT(AF4;2;1)*1<8;"";STXT(AF4;4;2)*1))))))).....

De même j'utilise la même formule pour dégager le nombre des minutes avant le départ légal qui est 17:00

l'horaire de l'entrée légal est 08:00.

merci à vous de m'aider à trouver une solution rapide à ce sujet.

ci joint un fichier extrait du système de pointage.

Bonjour,

Ç aurait été trop compliqué de mettre 5 cellules a la place des" 08:04-17:01- - - - - - - - - - - - - - "

Et d'utiliser des nombres pour faire des calculs ?

Excel, c'est un tableur ! pas un traitement de texte.

Crdmt

Bonjour

Merci de votre intérêt à mon souci sauf qu'on va utiliser que deux données, la première et la dernière donnée.

on utilise la première pour déterminer le retard (au delà de 8:00 c'est du retard, et avant 17:00 c'est un départ avant l'heure).

moi j'utilise la formule STXT(08:04;4;2)*1 =04, mais c'est très long d'additionner les 30 jours, y'a t il une formule raccourcie qui tient compte de ce qui précède?

pour d'amples informations je suis à disposition.

Et tu ne peux pas monter ton tableau différemment?

Au lieu d'une seule cellule pour inscrire de 2 à 5 horaires par jour, découpe le tout en au moins 5 lignes.

Ensuite, travailler sur des vraies heures, et non du texte

Sans avoir essayé de te proposer une solution, je pense que ça sera plus facile.

De plus, ta mise en page est fragile, élargir la taille des colonnes et tout est en vrac.

Bonjour

malheureusement non, c'est l'output d'une pointeuse biométrique.

Proposition en ajoutant des lignes (l'avantage est de bien voir les jours concernés) ... et avec une fonction de type RegExp expression régulière (donc macro)

Bonjour Steelson

merci pour votre solution,

Pourrai je savoir quelle est l'utilité d'ajouter 4 lignes dans la rubrique du pointage

08:04-17:01- - - - - - - - - - - - - -

Merci d'avance

louja a écrit :

Pourrai je savoir quelle est l'utilité d'ajouter 4 lignes dans la rubrique du pointage

08:04-17:01- - - - - - - - - - - - - -

Ben, euh .... j'ai pas réussi à faire simple autrement !

Ou alors faire une macro spécialisée qui prend toutes les données !

ok je vais écrire une macro

A vérifier ...

Function retard(ici As Range)
Dim cel As Range
debut = TimeValue("08:00:00")
retard = 0
For Each cel In ici
    tablo = Split(Replace(cel.Value, "-     ", ""), "-")
    If UBound(tablo) > 0 Then
        retard = retard + Application.Max(0, TimeValue(tablo(0) & ":00") - debut)
    End If
Next
End Function

Function avance(ici As Range)
Dim cel As Range
fin = TimeValue("18:00:00")
avance = 0
For Each cel In ici
    tablo = Split(Replace(cel.Value, "-     ", ""), "-")
    If UBound(tablo) > 0 Then
        avance = avance + Application.Max(0, fin - TimeValue(tablo(UBound(tablo)) & ":00"))
    End If
Next
End Function