XL 2019 Calcule du nombre d'heures par semaine

[Jaana]

Bonjour,

Pour le travail, j'effectue de grands déplacements en province. Chaque semaine de déplacements me donne droit à 3h de route à un taux honoraire fixe (attention je parle bien pour chaque semaine et non pour chaque jour, donc 1 semaine est égale à 3h de route).

J'ai créé un tableau avec mes heures de travail, une colonne qui correspond au numéro de semaine et une colonne "grand déplacement" qui me permet de spécifier que pour tel jour (cellule égale 1), je suis partie en déplacement.

Mon idée était de me servir de la colonne numéro de semaine pour comptabiliser le nombre d'heures de route pour chacune des semaines. Mais je ne sais pas quelle fonction pourrait m'aider à faire cela ?

Merci

 

[job75]

Bonsoir Jaana, bienvenue sur XLD,

Mon idée était de me servir de la colonne numéro de semaine pour comptabiliser le nombre d'heures de route pour chacune des semaines.

C'est facile, comme vous l'avez souligné, ce nombre est de 3 heures.

A+

 

[Jaana]

Bonsoir,
:/

Oui, je me doute bien que le nombre d'heures de route par semaine est de 3h. Mais, j'aimerais les calculer automatiquement dans mon tableur en sachant je ne suis pas toujours en grand déplacement et que chaque mois ne comporte pas le même nombre de semaine.

Pour plus de compréhension, je mets en pièce jointe le tableur en question :

Merci

 

[JHA]

Bonjour à tous,

Un essai sans la colonne des semaines, à essayer.

JHA

 

[job75]

Bonjour Jaana, JHA,

Voyez le fichier joint et cette formule en J2 s'il s'agit bien d'un forfait de 3 heures par semaine :

=SI((JOURSEM(C2)=6)+(LIGNE()=NB(C:C)+1);3*MAX(INDEX(H:H;EQUIV(99;A$1:A2)):H2);"")

Si les heures de route peuvent être inférieures à 3 heures par semaine utiliser :

=SI((JOURSEM(C2)=6)+(LIGNE()=NB(C:C)+1);MIN(3;SOMME(INDEX(H:H;EQUIV(99;A$1:A2)):H2));"")

A+

 

[job75]

Une solution par fonction VBA dans le fichier joint :

Function HeuresRoute(R As Range, limite As Byte, forfait As Boolean)
Dim ncol%, nlig&, i&, s&
ncol = R.Columns.Count
nlig = R.Rows.Count
For i = 1 To nlig
    If IsDate(R(i, 1)) Then
        If Weekday(R(i, 1)) = 1 Or i = nlig Then
            If forfait Then s = limite * IIf(s > 0, 1, 0) Else If s > limite Then s = limite
            HeuresRoute = HeuresRoute + s
            s = 0
        End If
        s = s + Sgn(R(i, ncol))
    End If
Next
End Function

Le code doit être placé impérativement dans un module standard.

Elle est utilisée de 2 manières, en J2 et K2.

La 1ère colonne (SEM) est inutile, on peut la supprimer.

A+