Filtre suite à modification d'une cellule

Bonjour à tous.

J'ai fait quelques recherches dans différentes discussions afin de trouver une solution à mon problème mais comme je suis novice en VBA mes tentatives donnent des erreurs ou aucun résultats.

Bref, j'ai besoin d'aide...

Dans la cellule B7, je demande à l'utilisateur d'inscrire le budget qu'il désir.

Voici mon code

Code:

---

1 2 3 4 5 6 7 8

Private Sub worksheet_change(ByVal target As Range)   DemandeDeBudget = [BudgetDemandé]   If Not Intersect(target, Range("B7")) Is Nothing Then Selection.AutoFilter Field:=2, Criteria1:=DemandeDeBudget     End Sub

---

Ma question :

Pour l'instant, si je n'ai aucun filtre d'activé et que je sélectionne un budget dans B7, j'ai le résultat désiré.

J'aimerais que si la cellule B7 (que j'ai nommé "BudgetDemandé") est modifiée pour vide, que le filtre soit annulé et que si le budget passe de "Activités" à "Spécial", seul les informations "Spécial" soit affichées.

Pour l'instant, mon code filtre comme si aucune valeur n'est bonne si B7 est vide si j'avais par exemple Activités et je le modifie pour Spécial j'ai le même résultat.

Merci à l'avance

Pas bien compris l'histoire d'activité et de spécial
ci-joint proposition pour filtrer la plage B10:B80 en fonction du contenu de B7

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$7" Then With Range("A10:B800") 'à titre indicatif If ActiveSheet.FilterMode Then .AutoFilter If Target.Value <> "" Then .AutoFilter field:=2, Criteria1:=Target.Value End With End If End Sub

---

Merci mercatog.

C'est exactement ce que je cherchais.

À titre d'information, spécial et activités font référence à des budgets...

Merci pour la rapidité...

dlight