Bonjour,

Dans ma BD Devis, je dois calculer le crédit d'impôt auquel peut prétendre le client. Pour cela, l'Etat nous impose des règles.
A savoir: suivant la situation du ménage il y a un plafond (16000 € pour un couple et 8000 € pour un célibataire) puis 400 € par personne à charge.
Le taux de crédit d'impôt (CI) est de 30% pour une installation.
Pour exemple: un couple avec 2 enfants à un plafond de 16 800 €. Si les fournitures éligibles au CI atteignent par exemple 13 854.05 €, on calcule 30% de ce montant. Si elles atteignent 17 235.43 €, le montant est ramené à 16 800 € (plafond maxi) et on calcule 30% de 16 800 €.
Dans le devis il y également des options qui, pour certaines, sont éligibles au CI.

J'ai donc créé deux requêtes :

Pièce jointe 470948

J'aurais besoin de votre aide pour écrire un code VBA qui calculerait le CI. Pour ce faire il faudrait comparer le montant total HT éligible au plafond de RqTOTALHTCI et calculer les 30%, puis, s'il reste du plafond, faire la même chose pour les options (RqTOTALCIOPTION).

Explications en chiffre (ça sera peut-être plus concret) : un couple+2 enfants = 16800 € de plafond. 13 854.05 € HT de fournitures (soit sous le plafond) = 4156.22 € de CI
Il reste 2945.95 € de plafond (16800-13854.05). Les options représentent 3600 €, le montant est ramené à 2945.95 € * 30% = 883.79 € de CI.

Un célibataire+1enfant = 8400 €. Montant total des fournitures 12700 € = 30% de 8400 € soit 2520 € de CI. Des options pour 1700 €, il n'y a pas de CI car le plafond est déjà atteint.
Bien sûr dans certains devis il n'y a pas de fournitures en options.

Donc voici l’imbroglio fiscal que je dois démêler en partant des 2 requêtes. Pourriez-vous m'aider à élaborer un code VBA pour atteindre ce résultat car je ne suis pas très fortiche dans ce domaine ?
Avec mes remerciements, cordialement