Macro pour filtres

Bonjour dans un tableau excel (2007), j'utilise souvent un filtre textuel.
Qui m'oblige :
1) A cliquer sur la petite fléche en haut de colonne.
2) A cliquer sur filtres textuels
3) A cliquer sur contient.

Je souhaite :
1) créer une macro qui fait tout cela.
2) Ajouter un bouton sur la page (pour appeller cette macro).

N'étant pas expert en macro, qui peux m'aider.
Merci d'avance et bonne journée.

Voici le code qu'il faut associer à un bouton de contrôle:

Code:

---

1 2 3 4 5 6 7 8 9 10

Option Explicit   Public Sub FiltreTextuel()   With ActiveSheet .AutoFilterMode = False .UsedRange.AutoFilter Field:=2, Criteria1:="=*ccc*" End With   End Sub

---

Avec 'Field:=2' qui correspond à la colonne n°2 et 'Criteria1:="=*ccc*"' la chaine de caractère à filtrer.

Encore une fois la réponse est dans la FAQ:
http://excel.developpez.com/faq/?page=Filtre

Re

Merci, je souhaite que la macro s'arrete au moment ou je dois remplir "contient" car à chaque dois je choisi un paramétre différent et la elle recherce "ccc"

Merci.

Pas sur de comprendre ton besoin mais est-ce que ce code correspond à ta demande?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Explicit   Public Sub FiltreTextuel()   Dim strValeur As String   strValeur = InputBox("Contient", "Filtrage des données") With ActiveSheet .AutoFilterMode = False .UsedRange.AutoFilter Field:=2, Criteria1:="=*" & strValeur & "*" End With   End Sub

---

Dans ce tableau
j'ai en colone A un N°
En colone B des noms avec des N°
Ce tableau fait plus de 5 000 lignes.
Ce que je souhaite c'est avec une macro ouvrir la boite de dialogue qui me demande ce que je souhaite que le filtre contient
La je met ce que je recherche dans la case et je clique sur OK

La macro doit donc seulement ouvrir la boite de dialogue Filtres Textuels / Contient.

Merci de ton aide.

Bonjour,

En adaptant le code de vcottineau :

Code:

---

1 2 3 4 5 6 7 8

Dim Filtre As String Filtre = InputBox("Entrez le texte à filtrer") If Filtre <> "" Then With ActiveSheet .AutoFilterMode = False .UsedRange.AutoFilter Field:=2, Criteria1:="=*" & Filtre & "*" End With End If

---