Discussion :

[Malick]

Pour les besoins de ma comptabilité, je suis en train de concevoir une base de données pour un meilleur suivi des subventions et de leur rattachement à l'exercice concerné. Pour cela, j'ai le modèle suivant :



Les règles de gestion :

• un contrat a une durée d'au moins trois (3) ans ;
• un contrat peut faire l'objet de plusieurs renouvellements d’où la table t_Renouvellement ;

L'idée pour moi est de remplir automatiquement , lors de la saisie d'un nouveau contrat, la table t_Repartitions en fonction des éléments saisis dans la table t_Contrats via son formulaire. Cette répartition devrait se faire en fonction de la durée du contrat.

Dans t_Repartitions j'ai :

• idRepartition_pk
• idContrat_fk : pour identifier le contrat concerné par l'enregistrement
• idRenouvellement_fk : en cas de renouvellement, permet d'identifier le renouvellement concerné et ainsi remonter vers le contrat
• MoisDotation : devrait correspondre à la date d'anniversaire de la signature du contrat (j’ai pensé à unDateAdd()
• AnneeDotation : Correspond à l'année de la dotation
• MontantDotation : Montant réparti en fonction de la durée, cela pour chaque année

J'ai commencé avec ceci (code récupéré depuis le site de Hervé INISAN et que j'ai tenté d'adapter à ma situation) :

Code vba :

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
26
27
Private Sub Repartition()
    ' Quelques variables
    Dim rst As DAO.Recordset
    Dim Duree As Long
 
    ' Ouvrir la table en lecture/écriture
    Set rst = CurrentDb.OpenRecordset("tRepartitions", dbOpenDynaset)
 
        ' Boucler sur la durée du contrat
    For Duree = 1 To Me.lblDureeContrat
        ' Créer un enregistrement dans la table
        rst.AddNew
 
        ' Alimenter les champs
        rst("idContrat_fk") = Me.lblidContrat_pk
        'rst("MoisDotation") =
        rst("AnneeDotation") = 0
        rst("MontantDotation") = Me.lblMontantSubvention / Me.lblDureeContrat
 
        ' Valider
        rst.Update
    Next
 
    rst.Close
    Set rst = Nothing
    MsgBox "Opération terminée !", vbInformation
End Sub

Résultat obtenu :



Le résultat obtenu n'est pas satisfaisant, car je bloque pour remplir automatiquement les autres champs vides.

Seriez-vous disponible à m'aider pour trouver une solution à cela ?
Auriez-vous d'autres idées ou solutions ?

Merci d'avance
Cordialement,
Malick

[Malick]

Salut,

Avec ce code et pour un Montant global de 100 000 FCFA :

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
26
Private Sub Repartition()
    ' Quelques variables
    Dim rst As DAO.Recordset
    Dim Duree As Long
 
    ' Ouvrir la table en lecture/écriture
    Set rst = CurrentDb.OpenRecordset("tRepartitions", dbOpenDynaset)
 
        ' Boucler sur la durée du contrat
    For Duree = 1 To Me.lblDureeContrat
        ' Créer un enregistrement dans la table
        rst.AddNew
 
        ' Alimenter les champs
        rst("idContrat_fk") = Me.lblidContrat_pk
        rst("PeriodeDotation") = DateAdd("yyyy", 1, Me.lblDateDebutContrat)
        rst("MontantDotation") = Me.lblMontantSubvention / Me.lblDureeContrat
 
        ' Valider
        rst.Update
    Next
 
    rst.Close
    Set rst = Nothing
    MsgBox "Opération terminée !", vbInformation
End Sub

J'obtiens ceci lors comme génération d'écriture :



Comment pourrais-je faire en sorte que dans le champ PeriodeDotation, les données s'incrémentent de +1 année. Ainsi j'aurais dans mon exemple : 01/06/2016 - 01/06/2017 - 01/06/2018 ?

Merci d'avance

[ClaudeLELOUP]

Bonjour Malick,

pour un meilleur suivi des subventions et de leur rattachement à l'exercice concerné.

Peux-tu expliquer le problème comptable : je ne comprends pas le but.

S'agit-il de répartir la prise en charge de la subvention sur la durée de vie du contrat ?

[Malick]

Claude

Merci pour ce retour.

Bonjour Malick,

S'agit-il de répartir la prise en charge de la subvention sur la durée de vie du contrat ?

C'est exactement cela.

Et chaque année, une facture relative à la somme à payer est envoyée à chaque partenaire pour qu'il puisse régler la quote-part de l'année concernée. Le montant de la facture correspond au montant se trouvant sur la table t_Repartition en fonction de l'année concernée.

Certains contrats sont signés en cours d'année et par conséquent pour un exercice donné, je devrais faire le prorata du montant à répartir sur une année. Le reliquat du montant annuel sera logé dans un compte de Produit constaté d'avance.

Je compte ensuite, via une requête, faire le rattachement du produit à chaque exercice comptable (année) en fonction de la date de signature du contrat. Cette requête me permettra d'alimenter ma base de reporting mensuel.

Est-ce que tu comprends mieux mon objectif ?

Merci d'avance

[ClaudeLELOUP]

Mais alors, si la db contient pour le contrat :
- la date de départ ;
- la durée ;
- la subvention,
le prorata à une date pourrait se calculer avec une fonction.
Pourquoi veux-tu ajouter des tables ?

[Malick]

le prorata à une date pourrait se calculer avec une fonction.

Effectivement, mais c'est l'incrémentation des lignes qui me pose problème en fonction de la durée.

Au moment de saisir le contrat, j'ai créé dans le formulaire un champ DureeContrat avec la fonction DateDiff().

Pourquoi veux-tu ajouter des tables ?

L'idée m'a été proposée sur le Chat, afin de générer les opérations directement dans la table t_Repartitions et gérer en même temps les renouvellements.

En effet, un contrat terminé peut être renouvelé, et dans une telle situation, le montant à répartir sera celui du contrat de renouvellement.

Tu vois mieux ?

Si tu as une autre vision de la chose, je suis preneur aussi pour échanger dessus.

Edit :

	je pense comprendre ta logique. C'est à dire au lieu de raisonner en année, je devrais résonner en mois et ainsi faire la répartition par mois. C'est bien cela ?