Bon, je suis pas sur d'avoir tout compris mais je tente quand même.
Tu as un formulaire avec notamment comme champs : Nb_mois, dotation, repartition + 12 champs nommé selon les mois de l'année.
Tu veux à partir du nombre de mois et de la dotation remplir d'une part la repartition selon la formule dotation - reste / Nb_Mois et d'autre part remplir les champs Janvier/Decembre
selon le nombre de mois choisis.
(J'ai un peu de mal à comprendre le coup du decembre à avril alors je laisse tomber cette partie).
A partir de ça (mais c'est peut être pas du tout ce que tu cherches hein ) je propose cette petite sub :
Code :
- Sub MaProcedure(intNbMois as Integer, lngDotation as Long, lngReste as Long)
- Dim dblRepartition as Double
- Dim i as Integer
- Dim strTruc as String
- strTruc = "Quelque chose" ' En fait j'ai pas compris ce que tu voulais mettre dans tes champs Janvier...Decembre
- dblRepartition = (lngDotation-lngReste)/intNbMois
- For i=1 to intNbMois
- MonFormulaire.controls(MonthName(i)) = strTruc
- next i
- MonFormulaire.Repartition = dblRepartition
- End Sub
|
Tu l'appelles comme ça :
Code :
- MaProcedure(MonFormulaire.Nb_Mois, MonFormulaire.Dotation, MonFormulaire.Reste)
|
Peut être que j'ai rien compris en fait mais il me faudra plus d'explications pour faire autre chose ^^