Problème Filtre et erreur 1004

[Excelced]

Bonjour,

j'essaie de faire un filtre sur un tableau mais je me retrouve avec une erreur 1004 "erreur définie par l'application ou par l'objet"

voici le code:

Sub Filtre_GL()

    Dim Dpt As Integer

    Dpt = Sheets("Controle").Range("F2")

    Range("A2:AL10000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Dpt, CopyToRange:=Sheets("Tri").Range("A2:AL2"), Unique:=False
    
End Sub

je souhaite définir mon critère par une variable (se situant sur la feuille nommée "controle") car il peut changer, et copier le résultat sur une autre feuille.
étant débutant, je rame un peu (voir beaucoup) quand ça bug

merci d'avance

 

[Guest]

Re : Problème Filtre et erreur 1004

Bonjour

CriteriaRAnge, comme son nom l'indique doit être une plage d'au moins 2 cellule

F1 "EtiquetteDeColonne"
F2 "valeur du critère"

Sub Filtre_GL()
 
    Dim Dpt As Range
 
    Set Dpt = Sheets("Controle").Range("F1:F2")
 
    Range("A2:AL10000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Dpt, CopyToRange:=Sheets("Tri").Range("A2:AL2"), Unique:=False
 
End Sub

si cela ne fonctionne pas et chaque cas étant unique, joint un exemple de ton fichier.

A+

 

[Excelced]

Re : Problème Filtre et erreur 1004

Ah ok, merci

par contre quand je fais un débogage pas à pas il me surligne en jaune Sub Filtre_GL ()
c'est normal ?

je vais voir pour préparer un fichier allégé

 

[Excelced]

Re : Problème Filtre et erreur 1004

voici un fichier simplifié

 

[Guest]

Re : Problème Filtre et erreur 1004

Bonjour,


je ne sais pas chez moi cela fonctionne (sous 2007) par contre ce n'est pas un code à mettre dans un module de feuille mais dans un module général.

Dans l'éditeur VBE Insertion/Module en veillant bien à ce que le projet sélectionné dans la fenêtre de gauche soit bien celui de ton classeur.

Regarde dans les autres modules (si tu en as) si une macro ne porte pas déjà ce nom.

A+

 

[Excelced]

Re : Problème Filtre et erreur 1004

ok, j'ai créer un module spécifique

j'ai rajouté Sheets("Grand Livre"). sur la dernière ligne pour lui spécifier la feuille de données.

et j'ai modifier aussi CopyToRange:=Sheets("Tri").Range("A2:I8") sinon il me retournait une erreur

mais par contre il ne filtre pas mes données, il les recopies juste sur la feuille Tri

 

[Guest]

Re : Problème Filtre et erreur 1004

Bonsoir,

Il me semblait avoir corrigé ce problème, j'avais pas du enregistré. ta plage à filtrer elle part de la ligne 1 et non pas de la ligne 2.

Range("A11:I18") et non pas A2:I18, sinon les titres ne sont pas trouvés et il ne peut donc pas filtrer.

Sub Filtre_GL()
 
    Dim Dpt As Range
 
    Set Dpt = Sheets("Controle").Range("F1:F2")
 
    Sheets("Grand Livre").Range("A1:I8").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Dpt, CopyToRange:=Sheets("Tri").Range("A1:I1"), Unique:=False
 
End Sub

A+

 

[Excelced]

Re : Problème Filtre et erreur 1004

Ah ben oui, logique
ça fonctionne
merci pour ton aide