Bonjour,

J'ai écrit une macro utilisant autofilter afin de comparer les valeurs (à 6 chiffres et lettrs) des cellules liste 1 avec celles de liste 2 (à 9 chiffres et lettres). J'aimerai voir si ces valeurs sont contenu dans la liste 2 (vu la différence de format). La valeur de la cellule est bien copiée dans la case de filtre auto avec l'option "contient la valeur" mais il ne fait pas OK ensuite, donc la liste n'affiche pas la sélection, alors qu'il y a des valeurs possibles...
QUelqu'un aurait une idée?

Merci beaucoup...


voici la macro:

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
19
20
21
22
23
24
25
26
 For i = 2 To 80 Step 2
 
Windows("Liste1.xls").Activate
    Sheets("Feuil3").Select
    Range("A" & i).Select
    Application.CutCopyMode = False
    Selection.Copy
    valeur = Range("A" & i).Value
 
 
 
Windows("Liste2.xls").Activate
    ActiveWindow.ScrollColumn = 1
    Sheets("Feuil1").Select
    Selection.AutoFilter Field:=1, Criteria1:=valeur & " * ", Operator:=xlAnd
 
 
 
Selection.SpecialCells(xlCellTypeVisible).Copy
Windows("Liste1.xls").Activate
    Sheets("Feuil4").Select
    Range("A" & i - 1).Select
    ActiveSheet.Paste
 
 
Next