Vba execution longue (>5min)

Résolu/Fermé

Jabba the Hutt Messages postés 32 Date d'inscription vendredi 22 janvier 2010 Statut Membre Dernière intervention 2 août 2010 - 17 mars 2010 à 18:13
eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 - 19 mars 2010 à 21:16

Bonjour tout le monde,

J'ai un petit souci avec un code, je pense que je l'ai mal écrit parcequ'il mets environ 6 minutes pour s'exécuter (certes correctement).

mon classeur est certes lourd, mais j'opère l'instruction sur une seule feuille (env 40 000 ligne).

Voici mon code :

Sub CCCChanger_EXT()
Dim u As Long
Dim x As Long

Columns("AD:AD").Copy
Columns("IV:IV").Select
ActiveSheet.Paste
Application.CutCopyMode = False

u = 16005
For x = Cells(16005, 35).CurrentRegion.Rows.Count To 1 Step -1

If Cells(u, 30).Value <> "S300EXT" Then _

If Cells(u, 35).Value = "Ext" Then _

Cells(u, 30).Value = Cells(u, 256).Value & "Ext"
u = u + 1

Else _

u = u + 1

End If

Else

u = u + 1
End If

Next

End Sub

Merci

A voir également:

Vba execution longue (>5min)
Vba attendre 1 seconde ✓ - Forum VB / VBA
Signature trop longue gmail ✓ - Forum Gmail
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA
Erreur d'exécution 1004 ✓ - Forum Excel

1 réponse

Réponse 1 / 1

eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 240
18 mars 2010 à 07:24

Bonjour,

En début de code met application.screenupdating = false
remet à true en fin de code.
Et si ça ne suffit pas tu peux interdire le recalcul (si tu as beaucoup de formules par exemple) avec Application.Calculation = xlManual
Le rétablir avec xlAutomatic, et si besoin forcer un recalcul avec calculate

eric

Jabba the Hutt Messages postés 32 Date d'inscription vendredi 22 janvier 2010 Statut Membre Dernière intervention 2 août 2010
18 mars 2010 à 10:49

Merci Eric,

J'ai rajouté application.screen....

ça n'a pas trop changé la durée d'exécution, avec le recalcul xlautomatique cela à même buggé (le classeur était à la base défini en calcul sur ordre, dans outils, options ...). du coup je l'ai enlevé.

En fait je pense que mon code est mal écrit. Je me pencherai sur l'écriture de quelque chose de plus efficient.

encore merci.

eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 240
19 mars 2010 à 21:16

C'est vraiment un copier coller de ton code ?
En le regardant de plus près la structure est incorrecte. Je suis même étonné que tu aies le résultat désiré...
Si tu écris
if test... then résultat...
ton if est terminé, plus le droit aux else et autres endif

Si tu veux ton if sur plusieurs lignes ne rien mettre après le then :

if test... then
  résultat1
else
  résultat2
endif

Evite les
if test1... then if test2... then résultat...
Imbrique tes if et referme-les par des endif :

if test1... then
  if test2... then
    resultat
  endif
endif

Quand tu auras réécris ton code avec ces règles ont y verra plus clair pour améliorer si besoin

eric

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel