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.

[Malick]

Vous pouvez utiliser les balises code pour rendre lisible votre code. Voici la procédure :

démonstration de l'utilisation du bouton code (#)

Il vous suffira juste d'éditer votre post et faire la correction directement.

Cordialement,
Malick

[Exelsior93]

Effectivement c'est ce que je voulais faire mais je ne savais pas comment.
Maintenant je sais.

[Philippe Tulliez]

Bonjour,
Je confirme que la procédure AdvancedFilter fonctionne quelle que soit l'endroit où se trouve les zones de données, de critères et d'extractions.
Dans une des parties de ta procédure, je vois déjà une erreur

Code :

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

1
2
3
4
5
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

Il manque le point (que j'ai mis en rouge) devant les objets de la collection Worksheets sinon le bloc With...End With n'a aucun effet.

Cela ne doit pas être la source du mauvais fonctionnement mais personnellement je suis adversaire du référencement de colonnes entières comme "$A:$D")

[EDIT]

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.

Si cela fonctionne manuellement, il est possible que l'un des critères soit une date. Il faut alors procéder autrement et faire référence dans les critères à une cellule extérieure à la zone des critères contenant la date.

Exemple dans la zone des critères (la cellule I5 contenant une date)

Code :

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

=">" & $I$5

[Exelsior93]

Merci Philippe et à vous tous.
Le problème a bien été résolu.

Si cela fonctionne manuellement, il est possible que l'un des critères soit une date. Il faut alors procéder autrement et faire référence dans les critères à une cellule extérieure à la zone des critères contenant la date.

Ça je ne savais pas ! Très intéressant et utile à savoir !

Cela ne doit pas être la source du mauvais fonctionnement mais personnellement je suis adversaire du référencement de colonnes entières comme "$A:$D")

Pourquoi pas mais ma table source est en perpétuelle croissance. J'ai pensé que c'était la seule solution. À moins que tu en connaisse une autre ?

Encore merci !

[Philippe Tulliez]

Bonjour,

Pourquoi pas mais ma table source est en perpétuelle croissance. J'ai pensé que c'était la seule solution. À moins que tu en connaisse une autre ?

Une solution est de convertir la plage de données en tableau (Commande Tableau du groupe Tableaux de l'onglet [Insertion] ou Commande Mettre sous forme de tableau du groupe Style de l'onglet [Accueil]).