PB rapidité de code

Version imprimable

PB rapidité de code

Bonjour,

j'ai un code qui fonctionne bien de KIOUANE mais un peu long à exécuter.
Dans la barre d'état, je vois qu'il a calculé sur 197706 cellules.

Je souhaite mettre une plage de cellule pour aller plus vite.
Mon tableau ne change jamais, il va de A3 à E400.

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
 
Sub tri()
Application.ScreenUpdating = False
 
Dim a, b As Integer
 
 With Sheets("TRI")
    n = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A3:E" & n).Sort Key1:=Range("B3:B400"), Order1:=xlDescending, Header:= _
        xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers
 
End With
 
For v = 12 To 408 Step 11
  For j = 1 To 13
    For i = n - 1 To 3 Step -1
 
     If Cells(i, 1).Value = v Then
       For y = 1 To n - i
         If Cells(i + y, 1).Value < v Then
            Application.CutCopyMode = False
            Cells(i, 1).EntireRow.Cut
            Cells(i + y + 1, 1).Select
            Selection.Insert Shift:=xlDown
 
 
          Exit For
          End If
        Next
 
     End If
 
  Next
 
 Next
Next
 
 
End Sub

Pouvez-vous m'aider SVP.

Romain continue sur la même discussion ça évitera de créer plusieurs discussions.
Sinon je te propose comme suit :

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
Sub tri()
Application.ScreenUpdating = False
 
 
 With Sheets("TRI")
    n = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A3:E" & n).Sort Key1:=Range("B3:B400"), Order1:=xlDescending, Header:= _
        xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers
 
End With
 
For v = 12 To 408 Step 11
  For j = 1 To 13
    For i = n - 1 To 3 Step -1
 
     If Cells(i, 1).Value = v Then
       For y = 1 To n - i
         If Cells(i + y, 1).Value < v Then
            Application.CutCopyMode = False
            Range(Cells(i, 1),cells(i,5)).Cut
            Cells(i + y + 1, 1).Select
            Selection.Insert Shift:=xlDown
 
 
          Exit For
          End If
        Next
 
     End If
 
  Next
 
 Next
Next
 
Application.ScreenUpdating = True
 
End Sub

14/06/2016, 14h18
DeathZarakai

J'ai pas vu la différence entre te deux codes mais j'ai peut-être rater un truc.
Ne faut-il pas simplement remplacer n = 400?

Au passage si le n est aussi grand je pense que c'est encoreeeeeeeeeeee un soucis de lignes supplémentaires vide qui prennent de la place du temps et servent à rien.

DeathZarakai.
14/06/2016, 14h21
Kiouane

La différence est sur cette ligne :

Code:

Cells(i, 1).EntireRow.Cut

qui devient propre à la plage concernée :

Code:

Range(Cells(i, 1),cells(i,5)).Cut
14/06/2016, 14h29
DeathZarakai

Autant pour moi, j'avais pas vu la différence. Mais j'ai dit j'ai pas vu la différence pas dit qu'il y en avait pas^^
Par conter je persiste, je pense qu'il utilise des ligne vide bouffe mémoire pour que sa affecte des 100aine de milliers de lignes.

J'ai calculé sa plage fait 1985 cellules, du coup avec entête etc je dirais 2000 cellules mains 200 000 il y a un soucis.

DeathZarakai.
14/06/2016, 14h30
Kiouane

Si tu regardes la modification, tu comprendras que la procédure se faisait sur toute la ligne... Ce qui fait autant de traitement.