Discussion :

[ted the Ors]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[helios77]

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

Pourrais-tu dire ce que tu veux faire exactement ?

[Gorfael]

Salut à tous

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

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

[ted the Ors]

Oui evidemment...

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[helios77]

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

[ted the Ors]

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...

[fring]

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