Discussion :

[celthi]

bonjour au forum,

Débutant en Access, j'aimerais tranporter une formule d'un fichier Excel pour calculer un temps de carence pour un nouvelle mission d'intérimaire. J'arrive a faire une requete avec une partie du calcul mais la formule doit prendre uniquement les jours de travail (workday) et une function IF.
Je pense qu'il faut passer par du VBA ou SQL mais là cela dépasse mes competences.
Je joint le fichier Excel, la formule finale est en AC.

Merci pour toute l'aide que vous pourriez m'apporter.

Cordialement.Exemple carence.xlsx

[ClaudeLELOUP]

Bonjour,

Pour autant que la règle est

- si la durée du dernier contrat est supérieure à 14 jrs, alors durée divisé par 2 et forcer à l'unité supérieure
- sinon, retourner vide,

voici une fonction équivalente en Access

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
Option Explicit
 
 
Public Function carence(DureeDernContrat As Long) As String
  If DureeDernContrat > 14 Then
      carence = CInt((DureeDernContrat / 2) + 0.5)
    Else
      carence = ""
  End If
 
End Function

[celthi]

Bonsoir au Forum et à Claude

Je vais tenter cela demain,

Merci pour ce tuyau.
J'ai toujours un problème car la règle doit impliquer une durée du contrat sans compter les W.E (les jours fériés comptes) et je n'arrive pas à faire ce calcul en access.
J'ai l'expérience qu'avec Access 2007 je ne suis pas arrivé à faire deux champs calculé dans une même requête, d'où mon idée de passer par le VBA ou SQL.

Cordialement

[ClaudeLELOUP]

Pour les jours ouvrés, regarde ici : http://claudeleloup.developpez.com/t...plic-ploc/#LIV

[celthi]

Bonjour Claude et au forum,

Concernant la formule, elle dit
Si la durée du dernier contrat est <14, divisé la durée par 2, sinon divisé par 3.

J'ai réussi à faire la table des jours ouvrés, j'ai mis la function dans un module, comment faire maintenant pour mettre tout cela en pratique.

Dans mon formulaire, j'ai les chants "début de contrat" et "fin de contrat", "durée du "contrat", "carence" et "date de reprise possible".

est-ce que je dois creer un bouton charger de faire les calcules en VBA.

Cdt.

[ClaudeLELOUP]

Bonjour,

Si tu veux, je te proposerai un exemple. Poste une version Access2000 de ta db (avec des données anonymes, mais représentatives) pour que je puisse tester.

Si la durée du dernier contrat est <14, divisé la durée par 2, sinon divisé par 3.

Dans l'exemple que tu donnais 15/2 = 8 jrs
Que doit donner 16/3 ? 5 ou 6 jrs ?