Amélioration processus Excel VBA

mdelusse56 Messages postés 43 Statut Membre -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je suis actuellement à la recherche d'un code (si il existe bien sur..) pour accélérer une macro.

En fait j'ai fait une macro pour insérer dans une feuille de calcul des colonnes ou les informations sont tirées de recherche v.

Seulement le fichier est assez lourd (plus de 21000 lignes) donc la macro prend au moins 10 minutes pour faire les 8 colonnes...

Je voulais donc savoir si il y avait une possibilité d'insérer un code dans ma macro pour accélérer le processus ?

Cordialement.

2 réponses

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    ces lignes de code amelioreront le temps d'execution, mais pour aller plus loin, il faudrait voir votre code

    'début du programme
    'augmente la vitesse de calcul
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
    
    
    'a la fin du programme avant le end sub
    'redonne la main au calcul automatique d'excel
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.Calculation = xlAutomatic
    0
    1. mdelusse56 Messages postés 43 Statut Membre
       
      Bonjour,

      Merci beaucoup pour ce code. Il marche, ma macro rame du coup beaucoup moins mais mes recherches v ne fonctionnent plus par contre Oo
      0
      1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > mdelusse56 Messages postés 43 Statut Membre
         
        bonjour,

        mes recherches v ne fonctionnent plus par contre Si formules sur feuille, tout fait normal pendant l'execution de la macro, mais apres le calcul etant remis en automatic, ca devrait se mettre a jour. Vous pouvez mettre ces lignes en commentaire pour voir si ok

        'Application.EnableEvents = False
        'Application.Calculation = xlManual



        et regardez ce que propose Boisgontierjacques 5 août 2015 à 23:08 pour ameliorer les rechercheV
        0