Discussion :

[vendreve]

Bonjour,

Je souhaite automatiser un processus de filtre avancé et copier le résultat vers un autre onglets.
Je veux de manière précise filtrer selon une date des informations dans ma base de données et récupérer le résultats de ma base filtrer pour la copier vers un autre onglet.
Tous cela est possible grâce au filtre avancé d'Excel avec la possibilité en plus via l'enregistreur de macro d'automatiser le processus.
Mon problème est que cela ne marche pas sur mon fichier original. Ou plutôt si, si on considère seulement l'étape ou j'utilise le filtre avancé. Mais quand je veux refaire le processus à l'aide de VBA cela coince. j'ai essayé de nommer mes plages, mettre les références exactes dans les paramètres du filtre avancé. Rien n'y fait.
Et chose étrange lorsque j'ai préparé un fichier simplifié pour une éventuel aide de votre part sur le net, cela fonctionne. Je me demande donc si cela est à cause du grand nombre de données?

Je vous transmet le code de mon fichier original. Je peux également vous joindre un fichier simplifié (ou cela marche en plus)

CODE FICHIER ORIGINAL

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Coller_prestations_n1()
'
' Coller_prestations_n1 Macro
'
Range("B8:X16").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Clear
Sheets("Résultats individuels").Range("B4:Z1048576").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("AA7:AA8"), CopyToRange:=Range("B7:X7") _
, Unique:=False
End Sub

J'ai besoin d'aide.please

[anasecu]

Bonjour,

Tu peux supprimer le 3 premières lignes qui ne servent à rien.

Si ton exemple fonctionne c'est que les paramètres sont corrects

Si dans ton fichier cela ne fonctionne pas c'est que tu as des anomalies dans les critères (peut-être des espaces intempestifs).

Une bonne façon de faire est de remplir les lignes titres critères et résultats avec une formule "=la rubrique base"
ainsi tu n'as pas de souci de correspondance.

[vendreve]

Bonjour,

J'ai copier-coller le code vba de mon exemple de fichier qui marche, sur l'original. Et bizarement cela ne fonctionne pas. Normalement celui-ci est bien écrit. Les nom de feuille et plages sont les mêmes pourtant.

Et j'ai besoin des 3 premières lignes car la base de donnée change tout le temps, donc le filtre aussi. C'est pour "nettoyer" ma zone d'extraction!

[unparia]

Bonjour
Aux plages de quelle feuille se réfèrent les objets range invoqués ici ? :

Code :

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

CriteriaRange:=Range("AA7:AA8"), CopyToRange:=Range("B7:X7")