Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Macro Excel - Modification du Code VBA

  • Initiateur de la discussion Initiateur de la discussion SCORP95
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

SCORP95

XLDnaute Nouveau
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)

 

Pièces jointes

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.
 
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
VB:
            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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
267
Réponses
4
Affichages
243
Réponses
4
Affichages
292
Réponses
12
Affichages
969
Réponses
5
Affichages
531
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…