OPTIMISER MACRO

[KTM]

salut cher Forum
j'ai une table qui comporte 23 colonnes et 4500 lignes sur laquelle je dois travailler.
j'ai élaboré la macro si dessous qui doit supprimer les colonnes Q,R,S et supprimer toutes les données de cette table sauf les entêtes
le probleme est que la macro met des minutes à s'exécuter.
je ne sais pas si cette lenteur est due a mon PC ( Dual Core 4G de RAM) ou si c'est l'architecture de ma macro qui en est la cause.
Je voudrais que vous aidiez a optimiser la macro si possible.

Application.ScreenUpdating = False
Dim a As Integer
Sheets("E").select
Columns("Q:S").Delete Shift:=xlToLeft
a = Sheets("E").Range("A" & Rows.Count).End(xlUp).Row
Sheets("E").Range("A2:T" & a).Delete
Application.ScreenUpdating = True

 

[Staple1600]

Re

Même punition

 

[Staple1600]

Re

Ca y est , j'ai eu un flash (grace à la copie d'écran)
If CLng(Split(Application.Version, ".")(0)) >= 12 Then .EnableFormatConditionsCalculation = Not ok

Là plus d'erreur

 

[job75]

Bonjour KTM, JM, eriiiic,

En général je teste Application.Version avec Val => If Val(Application.Version) >= 12 Then

Cela dit toute cette gymnastique est probablement inutile, il devrait suffire que KTM nous donne les infos nécessaires sur son fichier.

A+

 

[Staple1600]

Bonjour job75

Non pas inutile.
Cela me permet de me souvenir qu'un Val vaut mieux qu'un Split parfois
Ceci dit je te rejoins sur ta suggestion concernant le fichier "réel" de KTM.

 

[eriiic]

Ca y est , j'ai eu un flash

Le mystère est donc résolu

Cela dit toute cette gymnastique est probablement inutile, il devrait suffire que KTM nous donne les infos nécessaires sur son fichier.

Peut-être. Il n'en reste pas moins qu'en cas de lenteur la 1ère chose à faire est de désactiver tout ce qui peut entraîner des recalculs.
Sinon il lui reste la solution de supprimer la feuille et de la recréer depuis un modèle vierge.
eric

 

[kadelmalin]

Bonjour le forum,
Insérez ceci début de la macro :
With Application
.Calculation = xlCalculationManual
End With
et à à la fin :
With Application
.Calculation = xlCalculationAutomatic
End With

 

[Staple1600]

Re, Bonjour kadelmalin

eriiiic
Donc sur Excel 2007, MsgBox Application.Version renvoie 12 ou 12.0?

kadelmalin
C'est déjà ce que fait (en plus complet) OptimiseVBA soumis par eriiiic précédemment, non ?
(cf message#7)

 

[eriiic]

Je suis sur 2010 et il me renvoie un String "14.0"
En fait c'est le séparateur décimal système.
Je suis en "." donc pas d'erreur, et tu dois être en ","
Du coup je vais ajouter Val() dans le post

 

[mapomme]

Salut à tous,

Surtout pour tous vous saluer :

Je suis sur 2010 et il me renvoie un String "14.0"
En fait c'est le séparateur décimal système.
Je suis en "." donc pas d'erreur, et tu dois être en ","
Du coup je vais ajouter Val() dans le post

A mon humble avis, le séparateur décimal du système ou d'Excel n'a rien à voir (je suis en virgule sur les deux et MsgBox Application.Version renvoie 14.0).

 

[Staple1600]

Bonjour mapomme

Et tu avais aussi un message d'erreur avec OptimiseVBA (1ère version) ?
cad avec :
If Application.Version>= 12 Then .EnableFormatConditionsCalculation = Not ok

By the way, si tu testes ma macro du message#6, chez toi aussi la phase de suppression est quasi-immédiate. ?

 

[eriiic]

Bonjour mapomme,

A mon humble avis, le séparateur décimal du système ou d'Excel n'a rien à voir (je suis en virgule sur les deux et MsgBox Application.Version renvoie 14.0)

Application.Version seul fonctionne, c'est Application.Version >= 12 qui pose problème si on compare une chaine non convertible à un nombre.
J'ai pu reproduire l'erreur de Staple en changeant dans Région et langue.
Et changer dans les options Excel n'est pas suffisant, ça passe

 

[mapomme]

Salut @eriiiic,

J'ai pu reproduire l'erreur de Staple en changeant dans Région et langue.

Ne jamais oublier que Staple1600 cause en "bas breton"

 

[mapomme]

Re,

By the way, si tu testes ma macro du message#6, chez toi aussi la phase de suppression est quasi-immédiate. ?

Je l'ai testé depuis lontemps et la suppression est instantanée

 

[KTM]

Bonjour KTM, JM, eriiiic,

En général je teste Application.Version avec Val => If Val(Application.Version) >= 12 Then

Cela dit toute cette gymnastique est probablement inutile, il devrait suffire que KTM nous donne les infos nécessaires sur son fichier.

A+

Salut Job75
Mon fichier pèse 14Mo
La feuille en question contient formules et MFC
20COLONNES
4500LIGNES

merci.

 

[mapomme]

Salut @KTM,

Gros fichier donc pas question de passer sur XLD. Attention! Les MFC peuvent être une source de ralentissement considérable voire bloquant.