Optimisation de code

Version imprimable

Bonjour a tous,

J'aimerais optimiser le code ci dessous car ca tourne beaucoup trop lentement.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
For l = 2 To .Range("AA10000").End(xlUp).Row
Longueur = 10 - Len(.Range("AA" & l))
.Range("AA:AA").NumberFormat = "@"
.Range("AA" & l).Value = Left("0000000000", Longueur) & Range("AA" & l)
Next l
 
For j = 2 To .Range("AA10000").End(xlUp).Row
    For k = 2 To .Range("AA10000").End(xlUp).Row
 
If IsError(.Range("AA" & k).Value) Then
Else
    If .Range("A" & j).Value = .Range("AA" & k).Value Then
        .Range("E" & j).Value = .Range("E" & j).Value & "," & .Range("AB" & k).Value
    End If
End If
    Next k
Next j

Merci pour votre aide,

15/10/2015, 10h55
antonysansh

Bonjour FFGUY,

Code:

nb_ligne = .Range("AA10000").End(xlUp).Row

et ensuite

Code:

for i = 2 to nb_ligne

pour ne pas calculer pour toutes tes boucles.

Code:

.Range("AA:AA").NumberFormat = "@"

Une mise en forme sur toute la colonne pas besoin de le faire pour chaque ligne donc à sortir de la boucle.

Merci,

J'ai fait quelques modifs et pris en compte ce que tu m as dit, ca va un peu plus vite mais c est pas encore ca:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
nbline = .Range("A1000").End(xlUp).Row
nbline2 = .Range("AA10000").End(xlUp).Row
 
For j = 2 To nbline
    For k = 2 To nbline2
 
If IsError(.Range("AA" & k).Value) Then
Else
    If .Range("A" & j).Value Like .Range("AA" & k).Value Then
        .Range("E" & j).Value = .Range("E" & j).Value & "," & .Range("AB" & k).Value
    End If
End If
    Next k
Next j

15/10/2015, 18h42
clementmarcotte

Bonjour,

Au début:

Code:

application.screenupdating = false

De préférence, ne pas oublier à la fin:

Code:

application.screenupdating = true

heu

bonjour
peut etre comme ceci:

Code:

1
2
3
4
5
6
nbline = .Range("A1000").End(xlUp).Row
set plage = Range("AA2:AA" & Cells(Rows.Count, "AA").End(xlUp))
For j = 2 To nbline
    Set cel = plage.Find(.Range("A" & j).Value, lookat:=xlWhole)
    If Not cel Is Nothing Then .Range("E" & j).Value = .Range("E" & j).Value & "," & .Range("AB" & cel.Row).Value
Next j

tout simplement

19/10/2015, 09h07
FFGUY

Merci Patrick, c est beaucoup plus rapide now.
Juste pour etre sur en faisant cette methode je vais bien recuperer toutes les valeures disponibles dans AB pour tous les les occurences ou A =AA ?

Merci,
19/10/2015, 14h34
patricktoulon

re

Bonjour
oui sauf si tu a plus de 1000 lignes

le mieux des le depart serait de faire

Code:

nbline = .cells(rows.count,1).End(xlUp).Row