XL 2016 vba trop lent en execution

[julien741]

Bonjour à tous,

Je viens vers vous car j'ai une macro qui était assez rapide il y a 2 semaines, mais aujourd'hui elle mets prés de 10minutes a se faire.
En soit elle fonctionne mais très lente, pourriez-vous m'aider soit à la simplifier ou me dire ce qu'il faudrait faire pour la rendre plus rapide?

Ci-joint le fichier entier.

Merci par avance votre aide.

Cdt.
Julien.

 

[julien741]

Excuse moi j'ai oublier de préciser que c'est la macro de l'onglet FPE1 qui est devenue très lent, les autres fonctionne bien et sont assez rapide.

Cdt.

Julien.

 

[Phil69970]

Bonjour @julien741

Cela bloque à partir d'ici

For L = 11 To 68 Step 3 ' Pour tout le tableau
If Cells(L, "E") <> "" Then ' Tant qu'en E on a une valeur
==> F.Cells(dl, "E") = [B8] ' Date

et même si je remplace par

Sheets("BDD").Range("E290") = [B8]

ou par

Sheets("BDD").Range("E290") = Sheets("FPE1").Range("B8").Value

C'est toujours lent

par contre si j'écris dans une nouvelle feuille

Sheets("Feuil1").Range("E290") = Sheets("FPE1").Range("B8").Value

C'est instantané donc j'en conclu qu 'il y a un pb dans ta feuille BDD
==> Peut être il te faudra la refaire ...

*Pour la remarque de Bruno tu réédites ton post et tu mets le titre en minuscule ce n'est pas la peine d'en refaire 1 nouveau car tu auras un doublon

*Merci de ton retour

@Phil69970

 

[julien741]

re-Bonjour Phil,

Super, merci je vais revoir mon onglet du coups BDD, et merci pour le message, je viens donc de réédités le post, par contre du coup j'ai fais la betises d'en recrée un autre comment fait-on pour le supprimer?

Cdt.

Julien.

 

[Phil69970]

Re

Je suis pas sur que tu puisse supprimer un post que tu as crée
Solution clique sur le bouton signaler et une fenêtre s'ouvre explique que tu as fait un doublon et que tu demande de supprimer le nouveau post
Attention ne te trompe pas de post que tu veux supprimer ...

@Phil69970

 

[Phil69970]

Re

@julien741

1)
J'ai vu que dans ta feuille BDD tu as des formules sur 35 000 lignes !!
Est ce raisonnable quand ta BDD ne comporte que ..... 290 lignes

Spoiler: Réponse :

Non bien sur !!! Mais tu le savais déjà ...

Spoiler: Solution :

Mets les formules en fonction des lignes que tu as besoin.
Si j'ai compris à chaque transfert tu copies au max 68 lignes .....

2)
En début de macro "Transfert" tu peux mettre

Application.Calculation = xlCalculationManual

Et en fin de macro "Transfert" tu remets tout en place

Application.Calculation = xlCalculationAutomatic

@Phil69970

 

[julien741]

Re,

J'ai mit 35000 lignes c'est pour l'enregistrement des données pour une année de production.
J'ai refait l'onglet il y a du mieux, mais elle met encore pas mal de temps.
Je vais rajouté les 2 codes en début et fin de macro et je te redit.

P.I : j'ai signalé le 2eme post et c'est bien supprimer, merci pour le conseil.

Cdt.
Julien.

 

[Phil69970]

Re

1)
Tu supprimes toutes tes formules en trop ==> donc toutes les formules après la ligne 289
==> J'en ai vu juste sur les colonnes A,B,C et D

Mets les formules en fonction des lignes que tu as besoin.

2)
Tu copies ce code en fin de macro transfert ==> Juste avant "End Sub"

Dim DerligA&, DerligE&
With Sheets("BDD")
    DerligA = .Range("A" & Rows.Count).End(xlUp).Row
    DerligE = .Range("E" & Rows.Count).End(xlUp).Row
    .Range("A" & DerligA & ":D" & DerligE).FillDown
End With

Et toutes tes formules (Colonnes A,B,C, et D ) seront copiés à la juste "longueur" en fonction de chaque transfert

*Cette solution vient à la place de mon post #9

*Merci de ton retour

@Phil69970

 

[julien741]

Bonjour Phil,
Désolé pour cette attente, mais j'était pas à l'entreprise cette semaine pour l'essayer, je viens de faire un essai ce matin et la macro est plus rapide, j'ai fais quelques adaptations mais ce que tu m'a donnée fonctionne bien mieux.
Merci du coups de main.
Cdt.
Julien.