Discussion :

[jose_67]

Bonjour,
je viens d'enregistrer cette marco d'un filtre élaboré.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Macro3()
 
    Sheets("Table d'exportation").Range("A4:EE12000").AdvancedFilter Action:= _
        xlFilterCopy, CriteriaRange:=Range("A1:A2"), CopyToRange:=Range( _
        "A5:AB12000"), Unique:=False
End Sub

Quand je relance la macro
J'ai un message d'erreur 1004
Pouvez-vous me dire ce qui ne va pas ?

[Roums]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With Sheets("Table d'exportation")
.Range("A4:EE12000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("A1:A2"), _
CopyToRange:=Range("A5:AB12000"), Unique:=False
End With

Quelque chose dans ce genre marche chez moi (ne mettre que "A5" dans le CopyToRange devrait marcher aussi).
D'ailleurs, dans mes petits essais je remarque que si il y'a déjà des données copiées dans A5,A6,.... ça ne me copie rien dans la colonne B5,B6... ainsi que pour les suivantes. ça peut même donner un message d'erreur.
Il faut que j'efface ce que contient A5 et ça marche ensuite, donc peut être.

Ce serait peut être mieux de copier tes données filtrées dans une plage de cellules autres que celles faisant partie du filtre je pense, ou sur une autre feuille sinon je pense que ça te fera des erreurs.

[jose_67]

Bonjour Roums
Je crois que je me suis mal exprimé "dans le code"
Je cherche les infos à filtrer sur la feuille "Tables d'exportation" et je les copie sur la feuille "Table de travail"
Quand je réalise cette manip. directement sur Excel pas de problème les choses se passent sans problème. Si j'enregistre et que je refais la même manip par macro j'ai un message erreur.
Cordialement José