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
Partager