Gestion d'annuaire téléphonique

Bonjour à tous,

Dans une BDD d'un annuaire téléphonique, j’aimerais lancer une recherche partielle dans la cellule C6.

Le contenu recherché peut être une partie du nom du titulaire ou une partie d'un numéro téléphonique.

Merci de votre aide.

Salut apt,

une idée

Bonne soirée

Bonsoir m3ellem1,

Merci pour ta contribution.

Le test fonctionne, lorsqu'il y a une seule occurrence retournée.

Sinon, pour plusieurs occurrences, ça n’affiche que la première.

et où doivent apparaitre les autres occurences?

Par exemple, dans une liste déroulante devant le champ Titulaire, ou on peut choisir le contact voulu

Bonjour apt, m3ellem, le forum,

comme çà ?

87annuaire-tels.xlsm (25.65 Ko)

a+

fronck

Bonjour à tous,

désolé la 1ére version bugait quand la recherche n'avait rien sélectionné. j'ai corrigé sur cette version.

Elle prend en compte plusieurs caractéres saisit au lieu d'un seul.

51annuaire-tels.xlsm (26.05 Ko)

il reste à définir la taille de la liste déroulante en fonction du nombre de lignes trouvées.

a+

fronck

Bonjour

une version avec un formulaire de 3 recherches, Nom,Fixe et mobile avec sélection du résultat dans une des trois listbox indifféremment

A tester

Comme je ne connais pas la finalité je n' ai pas mis de bouton Valider sur le formulaire

A tester

Cordialement

FINDRH

Bonjour fronck, FINDRH,

Merci fronck pour le fichier.

Mais ce n'affiche que la première occurrence comme tu l'as annoncé.

FINDRH > Un USF c'est toujours un plus pour un traitement complet.

J'ai ajouté des LCase pour la comparaison en ce qui concerne les noms :

If LCase(Sheets("Source").Cells(j, 2)) Like LCase("*" & Me.TextNom.Value & "*") Then

Peut-on ajouté des bouton d'ajout/suppression/modification de données à cet USF ?

Bonjour à tous,

s'il y a plusieurs résultats, il suffit de cliquer sur le bouton de la la zone pour choisir un autre résultat.

sans titre2

a+

fronck

Salut fronck,

Je ne trouve pas de liste

Il y a ce code :

    'affichage 1er de la liste
    Range("C6") = Sheets("Source").Range("I2")

Re,

tu cliques sur le bouton, tu tapes une ou plusieurs lettres, puis tu cliques en C6 pour dérouler la liste.

pourquoi tu regardes dans le code ?

fronck

Re,

Toujours pas de liste déroulante avec "clf" comme mot recherché :

e5phmcy

Peut-être une version de Microsoft Excel différente ?

apt,

Beh non, tu n'avais pas spécifié cela dans ta demande, et moi j'ai fait comme pour la plupart des moteurs de recherche:

Cà trie sur les premiers caractéres uniquement.

a+

fronck

Pour rechercher sur tout le contenu d'une cellule parcourue, j'ai apporté une modification sur le code comme ceci :

'If Left(Cells(i, 2), carac) = saisie Then
If InStr(1, Cells(i, 2), saisie) > 0 Then

trés bien bravo

a+

fronck

Bonjour

Tu parles de rajouter des boutons pour modifier ou supprimer la ligne choisie. Ce n'est pas un pb.

Une simple question, toutes tes colonnes sont elles présentes? Pas d'adresse ?

Cordialement

FINDRH

Bonjour FINDRH,

Une simple question, toutes tes colonnes sont elles présentes? Pas d'adresse ?

Tu veux dire, si elle ne contiennent pas de vides ?

Pour les adresses, il n'y a pas, puisqu'il s'agit d'un annuaire téléphonique de noms de services d'une entreprise et de noms d'organismes.

Bonjour apt, findrh,

pour ma solution, me revoilà avec la liste déroulante limitée au nombre de cas trouvés.

sans titre2
56annuaire-tels.xlsm (25.60 Ko)

bonne continuation.

a+

fronck

Bonsoir

Je voulais savoir si ton tableau de recherche ne comporte que ces colonnes, s'il faut créer ou modifier une ligne , il fut avoir tous les champs affichés.

Cordialement

FINDRH

Rechercher des sujets similaires à "gestion annuaire telephonique"