Version imprimable
Bonjour à tous,
J'ai créé une macro qui ouvre la boite de dialogue "Filtre avancé" : Application.CommandBars.ExecuteMso ("AdvancedFilterDialog")
Pièce jointe 211475
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
:salut:
La procédure est expliquée dans ce tutoriel de Philippe Tulliez:coucou:Citation:
Or je bloque ici car je n'arrive pas à remplir les champs
Cordialement,
Malick
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 ?
Bonjour,
As tu regardé l'exemple suivant sur le lien de milkoseck?
Il me semble que c'est exactement ce que tu cherches.
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/
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 :
Où est donc la faille ? Moi je ne trouve pas.:(Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
:salut:
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
Effectivement c'est ce que je voulais faire mais je ne savais pas comment.
Maintenant je sais.
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
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.Code:
2
3
4
5With 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
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]
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.Citation:
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.
Exemple dans la zone des critères (la cellule I5 contenant une date)
Code:=">" & $I$5
Merci Philippe et à vous tous.
Le problème a bien été résolu.
Ça je ne savais pas ! Très intéressant et utile à savoir !Citation:
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.
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 ?Citation:
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")
Encore merci ! :merci::applo::applo::hola::hola:
Bonjour,
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]).Citation:
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 ?
