filtrer à partir d'une combobox

Bonjour à tous,

Voila, j'aimerai filtrer une feuille excel à partir d'une combobox à chaque fois que ca valeur change (donc quand on utilise la liste déroulante...) :D

J'ai commencé à tapoter cela mais ca ne fonctionne pas car il me dis que la "méthode autofilter de la classe range a échoué"...

Code:

---

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

Dim a as string   Private Sub ComboBox9_Change() 'personne en charge a = ComboBox9.Value Sheets("Fin période").Select Feuil4.Cells.Select Selection.EntireRow.Hidden = False Selection.AutoFilter Selection.AutoFilter Field:=12, Criteria1:="a" Feuil4.Activate End Sub

---

J'ai rajouté "Selection.EntireRow.Hidden = False" car il se peut que parfois dans ma feuille j'ai des lignes cachées et donc je veux les réafficher.
Cependant, second souci, si je met cette ligne, il me met aussi qu'il y a un problème avec le "Hidden"... :roll:
Je ne vois pas où est le souci.

Merci par avance pour votre aide ;)
John

Pour savoir si un filtre est posé, utilise plutôt FilterMode

Code:

---

If Feuil4.FilterMode Then Feuil4.Cells.AutoFilter

---

Bonne journée

Je suis désolé, je suis pas vraiment bon en vba, je n'ai pas compris ta réponse... :cry:
Je dois rajouter ce code au début?
Mettre un End if?
...
Peux_tu être plus précis please :roll:
Merci tout de même de ton aide ;)

Code:

---

1 2 3 4 5

Private Sub ComboBox9_Change() Dim a as string a = ComboBox9.Value If Sheets("Feuil4").FilterMode Then Sheets("Feuil4").Cells.AutoFilter Sheets("Feuil4").Cells.AutoFilter Field:=12, Criteria1:=a 'sans les guillemets, c'est une variable

---

Pour comprendre le rôle de FilterMode, fais un tour dans l'aide en ligne sur ce mot ;)
Ce code remplace le tien. Pas de endif si la commande à exécuter suit le Then (sur la même ligne)

:cry:

Code:

---

1 2 3 4 5 6 7

Private Sub ComboBox9_Change() 'personne en charge a = ComboBox9.Value If Sheets("Fin période").FilterMode Then Sheets("Fin période").Cells.AutoFilter Sheets("Fin période").Cells.AutoFilter Field:=12, Criteria1:=a End Sub

---

Ca ne fonctionne pas... il me dit toujours que la "méthode autofilter de la classe range a échoué"...
et me souligne "Sheets("Fin période").Cells.AutoFilter" :bug:
J'ai bien tenté de comprendre le fonctionnement d'autofilter qui permet de voir si les filtres sont mis et dans ce cas, il faut les retirer (je crois) d'où peut -etre le fait de mettre un IF, mais avec "=False"...:

Code:

---

1 2	If Sheets("Fin période").FilterMode=false Then Sheets("Fin période").Cells.AutoFilter

---

:roll:

HELP...
MODE boulet [ON]:oops:

Comme ça fonctionne chez moi, je n'ai pas grand chose à ajouter... Par contre, je placerais le code dans l'événement click au lieu de Change
Private Sub ComboBox9_Click()
Enfin, si ton combo n'a qu'une seule colonne, tu peux mettre a = ComboBox9
Après ça, je ne vois pas :(

Bon bah ca ne marche pas...
Le pire c'est que j'ai pratiquement le même code repris à l'identique mais adapté pour un boutton (*6) et ca marche nikel...
Je me suis résigné à utiliser des optionbuttons (que 8 choix) alors ca peut aller...mais bon... :cry:

En tout cas, merci pour ton aide Ouskel'n'or :king: