[AC-2010] Champ calculé - jours ouvrés

[zenzila14]

bonjour à tous
j'ai un probleme avec une formule dans un champ calculé
champ 1 (date debut)
champ 2 (durée) = nombre heure prévue/7 H travaillée / nombre stagiaire
je voudrais compter que les jours travaillés soit lundi mardi mercredi jeudi ça ressemble un peu à excel (jour ouvré)
champ 3 (fin prévue) actuellement la formule est "date début +durée"
une formule avec les jours travaillées serait de fait beaucoup plus précise mais je ne m'en sort pas
cordialement

[pikameuh]

Bonjour,

Quel sont tes contraintes au niveau de la date de début? Aucune, ça peut être n'importe quel jour ou alors, il n'y a que des lundi?

Sinon la logique est simple, tu compte ton nombre de semaines. Tu m'ultiplie ce résultat par 4 (lundi, mardi, mercredi et jeudi).

Ensuite si tu n'a pas de contraintes sur le premier jour, il te faut déterminer si c'est un lundi, ou mardi etc... et de soustraire à ton résultat le nombre de jours que tu louppe cette semaine (ex: si c'est mardi, tu fait -1 car tu n'a pas le lundi).

J'espere t'avoir aidé

[jpcheck]

salut,

la donne deja un tres bon exemple de fonction pour les tous les jours ouvres :

http://access.developpez.com/faq/?pa...nip#NbJourOuvr

en adaptant ce code et en prenant en compte les vendredi, la solution n'est pas loin

Toujours penser a jeter un oeil dans la

[pgz]

Bonjour.

L'exemple en FAQ te permet de tenir compte des jours fériés. Le pb que j'ai déjà rencontré c'est que :

• les jours de fermeture des entreprises ne correspondent pas
• l'horaire peut varier dans la semaine

La solution est de pouvoir définir jour par jour l'horaire de la semaine et de travailler avec un calendrier des jours ouvrés de l'entreprise. Ce deuxième point n'est pas très complexe mais nécessite de prévoir une saisie particulière.

Voici un code qui ne tient pas compte des fermetures, mais d'un horaire pour chaque jour de la semaine. Cela peut aussi te donner des idées...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Function fDateAddJoursOuvres(ByVal dteDeb As Date, ByVal sngNbHeures As Single) As Date
Dim sngSem As Single, dteRes As Date, nbSem As Integer, colDur As VBA.Collection, v As Variant
Const sngLun As Single = 7
Const sngMar As Single = 7
Const sngMer As Single = 7
Const sngJeu As Single = 7
Const sngVen As Single = 0
Const sngSam As Single = 0
Const sngDim As Single = 0
 
Set colDur = New VBA.Collection
colDur.Add sngLun, CStr(vbMonday)
colDur.Add sngMar, CStr(vbTuesday)
colDur.Add sngMer, CStr(vbWednesday)
colDur.Add sngJeu, CStr(vbThursday)
colDur.Add sngVen, CStr(vbFriday)
colDur.Add sngSam, CStr(vbSaturday)
colDur.Add sngDim, CStr(vbSunday)
 
'durée de la semaine
For Each v In colDur
    sngSem = sngSem + v
Next v
 
'initialisation
dteRes = dteDeb
sngNbHeures = sngNbHeures - colDur(CStr(Weekday(dteRes)))
nbSem = CInt(sngNbHeures \ sngSem)
 
'placer le nb entier de semaines
If nbSem > 0 Then
    'date 1
    dteRes = dteRes + nbSem * 7
    'heures résiduelles
    sngNbHeures = sngNbHeures Mod (nbSem * sngSem)
End If
 
'placer les heures résiduelles
While sngNbHeures > 0
    dteRes = dteRes + 1
    sngNbHeures = sngNbHeures - colDur(CStr(Weekday(dteRes)))
Wend
 
fDateAddJoursOuvres = dteRes
Set colDur = Nothing
 
End Function

Ce sont les valeurs donnes aux constantes qui déterminent l'horaire de la semaine.

COrdialement,

PGZ