XL 2016 Cherche méthode de calcul hr pour dimanche

[pompaero]

Bonjour le forum,

Je cherche une méthode de calcul pour calculer les heures de travail les dimanches, fériés et nuit, à droite des tableau, svp.
J'ai bien trouvé une formule pour le mois complet mais je n'y arrive pas pour le reste.
Merci par avance

Cordialement.

 

[herve62]

Bonsoir le forum
Pompareo
Ci joint le début de ce qui est facilement possible de faire en VBA simple
-Mettre tes cases Dim, Ferie, Nuit dans Planning en format hh:mm
-Dans le module VBA , voir ma sub c'est juste un exemple avec la ligne 12 ( faudra boucler avec tes autres pompiers) , tu la lances et vérifies
j'ai pris le H3 qui correspond à ce que j'ai vu pour les Dim
A toi d'adapter et faire idem pour Fériés et Nuits > H1, H2 peut être ?
Si tu bloques tu reviens , on regarderas
Bon courage

 

[pompaero]

Bonjour herve62

Merci de ton soutien, car la dessus je patouge un peu.
Si je comprends, il faut faire un code pour chaque valeur H1, H2, ect... ?

Cordialement
pompaero

 

[Victor21]

Bonjour pompaero, herve62.

Essayez en BS12, format [hh:mm] :
=SOMMEPROD(($D12:$AH12="H1")*(JOURSEM($D$10:$AH$10)=1))*$M$3
+SOMMEPROD(($D12:$AH12="H2")*(JOURSEM($D$10:$AH$10)=1))*$M$4
+SOMMEPROD(($D12:$AH12="H3")*(JOURSEM($D$10:$AH$10)=1))*$M$5

Edit : A compléter selon la même logique avec les autres horaires possibles.
Pour les heures de nuit, indiquez en O, AA et AI 3 à 5 le nb d'heures de nuit pour chaque horaire et remplacez $M par $O

 

[herve62]

Bonsoir , Slt Victor
Pompaero : Est ce que tu prends/continues en VBA ou parts en formules comme Victor ?

il faut faire un code pour chaque valeur H1, H2, ect... ?

Dans ma boucle oui tu ajoutes une ligne de IF pour H1 , H2 etc .. et tu modifies la Colonne d'arrivée
Je voulais le faire mais je vois pas Comment tu fais pour reconnaitre le travail en JF ?? et même de Nuit j'ai pas vu d'horaire ??
Sinon vu le truc déjà bien construit en VBA mieux vaut continuer en espérant que tu maîtrise un peu

Sub Tps_spéciaux()
cp = 0 : nu = 0
With Worksheets("Planning")
For x = 4 To 34
If (Weekday(.Cells(10, x), 1)) And (.Cells(12, x).Value = "H3") Then cp = cp + 1 ' compteur pour H3
If .Cells(12, x).Value = "H2" Then nu = nu + 1 ' compteur pour H2
Next x
.Cells(12, 71) = cp * .Cells(5, 13).Value ' récupère le temps de H3 x nbre de dim trav.
.Cells(12, 72) = nu * .Cells(4, 13).Value ' idem pour H2
End With
End Sub

En supposant que H2 est JF ( je pense que c'est faux , juste pour l'exemple )
J'ai testé pour récupérer les JF par la couleur de police ... Hélas pas évident car ton "rouge" est spécial via les MFC et on ne sait pas le faire direct ( pour le fond c'est pareil il faut une macro spéciale)
OU et Comment sont repérées tes H de nuit ?

 

[Victor21]

@herve62

Les heures de nuit

Par contre, pour le nombre d'heures des jours fériés, il va falloir insérer une ligne : JF ou pas JF

 

[pompaero]

Bonjour Victor21, herve62

Pour répondre, mon fichier était à la base qu'une aide pour avoir les heures semaines et mois tout simplement afin de m'aider à créer un planning assez rapidemment car ma direction m'a lancer un défit (créer un planning) en tant que futur résponsable d'équipe. Maintenant ils me demande de détailler les heures des Dimanches, Fériés, et nuits.
C'est pour cela que je demande de l'aide.
Le pourquoi des heures de nuits et fériés qui ne sont pas créé.
donc que cela soit par VBA ou Formule, peu importe pour moi.

Merci à vous herve62, Victor21
pompaero

 

[pompaero]

Re Victor21

Pour info, j'ai testé ton code et cela fonctionne bien, également pour les heures de nuit. Reste les fériés à créer.
Cordialement

 

[Victor21]

Re, pompaero.

Comme ça, avec une ligne supplémentaire (la 10) et toujours le même principe.
Attention cependant : la multiplication des sommeprod risque de ralentir les recalculs, et il faudra penser à "VBAiser" tous ces calculs, mais sans moi

Extrait de votre fichier, sans les macros en pj :

 

[pompaero]

Re Victor21

Parfais, j'ai adapté à mon fichier original et cela fonctionne parfaitement. Ca convient trés bien comme ça, c'est just pour avoir trame et rester au plus juste prévisionnellement.
Pour moi c'est bon, je cloture le post.

Merci Victor21 et herve62.
@ bientôt. bon WE.
Pompaero