XL 2019 Macro Excel - Modification du Code VBA

[SCORP95]

Bonjour à tous,

J'aurais besoin d'un peu d'aide sur la modification du code de mon fichier Excel ci-joint.

Mon fichier actuel se présente sous la forme d'un Tableau de trésorerie étendu sur l'année 2021 et 2022 (sur la même feuille). Ce tableau est automatisé par intermédiaire des feuilles "Liste Encaissements" et "Liste Décaissements" auxquels des macros sont rattachés avec notamment un bouton Insertion (Cf. module 5). Globalement, celui-ci permet d'insérer les montants de chaque ligne au sein du Tableau "Tréso 2021-2021".

Néanmoins, je souhaiterais couper ce tableau de tréso en 2 afin d'avoir deux feuilles distinctes (une pour 2021 et 2022). Le souci est que le code permettant l'insertion se base sur le tableau "Tréso 2021-2022". Logiquement, en coupant le tableau en 2 deux feuilles distinctes, la macro s'effectue sur le tableau principal seulement.

J'ai déjà créer la seconde feuille pour l'année 2022 et garder le tableau de base (sur 2021 et 2022) afin de mieux visualiser le fonctionnement actuel.

Ainsi, je souhaiterais savoir si il est possible de converser le code actuel tout en intégrant la seconde feuille afin de permettre l'automatisation sur les deux tableaux?

Je vous remercie de votre temps et de votre aide précieuse !

Feuille de base (Treso 2021-2021).

Nouvelle feuille à integrer (Tréso 2022)

 

[Rouge]

Bonjour,

Voici les macros modifiées, il y a un petit problème concernant les dates qui correspondent à l'année 2020, qu'en fait-on? créerez-vous une feuille "Tréso 2020"? sinon cela va perturber le bon fonctionnement .

Cdlt

 

[SCORP95]

Bonjour,

Voici les macros modifiées, il y a un petit problème concernant les dates qui correspondent à l'année 2020, qu'en fait-on? créerez-vous une feuille "Tréso 2020"? sinon cela va perturber le bon fonctionnement .

Cdlt

Bonjour @Rouge, je vous remercie pour votre retour. J'ai un souci lorsque j'ai essayé de faire une insertion sur 2022 dans la page Liste Encaissement et ce message d'erreur s'affiche :

"...les dates qui correspondent à l'année 2020..."

Qu'entendez vous par cela? Car il n'est pas censé d'avoir de flux sur la période 2020 (Hors Décembre mais pas de souci particulier lors de l'insertion)

Bien à vous.

 

[Rouge]

Bonjour,

Etant donné qu'il y a l'année 2020 ne serait-ce que pour 1 mois, il faut en tenir compte, normalement il faudrait ajouter la condition de plus:
Select Case Annee_Ech
Case 2020
Set Sh = Sheets("Tréso 2020")
Case 2020, 2021
Set Sh = Sheets("Tréso 2021")
Case 2022
Set Sh = Sheets("Tréso 2022")
End Select
Mais comme il n'existe pas la feuille "Tréso 2020", il faut l'ignorer en ajoutant une condition supplémentaire

            Select Case Annee_Ech
                Case 2021
                    Set Sh = Sheets("Tréso 2021")
                Case 2022
                    Set Sh = Sheets("Tréso 2022")
                Case Else
                    GoTo Suivant
            End Select