Macro de recherche de caracteres

Bonjour,

J'ai une base de données (client en redressement et liquidation) je
souhaiterais faire une macro de recherche en tapant le nom d'un client dans
une cellule et que la macro recherche dans la base si le client existe :o),
sachant que dans la base le nom n'est pas isolé.

Merci d'avance si vous avez ca en stock ou au moins une explication pour le
réaliser.

Essaie peut etre avec un filtre automatique

--
JLuc

Bonjour,

http://cjoint.com/?fkfpLS7Af4

Avec le filtre auto, seuls les 1000 pemiers aparraisent dans la liste.
Variante avec liste déroulante dans une cellule (G2)

La BD commence en A4. Affiche la fiche du nom choisi

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$2" Then
Application.EnableEvents = False
[A4].AutoFilter Field:=1, Criteria1:=Target
Application.EnableEvents = True
End If
End Sub

Sub afficheTout()
ActiveSheet.ShowAllData
End Sub

Liste en G2: Données/validation/Liste

=DECALER($A$5;;;NBVAL(A:A)-1)

Cordialement JB

Variante:

Affiche la fiche du nom frappé en G2
Le nom peut être entré partiellement

http://cjoint.com/?fkfzRI8Go1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$2" Then
Application.EnableEvents = False
[A4].AutoFilter Field:=1, Criteria1:="=*" & Target & "*",
Operator:=xlAnd
Application.EnableEvents = True
End If
End Sub

Sub afficheTout()
ActiveSheet.ShowAllData
End Sub

JB