Reparation ou Amelioration Fichier

[jathur]

Bonjour

Je me permet de vous soumettre ce fichier ( Noms et Numéro de Tel effacé ) car il ne fonctionne plus au niveau de la recherche.

Principe du fichier : Gestion de la Fidelité client

Informations donnant lieu a recherche : Nom - Prénom -Telephone

Informations pour calcul de la fidélité ( 5% du montant des 5 achats cumulés a déduire sur le 6eme )

Probleme rencontré:

La recherche est hasardeuse: Des noms sans caractère recherché sortent

Je souhaiterai pouvoir rechercher avec quelques Caractere seulement:

Par exemple : Nom Daniaud - En tapant Dan j'aimerai pouvoir trouver Daniaud - Dania - Daniel ......

Je vous remercie par avance de l'aide que vous voudrez bien m'apporter.

 

[riton00]

Bonjour,

Voir si cet essai te convient, code pris à l'époque sur ce forum

Slts

 

[jathur]

Merci pour votre contribution.

Ne serait il pas possible d’afficher les résultats sous forme de liste plutôt que d'obtenir un défilement a chaque Clic.

D'avance Merci

 

[herve62]

Bonjour
Quoi, Ou , Comment veux tu entrer tes données ?
Sinon j'ai un petit prog vba avec USF qui te fais rapidos ta recherche : tu commences à taper dans une box ; en // dans une liste (listbox) s'affiche des noms
ex : tu as dans ta base Bourdon ; Boulin; Bourrier; Boulanger .. etc
tu cherches Boulanger : tu commences à taper Bou , tout s'affiche , puis Boul , là dans ta liste ne reste plus que Boulin Boulanger : clic sur ton nom et tu affiches ce que tu veux ou tu veux
La macro est :

Set d1 = CreateObject("Scripting.Dictionary")
  If Me.TextBox1 = "" Then
     tmp = ""
  Else
      tmp = Me.TextBox1 & "*"
  End If
'  tmp = Me.TextBox1 & "*"
  For Each c In a
   If c Like tmp Then d1(c) = ""
  Next c
  Me.ListBox1.List = d1.keys

Il faut juste définir "a" qui est ta plage de noms avec une formule DECALER
Si cela te dit ?

 

[job75]

Bonjour jathur, riton00, herve62,

Sub Filtrer()
If ActiveSheet.ListObjects.Count = 0 Then Exit Sub 'sécurité
[K6] = "=AND((A6=A$3)+ISBLANK(A$3),(B6=B$3)+ISBLANK(B$3),(C6=C$3)+ISBLANK(C$3))"
ActiveSheet.ListObjects(1).Range.AdvancedFilter xlFilterInPlace, [K5:K6]
[K6] = ""
End Sub

Sub Effacer()
[A3:C3] = ""
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End Sub

A+

 

[job75]

Re,

Si l'on veut faire la recherche sur les premières lettres des noms ou prénoms :

[K6] = "=AND((LEFT(A6,LEN(A$3))=A$3)+ISBLANK(A$3),(LEFT(B6,LEN(B$3))=B$3)+ISBLANK(B$3),(C6=C$3)+ISBLANK(C$3))"

Fichier (2).

A+

 

[jathur]

Merci a tous pour l'interet que vous avez porté a ma requete.
Le fichier de job75 me convient parfaitement
Encore Merci à Tous