Discussion :

[dgigie]

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 :

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

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.

[Theze]

Bonjour,

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

Code :

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

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