Discussion :

[Exelsior93]

Bonjour à tous,

J'ai créé une macro qui ouvre la boite de dialogue "Filtre avancé" : Application.CommandBars.ExecuteMso ("AdvancedFilterDialog")

Or je bloque ici car je n'arrive pas à remplir les champs La commande sendkeys est inopérante

Comment écrire dans cette boite de dialogue par l'intermédiaire d'une instruction en VBA ?

Merci pour votre aide

[Malick]

Or je bloque ici car je n'arrive pas à remplir les champs

La procédure est expliquée dans ce tutoriel de Philippe Tulliez

XII-C. Premier exemple - Filtrer la liste sur place

Cordialement,
Malick

[Exelsior93]

Merci pour cette réponse rapide milkoseck .

J'ai oublié de préciser que la table des données est dans une feuille et que le résultat de l'extraction doit être envoyée sur une autre feuille qui contient aussi la zone de critères.

Ces feuilles sont dans un même classeur.

Donc la solution proposée ne fonctionne pas. Peut-être faut-il l'écrire différemment ?

[halaster08]

Bonjour,

As tu regardé l'exemple suivant sur le lien de milkoseck?
Il me semble que c'est exactement ce que tu cherches.

[Kiouane]

Si l'exemple ne te suffit pas. J'ai eu une discussion avec l'auteur de l'article sur à peu près le même cas que toi mais plus poussé. Je voulais couper les valeurs filtrés dans une autre feuille. Si cela peut t'aider voici le lien : http://www.developpez.net/forums/d15...copie-feuille/

[Exelsior93]

D'abord merci à vous tous pour votre aide. Désolé de n'avoir pas donné suite à vos commentaires mais certaines obligations m'ont éloigné de mon activité en VBA. Maintenant je peux m'y consacrer.

Je viens d'essayer la dernière proposition de tutoriel faite par Kiouane. Je n'ai plus de message d'erreur mais la procédure n'affiche rien. Si je la fais en manuellement elle fonctionne.

Voici les éléments de mon problème :

• source de données : Worksheets("Donnees").Range("$A:$AS")
• zone de critères : Worksheets("Extraction").Range("$E$1:$M$6")
• zone d'extraction ou cible : Worksheets("Extraction").Range("$A$9:$AS$9")

Comme vous pouvez le constater la feuille "Donnees" contient la liste source et la feuille "Extraction" contient la zone de critères et la zone d'extraction.

Voici ma procédure :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub FiltreElab()
'
' FiltreElab Macro
' Extraction pour créer les fiches.
'
' Déclaration des variables
 Dim areaSource As Range, areaCriteria As Range, areaTarget As Range
 
 Sheets("Extraction").Select
 
 With ThisWorkbook
  Set areaSource = Worksheets("Donnees").Range("$A:$AS")
  Set areaTarget = Worksheets("Extraction").Range("$A$9:$AS$9")
  Set areaCriteria = Worksheets("Extraction").Range("$E$1:$M$6")
 End With
 
 With areaSource
 .AdvancedFilter xlFilterCopy, areaCriteria, areaTarget ' Exportation des données
 End With
 
 Set areaSource = Nothing: Set areaTarget = Nothing: Set areaCriteria = Nothing
 
End Sub

Où est donc la faille ? Moi je ne trouve pas.