Macro pour ouvrir la fenêtre du filtre

Bonjour,

J 'ai une macro qui fait plusieurs choses notamment qui trie ma feuille par nom et prénom (1500 lignes).

J 'aimerais qu à la fin de cette opération mon filtre de colonne A1 soit directement ouvert avec le curseur
prêt à taper le nom de la personne que je recherche (voir fichier joint).

Pièce jointe 404544

Est ce que c'est possible ?

Merci pour votre aide

Bonjour

Certaines utilisent un sendkey mais cela peut avoir des effets de bord sur le pavé numérique

Code:

---

1 2 3 4

With Range("A2") .Select SendKeys "%{Up}" End With

---

Super on y est presque... la fenêtre s' ouvre mais je dois encore cliquer dans le champ de recherche et comme c'est une manipulation que je fais 50 fois par jours j'aimerais bien pouvoir encore éviter ce click

Re

Apparemment la lettre R le fait donc un second sendkey...

re
bonsoir
le effet non desirés avec sendkeys ne sont que avec certaines touche la printscreen par exemple

je suis curieux 78chris le 2d sendkeys apres l'affichage de la fentre??? hummmmm j'ai un doute quand au faite qu'elle soit bloquante ;) (a tester)

edit :
deja chez moi le sendkeys %Up ne fonctionne pas W7 office 2007
c'est donc pas tellement fiable

Bonsoir à tous,

sur Office 365 ça fonctionne :

Code:

---

1 2 3 4 5 6 7 8

Sub TEST()   With Range("A1") .Select SendKeys "%{Up}" SendKeys "R" End With End Sub

---

et en plus, on peut même rentrer du texte dans le champ de recherche (ici je recherche la lettre "B")

Code:

---

1 2 3 4 5 6 7 8

Sub TEST()   With Range("A1") .Select SendKeys "%{Up}" SendKeys "R" & "B" End With End Sub

---

et évidemment, on peut y mettre le contenu d'une cellule ou d'une variable : SendKeys "R" & Cells(2, 3)

Bonne nuit
Curt

RE

Citation:

---

Envoyé par patricktoulon

je suis curieux 78chris le 2d sendkeys apres l'affichage de la fentre??? hummmmm j'ai un doute quand au faite qu'elle soit bloquante ;) (a tester)

---

Sauf erreur de ma part sur 2007 la zone de recherche dans un filtre n'existait pas, si ?

Pièce jointe 404592

Merci à tous, mon problème est résolu avec vos informations. :)

... Je croyais que tout était ok mais malheureusement lorsque j'active cette macro cela désactive mon clavier
numérique que je dois à chaque fois réactiver avec la touche num lock.

Est ce que c' est possible de ne pas avoir ce problème ?

re
essaie de faire tes sendkeys dans un createobject("wscript.shell") (en dehors de l'application)
sinon je sais que le probleme n'est plus avec l'api window des touches a condition de bien faire les up!!

Code:

---

1 2 3 4 5 6 7 8 9

Sub RB() With Range("A1") .Select With CreateObject("wscript.shell") .SendKeys "%{Up}" .SendKeys "R" & "B" End With End With End Sub

---

Merci mais qu est ce que tu veux dire avec: sendkeys dans un createobject("wscript.shell") ?

regarde mon post ;)
si je ne me trompe pas tu peux meme reduire a ceci en utilisant l'object en mode anonyme

Code:

---

1 2 3 4

Sub toto() Range("A1").Select CreateObject("wscript.shell").SendKeys "%{Up}toto" End Sub

---

toute les touche d'affilé

Citation:

---

Envoyé par patricktoulon

re
essaie de faire tes sendkeys dans un createobject("wscript.shell") (en dehors de l'application)
sinon je sais que le probleme n'est plus avec l'api window des touches a condition de bien faire les up!!

Code:

---

1 2 3 4 5 6 7 8 9

Sub RB() With Range("A1") .Select With CreateObject("wscript.shell") .SendKeys "%{Up}" .SendKeys "R" & "B" End With End With End Sub

---

---