Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel macro probleme autofilter

macro probleme autofilter

1 réponse
Avatar
Jojonini
Bonjour,

j'ai crée une macro utilisant le filtre auto d'excel pour comparer deux
bases de données, mais elle ne marche pas comme prévu...
voila la macro:
For i = 2 To 80 Step 2

Windows("Liste 1.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).CopyWindows("Liste pièces
190.xls").Activate
Sheets("Feuil4").Select
Range("A" & i - 1).Select
ActiveSheet.Paste


End Sub


Le filtre auto prend bien la valeur de chaque cellule et demande "contient"
mais il n'arrive pas à faire OK et à afficher les lignes qui correspondent à
la valeur, alors qu'il y en a...

QUelqu'un aurait une idée?

Merci beaucoup...
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
bonjour Jojonini,

essaie comme ça :

Selection.AutoFilter Field:=1, Criteria1:="=*" & valeur & "*", Operator:=xlAnd

isabelle

Bonjour,

j'ai crée une macro utilisant le filtre auto d'excel pour comparer deux
bases de données, mais elle ne marche pas comme prévu...
voila la macro:
For i = 2 To 80 Step 2

Windows("Liste 1.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).CopyWindows("Liste pièces
190.xls").Activate
Sheets("Feuil4").Select
Range("A" & i - 1).Select
ActiveSheet.Paste


End Sub


Le filtre auto prend bien la valeur de chaque cellule et demande "contient"
mais il n'arrive pas à faire OK et à afficher les lignes qui correspondent à
la valeur, alors qu'il y en a...

QUelqu'un aurait une idée?

Merci beaucoup...