Macro VBA dégradée Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
v
van aert
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 8 avril 2019
Version d'Excel : 16.16.8

Message par van aert » 5 juillet 2019, 08:05

Bonjour à tous !

J'ai réalisé une macro VBA me permettant de compter un nombre d'alarme en fonction de son TAG. L'idée de cette macro est de chargé un fichier journalier permettant ainsi un reporting quotidien. (feuille summary)
Cette macro (Macro1 dans le fichier gestion des alarmes), mettait de 1min à 5min pour s'exécuter en totalité. Le problème est: le dernier fichier journalier que j'ai chargé a mis 25h !!!!!!!!!! Je pense que le fichier principal a été dégradé mais je ne sais pas comment ni pourquoi. J'ai un peu tout essayé mais je ne trouve pas la solution.
Finalement, j'ai voulu repartir sur un fichier propre en faisant un copié-collé de Macro1 mais j'ai une erreur sur la ligne " Workbooks(file0).Sheets("data").Cells(l, j) = Workbooks(file0).Sheets("data").Cells(l, j) + 1 'increment of the number of time the source generated an alarm". Donc du coup ça ne marche pas…

Pourriez-vous m'aider à réparer le fichier principal (Gestion des alarmes) et si ce n'est pas possible m'aider à mettre en place le nouveau fichier (Classeur1). Dans ce dernier cas je ferai toute la présentation après, mais, il faut vraiment que Macro1 charge de nouveau dans un temps acceptable.


Je ne suis pas expert en macro et là ça me dépasse complétement.


Un grand merci d'avance pour aide.
Gestion_alarmes 2019 - Copie.xlsm
le fichier jusqu'au 11 juin (dernier fichier chargé) était trop volumineux donc j'ai supprimer les données à partir de mars
(987.3 Kio) Téléchargé 7 fois
Classeur1.xlsm
nouveau fichier
(312.83 Kio) Téléchargé 4 fois
20190612_24H_ONUSER_ALARM.xlsx
fichier journalier à charger
(443.06 Kio) Téléchargé 4 fois
j
jmd
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'603
Appréciations reçues : 251
Inscrit le : 8 décembre 2007
Version d'Excel : 365 + PowerBI

Message par jmd » 5 juillet 2019, 15:06

bonjour

joins un fichier de 3 colonnes et 5 lignes, et le résultat attendu
(difficile de comprendre avec tes grands fichiers)

pour des alarmes, a priori, pas besoin de VBA

à te relire
amitiés
Apprenez les fonctions d'Excel.
Exemple "Mettre sous forme de tableau", TCD, "Récupérer des données".
Apprendre les fonctionnalités "récentes".
v
van aert
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 8 avril 2019
Version d'Excel : 16.16.8

Message par van aert » 5 juillet 2019, 15:23

Bonjour à vous,

Au final je dois réaliser un comptage en fonction d'un tag à partir d'un fichier extérieur. On peut faire ça sans macro?
Pour le résultat obtenu, avec le fichier que j'ai joint. Le résultat est en feuille data et se lit par colonne. L'idée et se charger chaque jour un fichier. Je prépare un fichier exemple et simplifié tout à l'heure. (Je suis à l'école aujourd'hui..).
Merci beaucoup !
v
van aert
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 8 avril 2019
Version d'Excel : 16.16.8

Message par van aert » 5 juillet 2019, 15:32

En fait, si vous prenez le fichier classeur1 qui est vierge mis à part la Macro1. Dans la première case du fichier il faut exécuter Macro1 à partir du fichier journaliers que j'ai fourni. Le résultat à obtenir et la liste des tag du fichier journalier affiché en colonne avec le comptage. Tout ça dans la feuille Data. Dans la feuille Summary il doit apparaître le Top10 (tag et nombre) des alarmes de la journée et le tag de toutes les alarmes ayant sonné plus de 20 fois dans la journée.
Vous voyez le truc ?
En fait, avant tout était ok. La Macro était rapide mais quasiment du jour au lendemain elle est devenue très longue (plusieurs heures contre une poignée de minutes).
v
van aert
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 8 avril 2019
Version d'Excel : 16.16.8

Message par van aert » 5 juillet 2019, 15:54

En espérant que c'est plus clair...
exemple simplifié.xlsx
(9.1 Kio) Téléchargé 2 fois
j
jmd
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'603
Appréciations reçues : 251
Inscrit le : 8 décembre 2007
Version d'Excel : 365 + PowerBI

Message par jmd » 5 juillet 2019, 16:28

re

ton exemple est trop compliqué
on ne voit pas ce qui est "les données", ni ce qui est "le résultat attendu"
si tu as besoin de 2 pnglets pour cet exemple, met 2 onglets, et leur titre
ne mets pas de ... dont on ne sait pas s'ils sont des données ou une suite (qui ne sert à rien pour un exemple)

à te relire :)
Apprenez les fonctions d'Excel.
Exemple "Mettre sous forme de tableau", TCD, "Récupérer des données".
Apprendre les fonctionnalités "récentes".
v
van aert
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 8 avril 2019
Version d'Excel : 16.16.8

Message par van aert » 5 juillet 2019, 17:42

Re,

Je suis rentré chez moi. J'ai refait un fichier exemple avec des couleurs et des explications. J'ai essayé de détailler explicitement les actions de Macro1.


Un grand merci à vous


Yannick
exemple.xlsx
(10.76 Kio) Téléchargé 4 fois
j
jmd
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'603
Appréciations reçues : 251
Inscrit le : 8 décembre 2007
Version d'Excel : 365 + PowerBI

Message par jmd » 5 juillet 2019, 18:46

re

avec un TCD

amitiés
Copie de exemple-1.xlsx
(15.47 Kio) Téléchargé 4 fois
Apprenez les fonctions d'Excel.
Exemple "Mettre sous forme de tableau", TCD, "Récupérer des données".
Apprendre les fonctionnalités "récentes".
v
van aert
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 8 avril 2019
Version d'Excel : 16.16.8

Message par van aert » 5 juillet 2019, 19:03

Impeccable!
Merci beaucoup.
Bonne soirée§
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message