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 : Sélectionner tout - Visualiser dans une fenêtre à part
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