Optimisation Macro VBA

Bonjour,

Je viens vers vous pour m'apprendre à optimiser mon code VBA, voici ci-dessous le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub Extraction() Range("B:B").Select 'Sélection de la colonne B Selection.Insert Shift:=xlToRight 'Créer la colonne envoie tout ce qu'il contient vers la droite ActiveCell.FormulaR1C1 = "Désignation" 'Nomme la colonne "Désignation"   Dim compt As Integer   For compt = 2 To 10000 Range("J" & compt).Select If Range("J" & compt) = "***" Or Range("J" & compt) = "3000" Or Range("J" & compt) = "3001" Or Range("J" & compt) = "3005" Or Range("J" & compt) = "3006" Or Range("J" & compt) = "3050" Or Range("J" & compt) = "7900" Or Range("J" & compt) = "7910" Or Range("J" & compt) = "7920" Then   'MsgBox ("Ok")   Else Selection.EntireRow.Delete compt = compt - 1 If Range("A" & compt) = "" Then Exit For End If End If Next compt     End Sub

---

Lorsque j'exécute la macro, elle prend un temps considérable à s'exécuter alors que mon document devrait contenir (chaque jour) environ 1000 lignes à la fin des suppressions...
Cependant, il mouline et mouline et encore et toujours .. Alors qu'a partir du moment ou la colonne A et la ligne soit vide, nous sortons de la boucle FOR. Or ici, c'est bien plus long.
Avez vous une solution pour optimiser mon code (et ainsi pour qu'il soit traiter plus rapidement) et aussi une solution pour ma boucle défectueuse.

Merci, Bonne journée

Aurélien

Bonjour,
Si tu enlevais les méthodes Select qui ne servent à rien en VBA et qui ne font que ralentir l'exécution du programme, tu pourras voir déjà une belle amélioration.
A lire aussi Excel VBA – Supprimer des lignes suivant critères avec la méthode AdvancedFilter

Tout à fait d'accord avec Philippe.
Les Select ralentissent l'éxécution.
Essaies de remplacer tes lignes 8 à 21 par quelque chose comme :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

For compt = 2 To 10000     Select Case ActiveCell.Offset(compt, 0).Value   Case "***", "3000", "3001", "3006" '....toutes tes valeurs 'this is ok   Case "" Exit For   Case Else   ActiveCell.Offset(compt, 0).EntireRow.Delete compt = compt - 1     End Select   Next compt   End Sub

---

C'est une solution, il y en a d'autres...

Bonjour,

En effet, je n'avais pas mis les commentaires pour le "Range("J" & compt).Select", je l'utilisais juste pour me repérer.

Merci pour le Tuto Philippe, je vais regarder ça de plus près.

FRGOL, les "case" fonctionnent en VBA ? (C'est pas du Bash ou un truc du genre ? ?)

Merci

Aurélien

Bonjour Baraas,
Les Select Case fonctionnent trés bien en VBA Excel est sont souvent très utiles pour remplacer des "If ... Then" répétitifs.
;)

Bonjour,
Comme l'a déjà confirmé FRGOL, la structure décisionnelle Select Case fait partie du langage basic depuis de nombreuses années et si ma mémoire est bonne depuis le langage Quickbasic de MicroSoft mais existait déjà dans les compilateurs qui l'ont précédés;
Je te conseille la lecture du tutoriel d'Olivier Lebeau Initiation au VBA Office