[RESOLU] Optimisation d'un code

[aubelix]

Bonjour à tous les Amis du Forum.

Je sollicite de nouveau votre aide pour simplifier un code.
Il s'agit après extractions, de mettre en forme les feuilles
Si les feuilles différentes de "EXTRACTIONS", "DATA", "Annu" alors mettre en forme.
J'ai plus de 45 feuilles voire plus. Le temps d'exécution est extrêmement long...
A l'inverse du fichier démo.
Je compte sur votre expérience pour essayer d'optimiser le code, que j'ai réalisé avec
l'enregistreur de macros. J'ai pourtant élagué le code, mais l'exécution reste longue.

Par avance, Merci pour votre aide.
Cordialement.

 

[pierrejean]

Re : Optimisation d'un code

Bonjour aubelix

Vois s'il y a du mieux (mais contrôle bien le résultat)

 

[aubelix]

Re : Optimisation d'un code

Bonjour PierreJean et tous les Amis du Forum.

Merci pour ta réponse.
L'exécution est très rapide, presque comme le classeur exemple.
Le seul souci, les colonnes ne sont pas ajustées et la sélection
de la colonne G1 à fin reste en sélection.
Sinon, c'est parfait.

Merci pour ton aide.
Cordialement.

 

[Paf]

Re : Optimisation d'un code

bonjour aubelix, pierrejean

proposition concernant la partie traitement colonne G1 à fin :

'Séléction de la colonne G1 à la dernière colonne à droite contenant
'des données format date d-mmm-yy

With Range(Range("G1"), Range("G1").End(xlToRight))
  .NumberFormat = "[$-40C]d-mmm-yy;@"
  .Columns.AutoFit
End With

par ailleurs toutes les feuilles sont traitées, y compris DATA, EXTRACTION et Annu
remplacer

'Si les feuilles différentes de "EXTRACTIONS", "DATA", "Annu" alors mettre en forme
If Sheets(i).Name <> "EXTRACTIONS" Or Sheets(i).Name <> "DATA" Or Sheets(i).Name <> "Annu" Then

par

'Si les feuilles différentes de "EXTRACTIONS", "DATA", "Annu" alors mettre en forme
If Sheets(i).Name <> "EXTRACTIONS" And Sheets(i).Name <> "DATA" And Sheets(i).Name <> "Annu" Then

Bonne suite

 

[aubelix]

Re : Optimisation d'un code

Bonjour Paf et tous les Amis du Forum.
Merci pour ta réponse. J'ai pris note de tes remarques.
Mais ".Columns.AutoFit" ne fonctionne pas.
Mais en sélectionnant tous les cellules, j'ai adapté le code.
Merci encore pour ton aide.

Cordialement.