Discussion :

[jeromeq07]

Bonjour,
je cherche à renvoyer une donnée à partir d'une grille (exemple d'une prime d'ancienneté en fonction d'un coefficient et d'une date d'ancienneté ) :
-------------3 à 5 ans------6 à 8 ans-----9 à 11 ans----etc...
coef 140------10------------20-------------30
coef 150------12------------22-------------33
coef 160------15------------25-------------35
etc...

par exemple : un salarié de coefficient 150 avec 10 ans d'ancienneté à une prime de 33
Est-ce possible sous Access ?

Un grand merci d'avance

Jérôme

[madefemere]

Bonsoir,

En très court, OUI, c'est possible sous Access ou avec une fonction en VBA.
Maintenant, quel est ton besoin et quelles sont les données en ta possession et es-tu déjà sous Access ?
Dis-nous plus si tu souhaite te lancer dans les bases de données.

Cordialement,

[jeromeq07]

Bonjour Madefemere,

Oui je suis déjà sous access, j'ai crée de nombreuses bases, je touche aussi au VBA. Mais je t'avoue que je suis bloqué avec la récupération de cette donnée qui tient compte de 2 critères (ancienneté et coefficient). La finalité est de récupérer cela sous forme d'une requête car j'ai d'autres données à joindre en colonne : voici ce que cela pourrait donnée : matricule, nom, prénom, age, ancienneté, prime d'ancienneté (provenant de la fameuse grille), prime de présence etc... Ces autres champs sont très faciles à récupérer. La fameuse grille est bien sûr susceptible d'évoluer chaque année au niveau des montants (cette indication peut être importante pour facilité la mise à jour de celle-ci). Voilà j'espère avoir été assez clair. Merci pour ton aide. Cordialement
Jérôme

[madefemere]

Bonjour,

Donc, les fonctions de domaines devraient te donner la solution, un DlookUp ou Rechdom en français.
Je te conseille de regarder le tuto de référence ci-joint.

Tu nous dis si tu as des difficultés.

Cordialement,

[jeromeq07]

Merci, mais je bloque au niveau de la grille. Comment la mettre sous forme de table car c'est un tableau à double entrée :
-------------3 à 5 ans------6 à 8 ans-----9 à 11 ans----
coef 140------10------------20-------------30
coef 150------12------------22-------------33
coef 160------15------------25-------------35

Merci d'avance
Jérôme

[madefemere]

Bonjour,

Il y aurait plusieurs manières de procéder :
1- Se créer une table de correspondance entre tes noms de champs d'intervalle et les année précises d'ancienneté et faire donc une recherche avec VBA.
2- Dérouler ta grille pour que la table ait 3 champs : Coef - Annee (précise) - Prime et faire la recherche dans cette nouvelle requête ou table avec le DLookUp.

Il faudrait les noms de tes en-têtes de colonnes pour imaginer une routine VBA dans les 2 cas.
Et voir combien il y a de colonnes et de lignes dans la grille actuelle ?

Cordialement,

[jeromeq07]

Merci,
Les noms des entêtes des 3 colonnes : Anc_coef, Anc_annee, Anc_montant
On pourrait partir de la grille de l'exemple ci-dessous avec seulement 3 colonnes et 3 lignes : cela me permettrait (je l'espère) de comprendre le raisonnement. Une précision de 0 à 2 ans la prime est à 0 (quelque soit le coef) et en fait la dernière colonne n'est pas de 9 à 11 ans mais plutôt "à partir de 9 ans (par exemple un salarié qui à 15 ans d'ancienneté au coef 150 touche 33€ de prime d'ancienneté).
Un grand merci pour ton aide.
Cordialement
Jérôme

[madefemere]

Re-,

Donc
1- si on part de la table T_Grille avec les champs : Coef - Prim3A5 - Prim6A8 - PrimPlus9
2- On souhaite avoir les données réparties dans la table : T_GrilleAccess_A ayant les champs Anc_Coef - Anc_annee - Anc_Prime

Les routines suivantes vont transférer les données de la table T_Grille vers T_GrilleAccess_A

Code :

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

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
Dim strSQl As String
Dim db As DAO.Database
'fonction pour l'ajout d'un enregistrement avec comme paramètre l'année en champ complémentaire
Public Sub AjouterValeurs(prAnnee As Integer, prchamp As String)
Set db = CurrentDb
Debug.Print prchamp
strSQl = "INSERT INTO T_GrilleAccess_A ( Anc_Coef, Anc_annee, Anc_Prime )" _
        & " SELECT T_Grille.Coef," & prAnnee & "," & prchamp _
        & " FROM T_Grille;"
Debug.Print strSQl
db.Execute strSQl, dbFailOnError
db.Close: Set db = Nothing
End Sub
'Parcourir les champs et éclater les valeurs
Public Sub ParcourirLesChamps()
Call AjouterValeurs(3, "Prim3A5")
Call AjouterValeurs(4, "Prim3A5")
Call AjouterValeurs(5, "Prim3A5")
 
Call AjouterValeurs(6, "Prim6A8")
Call AjouterValeurs(7, "Prim6A8")
Call AjouterValeurs(8, "Prim6A8")
 
Call AjouterValeurs(9, "PrimPlus9")
End Sub

Il serait possible de factoriser ParcourirLesChamps selon les besoins.
Après la recherche de la prime par ancienneté se fera avec :

Code :

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

= DLookUp("[Anc_Prime]";"[T_GrilleAccess_A]","[Anc_Coef]=" & parametreCoefficient & "[Anc_annee]=" & parametreAnciennete)

Il faudrait le combiner avec un IIF (VRAIFAUX en français) pour trouver les valeurs pour les anciennetés supérieures à 9 et inférieures à 2, mais c'est du détail pour toi je pense.

Cordialement,

[jeromeq07]

Bonjour et un grand merci, je met cela en pratique au plus vite.
Bien cordialement

Jérôme