Filtre auto VBA

Bonjour à tous,

Me débrouillant pas trop mal avec excel, formules ect..., je me lance dans le VBA...

J'ai un fichier avec une des colonnes (B) que je souhaite filtrer, de (B6 à B1500) suivant le critère que j'inscris dans une cellule (B4).

Jusqu'à maintenant j'ai réussis en piochant deci dela à obtenir le résultat escompté, c'est à dire que lorsque j'inscris mon critère dans la cellule B4 le filtre fonctionne parfaitement mais lorsque la cellule B4 est vide toutes les lignes possédant des critères disparaissent aussi (logique...).

Je souhaiterais donc que lorsque B4 est vide, toutes les lignes apparaissent.

Ci dessous le code que j'ai actuellement.

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Activate()   End Sub   Private Sub Worksheet_SelectionChange(ByVal Target As Range) Selection.AutoFilter Field:=2, Criteria1:="=" & Range("B4").Value, Operator:=xlAnd End Sub

---

Merci pour votre aide.

Bonjour,

C'est peut être trop tard mais regarde ce qui suit :

Code:

---

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   If [B4] <> "" Then   Selection.AutoFilter 2, [B4], xlAnd   Else   Selection.AutoFilter   End If   End Sub

---

Hervé.