Bonjour à tous,

Cela fait quelques temps que j'essaye d'écrire un programme VBA me permettant de reporter un montant en fonction de sa spécificité dans une feuille Excel.

Je m'explique :
Les spécificités se trouvent en colonne B de la Feuil1 du fichier Excel. A chacune des spécificités, est affecté un montant. Ce montant se trouve en colonne G de la Feuil1.
La Feuil2 est un tableau de répartition des dépenses en fonction des spécificités de la Feuil1.
La spécificité est composé d’un nombre à huit chiffres
- Les 4 premiers chiffres désignent la ligne du tableau de la Feuil2 du fichier Excel. Pour retrouver la ligne, il faut comparer les 4 premiers chiffres de la spécificité en colonne B de la Feuil1 d'Excel avec la colonne A de la Feuil2 du même fichier d'Excel.
- Si le 5ème chiffre de la spécificité est un 1 et que le 7ème chiffre de la spécificité est un 1 alors il faut placer le montant qui se trouve en colonne G de la Feuil1 d'Excel en colonne C de la Feuil2 d'Excel en fonction des 4 premiers chiffres de la spécificité qui détermine la ligne sur la Feuil2 d'Excel
- Si le 5ème chiffre de la spécificité est un 1 et que le 7ème chiffre de la spécificité est un 2 alors il faut placer le montant qui se trouve en colonne G de la Feuil1 d'Excel en colonne D de la Feuil2 d'Excel en fonction des 4 premiers chiffres de la spécificité qui détermine la ligne sur la Feuil2 d'Excel
- Si le 5ème chiffre de la spécificité est un 2 ou un 4 et que le 6ème chiffre de la spécificité est un 1 et que le 7ème chiffre de la spécificité est un 1 et que le 8ème chiffre de la spécificité est un 1 alors il faut placer le montant qui se trouve en colonne G de la Feuil1 d'Excel en colonne G de la Feuil2 d'Excel en fonction des 4 premiers chiffres de la spécificité qui détermine la ligne sur la Feuil2 d'Excel
- Si le 5ème chiffre de la spécificité est un 2 ou un 4 et que le 6ème chiffre de la spécificité est un 1 et que le 7ème chiffre de la spécificité est un 1 et que le 8ème chiffre de la spécificité est un 2 ou un 4 ou un 8 alors il faut placer le montant qui se trouve en colonne G de la Feuil1 d'Excel en colonne H de la Feuil2 d'Excel en fonction des 4 premiers chiffres de la spécificité qui détermine la ligne sur la Feuil2 d'Excel
- Si le 5ème chiffre de la spécificité est un 2 ou un 4 et que le 6ème chiffre de la spécificité est un 1 et que le 7ème chiffre de la spécificité est un 2 alors il faut placer le montant qui se trouve en colonne G de la Feuil1 d'Excel en colonne I de la Feuil2 d'Excel en fonction des 4 premiers chiffres de la spécificité qui détermine la ligne sur la Feuil2 d'Excel
- Si le 5ème chiffre de la spécificité est un 2 ou un 4 et que le 6ème chiffre de la spécificité est un 2 et que le 8ème chiffre de la spécificité est un 2 ou un 4 ou un 8 alors il faut placer le montant qui se trouve en colonne G de la Feuil1 d'Excel en colonne F de la Feuil2 d'Excel en fonction des 4 premiers chiffres de la spécificité qui détermine la ligne sur la Feuil2 d'Excel
- Si le 5ème chiffre de la spécificité est un 2 ou un 4 et que le 6ème chiffre de la spécificité est un 2 et que le 8ème chiffre de la spécificité est un 1 alors il faut placer le montant qui se trouve en colonne G de la Feuil1 d'Excel en colonne E de la Feuil2 d'Excel en fonction des 4 premiers chiffres de la spécificité qui détermine la ligne sur la Feuil2 d'Excel
- Si le 5ème chiffre de la spécificité est un 3 alors il faut placer le montant qui se trouve en colonne G de la Feuil1 d'Excel en colonne J de la Feuil2 d'Excel en fonction des 4 premiers chiffres de la spécificité qui détermine la ligne sur la Feuil2 d'Excel

Voici un exemple : la spécificité en cellule B40 de la Feuil1 d'Excel est 59914111. Le montant affecté à cette spécificité est 255 000 € et se trouve en cellule G40. Le montant de 255 000 € sera reporter en cellule G139 de la Feuil2 d'Excel.

Classeur1.xlsm

Merci beaucoup au personne qui m'aideront et aux autres également