Bonjour,

je souhaiterais extraire à l'aide d'une macro les valeurs différentes de deux colonnes.

J'utilise la macro ci-après qui fonctionne bien mais qui met un temps interminable pour calculer.

Existe-t-il une formule beaucoup plus rapide.

Voici ce que je recherche pour exemple :
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

	

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

	
123456789
 
colonne A                           Colonne B              COLONNE C
 1800                                  4511                    5231
 1500                                  1800                    2310
 2310                                  3000 
 4511                                  25689                   
 5231                                  1500  
 
 etc jusqu'à 10000
Je souhaite que mes valeurs : colonne A : 2310 et 5231 soient extraites En COLONNE C car différentes de colonne B

voici ma macro "escargot"...

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
Sub epureFOREACHB1()
 
Dim valeur, resultat As Variant
 
Application.ScreenUpdating = False
For Each valeur In S
heets("feuil3").Range("a:a1000")
For Each resultat In Sheets("feuil3").Range("b:b1500")
On Error Resume Next
If valeur.Value <> resultat.Value Then
resultat.Value = resultat.Value
Else: valeur.Value = 0
End If
Next
Next
Application.ScreenUpdating = True
 
End Sub
Par avance merci.