Recherche d\'un nom a partir d\'un bouton

[Wan]

Recherche d'un nom a partir d'un bouton

Bonjour tout le monde ! Coucou Bertrand si tu es là

J'ai un autre soucis, j'explique:

J'ai un tableau de données qui regroupe les noms, les prénoms et l'âge de plusieurs personnes.

1- Je clique sur le bouton (dans ce bouton jai mis un inputbox)
2- Dans le inputbox je met le nom de la personne
3- Le programme filtre les données de mon inputbox suite à ma réponse avec 'autofilter'
4- Dans mon programme j'ai ajouté une listbox dans lequel j'affiche le résultat donné par le filtre.

--------------------MON PROGRAMME QUI FILTRE----------------------

'fonction qui permet de faire la recherche du salarié avec son nom
Sub filtrernom()
Dim nom As String
nom = InputBox('Veuillez entrez le nom du salarié, svp ?', 'Recherche par le nom du salarié')
Range('A6:L65356').Select
Selection.AutoFilter Field:=1, Criteria1:=nom
End Sub

------------------------------------------------------------------------

Ce programme filtre les données sur le tableau
J'aimerais que le programme puisse me donner le résultat 'après filtrage' sur une liste créer dans une userform !

---MON PROGRAMME QUI AFFICHE LE RESULTAT SUR UNE LISTE-----

Sub AffichagelisteRecherche()
Dim rng As Range
Dim ligne As Range
'Affichage de la liste de recherche
With ThisWorkbook.Worksheets(ComboBox1.Text).Activate
Set rng = Worksheets(ComboBox1.Text).Range('A6').CurrentRegion
Set rng = Worksheets(ComboBox1.Text).Range('A8:M' & rng.Rows.Count + 3)
ListRecherche.Clear
For Each ligne In rng.Rows
If Cells(ligne.Row, 1) <> '' Then
ListRecherche.AddItem Cells(ligne.Row, 1) & ' ' & Cells(ligne.Row, 2) & ' ' & Cells(ligne.Row, 3)
Else
Exit For
End If
Next ligne
End With
End Sub

-------------------------------------------------------------------------
Je ne sais pas si c'est utile mais j'attends votre avis !


Si vous ne comprenez pas faites le moi savoir !
Merci pour votre aide !!

Wan B)

Message édité par: Wan, à: 09/08/2005 19:10