Discussion :

[FFGUY]

Bonjour a tous,

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

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

[antonysansh]

Bonjour FFGUY,

Code :

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

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

et ensuite

Code :

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

for i = 2 to nb_ligne

pour ne pas calculer pour toutes tes boucles.

Code :

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

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

[FFGUY]

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 :

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

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

[clementmarcotte]

Bonjour,

Au début:

Code :

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

application.screenupdating = false

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

Code :

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

application.screenupdating = true

[patricktoulon]

bonjour
peut etre comme ceci:

Code :

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

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

[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,