Réduction du temps de la macro

Version imprimable

Bonjour à tous!

Je cherche à réduire le temps de ma maro parce que je travaille avec beaucoup de ligne et quand je fais tourner ma macro elle prend un temps fou à calculer ce que je veux lui faire faire..

En gros c'est assez simple.
J'ai une liste de nombre en colonne A
J'ai une liste de nombre en colonne B

Je veux sortir tous les chiffre de B qui ne sont pas dans A.
Par contre je ne veux pas les chiffres de A qui ne sont pas dans B
(Donc ce n'est pas juste prendre tous les doublons...)

Voici mon code
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 Sub customer() Sheets("blabla").Select k = 1 For j = 1509 To 3008 f = 0 For i = 1 To 1509 Sheets("blabla").Select If Cells(j, 5).Value = Cells(i, 5).Value Then f = f + 1 End If If f = 0 Then Sheets("customer").Select Cells(k, 1).Value = Cells(j, 5).Value k = k + 1 End If Next i Next j End Sub
Merci pour vos idées !

Les classiques :

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
Sub customer()
 
Application.ScreenUpdating = False
 
Sheets("blabla").Select
 
k = 1
For j = 1509 To 3008
f = 0
    For i = 1 To 1509
 
        With Sheets("blabla")
            If .Cells(j, 5).Value = .Cells(i, 5).Value Then
                f = f + 1
            End If
        End With
 
        If f = 0 Then
            With Sheets("customer")
                .Cells(k, 1).Value = .Cells(j, 5).Value
                k = k + 1
            End With
        End If
    Next i
Next j
 
Application.ScreenUpdating = True
 
End Sub

12/05/2013, 17h13
cott333

Merci!

Mais ca continue de tourner super lentement. La macro doit tourner pendant 3min au moins...
En meme temps je comprends..il cherche un nombre parmi 1509 et il repete l'opération 1509 fois.

Il n'y a pas une application sous vba permet de voir si un chiffre apparait dans un tableau de maniere plus rapide?
12/05/2013, 17h45
Marc-L

Bonjour.

Une boucle pour parcourir la colonne B et utilisation de la méthode Find appliquée à un Range pour comparer avec la colonne A …

Bonsoir,

Une autre solution utilisant des tableaux intermédiaires (temps d'exécution < 10 sec).

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 customer()
 
Dim k As Integer
Dim i As Integer
Dim j As Integer
Dim f As Integer
 
Dim tabACol5 As Variant
Dim tabBCol1 As Variant
Dim tabBCol5 As Variant
 
'copie les cellules utiles vers des tableaux
tabACol5 = Sheets("blabla").Range("E1:E3008")
tabBCol1 = Sheets("customer").Range("A1:A3008")
tabBCol5 = Sheets("customer").Range("E1:E3008")
 
 
k = 1
For j = 1509 To 3008
    f = 0
    For i = 1 To 1509
        If tabACol5(j, 1) = tabACol5(i, 1) Then
            f = f + 1
        End If
 
        If f = 0 Then
            tabBCol1(k, 1) = tabACol5(j, 1)
            k = k + 1
        End If
    Next i
Next j
 
'recopie les tableaux vers les feuilles
Sheets("blabla").Range("E1:E3008") = tabACol5
Sheets("customer").Range("A1:A3008") = tabBCol1
Sheets("customer").Range("E1:E3008") = tabBCol5
 
 
End Sub

13/05/2013, 10h26
cott333

Merci ca marche!