Code autofiltre qui ne fonctionne pas

[Tazko]

Bonjour,

J'ai un problème sur le code ci-dessous qui ne fonctionne pas et je ne sais pas ou placer ma" feuil3" car c'est a partir de la que je dois copier les lignes peut m'aider svp

* * Range("o2") = "=AND(b2=""réussi"",d2=""réussi"",f2=""reussi"")"
* * Range("a1:m" & Range("b65000").End(xlUp).Row).AdvancedFilter action:=xlFilterCopy, CriteriaRange:= _
* * Range("o1😱2"), CopyToRange:=Sheets("Feuil5").Range("a1:m1"), Unique:=False
* * Range("o2").ClearContents
End Sub
Cordialement

 

[Caillou]

Re : Code autofiltre qui ne fonctionne pas

Bonjour,

C'est pas très clair,
donc, si j'ai bien compris : tu ne peux pas faire d'extraction sur une autre feuille que la feuille active. Alors pour effectuer ton filtre élaboré, plutôt que de partir de la feuille où se trouve les données, il faut partir de la feuille sur laquelle l'extraction doit être faite (les données pouvant se trouver sur une autre feuille)
Tu peux utiliser l'enregistreur de macro, ce qui donnera un code ressemblant à ceci :

Sheets("Feuil1").Range("A1:A14").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("Feuil1!Criteria"), CopyToRange:=Range("A1"), Unique _
        :=False

Caillou

 

[Tazko]

Re: Re : Code autofiltre qui ne fonctionne pas

Bonjour caillou,

je vous remerci pour votre reponse, mais je pense que je me suis mal exprimé

vous trouverez ci-joint mon tableau qui recapitul la situation,

en vous remerciant d'avance