Discussion :

[jonathanoudelet]

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...)

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 :

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

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"...
Je ne vois pas où est le souci.

Merci par avance pour votre aide
John

[ouskel'n'or]

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

Code :

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

If Feuil4.FilterMode Then Feuil4.Cells.AutoFilter

Bonne journée

[jonathanoudelet]

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

[ouskel'n'or]

Code :

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

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)

[jonathanoudelet]

Code :

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

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"
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 :

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

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

HELP...
MODE boulet [ON]

[ouskel'n'or]

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