Optimiser un bout de code VB

Bonjour à tous,

J'ai ecrit le ptit bout de code suivant...Il est appellé via une procédure "Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)"
...
Feuille1 et Feuille2 contiennent environ 1000 lignes, du coup la moindre modification prend des plombes sur mon vieux coucou!

Auriez vous quelques conseils, avis ou idée pour améliorer cela! Optimiser en quelque sorte?

lastline_FeuilleX, X=[1,2], est la dernière ligne remplie de la feuille FeuilleX

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 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

For i = 3 To lastline_Feuille1 For j = 3 To lastline_Feuille2 If Sheets("Feuille1").Range("A" & i) = Sheets("Feuille2").Range("A" & j) Then If Sheets("Feuille1").Range("B" & i) = Sheets("Feuille2").Range("B" & j) Then For k = 3 To lastline_Feuille2 If (Sheets("Feuille1").Range("K" & i) = Sheets("Feuille2").Range("E" & k)) Then Bool = 1 Exit For Else Bool = 0 End If Next If Bool = 0 Then Sheets("Feuille1").Select Sheets("Feuille1").Rows(i).Select Selection.Copy ' Copie de la ligne depuis la feuille Cobol Sheets("Feuille2").Select Rows(i).Select Selection.Insert Shift:=xlDown ' Insertion de la ligne dans Feuille2 j = lastline_Feuille2 ' Sortie de la boucle 2 Range("C" & i).Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Range("C" & i).Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Range("E" & i).Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Range("E" & i).Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Range("E" & i).Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Range("E" & i).Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft End If End If Exit For End If Next Next

---

D'avance merci!
Bonne fin d'a-m

Ted

Pour optimiser du code, faut déjà comprendre à quoi il sert

Pourrais-tu dire ce que tu veux faire exactement ?

Salut à tous

Citation:

---

Envoyé par helios77

Pour optimiser du code, faut déjà comprendre à quoi il sert
Pourrais-tu dire ce que tu veux faire exactement ?

---

:yaisse2: +1
et si tu veux réellement optimiser un code, ne donne pas un lambeau de code, donne toute la macro.
A+

Oui evidemment...:roll:

Feuill1 contient
Colonne A: des noms de programme
Colonne B: leur type
Colonne C: contient "Oui" ou "Non"
Colonne E: une référence de modification
Colonne K: une date de modification
Les colonnes D,F,G,H,I,J contiennent des informations qui ne m'interessent pas dans le cadre de cette macro

Feuill2 est un historique de Feuill1 qui contient
Colonne A: des noms de programme
Colonne B: leur type
Colonne C: une référence de modification
Colonne D: une date de modification

L'algo serait donc:

Code:

---

1 2 3 4 5 6 7

Parcourir Feuille1 Si Colonne C de feuille1 contient "Oui" Si Référence de modification de feuille1non vide Parcourir Feuille 2 Si on trouve le même composant, du même type avec une référence de modification différente Copie de la ligne de feuille1 vers Feuille2

---

ce qui est long, c'est la copie de ligne
au lieu de faire 10 copier coller, je te conseille plutôt de répérer les lignes à copier pour ne fair qu'un seul copie... tu gagneras déjà pas mal de temps tu verras

J'ai fait le test avec des cas où il y a peu de ligne à copier (moins de 10) et l'exécution reste très longue...:?

Bonjour tlm,

D'après moi une des causes de la lenteur d'exécution provient du fait que tu as 3 boucles imbriquées, dans ce cas il vaut mieux mixer une boucle avec la fonction FIND

Tu as un exemple d'utilisation de cette fonction dans ton aide (F1)
En cherchant un peu sur le forum, tu pourras également trouver plusieurs exemples d'utilisation d'une boucle + Find

Bon je vais voir pour le find, mais vu que je suis une brelle en VB, ca va me prendre du temps..

Par contre, je me demandais si en terme de "temps", un "For" suivi d'un test (comme je fais) etait equivalent à un While Test+Do?