Automatiser Filtre automatique

[sharkantipav]

Bonjour,
J'ai beaucoup de mal avec VBA. J'aimerai l'aide du forum !!!
J'ai une enorme base de donnée a filtrer et j'aimerai automatiser le filtre.
Je joins un fichier exemple.
Ma base a plusieurs colonnes. Celle qui m'interessent sont les colonne nom et echeance.
J'aimerai taper dans les cases en jaunes
- le nom (et si possible une liste deroulante de la colonne nom)
- l'année d'echeance
Le but est d'afficher les lignes qui correspondent au filtre et je ny arrive pas du touT.

Merci bcp !!!!!

 

[Oranger]

Re : Automatiser Filtre automatique

Bonjour, je t'envoie une proposition de fichier pour répondre à ton problème. J'espère que ça t'aideras. Oranger

 

[Robert]

Re : Automatiser Filtre automatique

Bonjour Sharkantipav, bonjour le forum,

En pièce jointe une porposition avec la macro événementioelle Change ci dessous :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
    If Target.Value <> "" Then
        Range("A5").AutoFilter Field:=1, Criteria1:=Target.Value
    Else
        Selection.AutoFilter Field:=1
    End If
End If
If Target.Address = "$B$2" Then
    If Target.Value <> "" Then
        Range("A5").AutoFilter Field:=6, Criteria1:=Target.Value
    Else
        Selection.AutoFilter Field:=6
    End If
End If
End Sub

[Édition]
Bonjour Oranger on s'est croisé.

 

[sharkantipav]

Re : Automatiser Filtre automatique

Merci beaucoup les amis !!!!