Rapport de message :*
 

Re: FILTRE AVEC LISTE DEROULANTE

Titre du sujet : Re: FILTRE AVEC LISTE DEROULANTE
par Mth le 18/08/2011 13:58:28

Bonjour mishka, bonjour le forum

Pour ta première question, tu trouveras mon essai ci-joint, basé sur un simple filtre automatique.
La modification de la liste déroulante lance ce code (placé dans le code de la feuille "Index":
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$C$11" Then
    Dim Lig As Long, Critère As String
    Lig = ActiveSheet.Cells(Rows.Count, 9).End(xlUp).Row
    Critère = Target.Value
     
    ActiveSheet.Range("$I$13:$I$" & Lig).AutoFilter Field:=1, Criteria1:=Critère
End If
End Sub
 

En ce qui concerne RECHERCHEV(), elle peut fonctionner aussi bien avec du texte que du numérique, ceci dit la recherche par matricule est bien dans la mesure où un matricule est unique, contrairement à un nom. En dehors de ces généralités je n'ai pas vu à quel endroit tu souhaitais effectuer cette recherche, tu as un autre tableau dans ton fichier ? Ou tu utilises la feuille Index et souhaites afficher un choix des collaborateurs  dans un autre onglet?

Bon après-midi,

mth