Fonction pour compter heures jour/nuit semaine, férié et dimanche

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide afin d'écrire les fonctions pour un planning..
voir fichier joint, c'est plus simple car explications compliquées...

Je vous remercie pour le temps que vous voudrez bien m'accorder.

Bien à vous,
Christian.

 

[job75]

Re : Fonction pour compter heures jour/nuit semaine, férié et dimanche

Bonjour Christian,

Il suffit de construire cette nouvelle fonction :

Function Heures(P As Range, Q As Range, toto As Byte)
'P et Q sont 2 vecteurs de même dimension
Dim i&, a, b(1)
For i = 1 To P.Count
  Select Case toto
    Case 1: a = TOTO1(P(i), Q(i))
    Case 2: a = TOTO2(P(i), Q(i))
    Case 3: a = TOTO3(P(i), Q(i))
  End Select
  b(0) = b(0) + a(0)
  b(1) = b(1) + a(1)
Next
Heures = Application.Transpose(b) 'vecteur colonne
End Function

Utilisée matriciellement par paire sur CO50:CO51-CO52:CO53-CO54:CO55.

Quant à tes "résultats attendus" je ne vois pas d'où tu les tires.

Il est facile de vérifier les résultats en utilisant la plage CP16:CQ46.

Fichier joint.

A+

 

[Christian0258]

Re : Fonction pour compter heures jour/nuit semaine, férié et dimanche

Re, le forum, job75,

Merci, job75, pour ce nouveau travail. Mais comment l'appliquer sur plusieurs colonnes ?

Bien amicalement,
Christian

 

[job75]

Re : Fonction pour compter heures jour/nuit semaine, férié et dimanche

Re,

Bon d'accord j'aurais dû y penser tout de suite.

J'ai donc modifié le post #46 en individualisant les 2 colonnes de la plage.

Après sur plusieurs colonnes c'est très facile : entrer les 3 formules matricielles dans CO50:CO55 puis tirer cette plage vers la droite.

Fichier (2).

A+

 

[Christian0258]

Re : Fonction pour compter heures jour/nuit semaine, férié et dimanche

Re, le forum, job75,

C'est parfait, je te remercie infiniment pour cette "version colonne".

Bien à toi.

Christian

 

[job75]

Re : Fonction pour compter heures jour/nuit semaine, férié et dimanche

Re,

Je vois qu'il y a une ou 2 minutes superflues...

Des histoires d'arrondis ? Mais je ne m'en occuperai pas

Edit : ah mais non, petit coquin, tu as ajouté 1 et 2 minutes en CP17 et CQ17 !!!

A+