Gestion d'annuaire téléphonique Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
a
apt
Membre dévoué
Membre dévoué
Messages : 576
Inscrit le : 9 mars 2006
Version d'Excel : 2007 FR

Message par apt » 9 décembre 2019, 18:07

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.
Annuaire de Service (v000).xlsx
(11.97 Kio) Téléchargé 32 fois
m
m3ellem1
Membre impliqué
Membre impliqué
Messages : 1'913
Appréciations reçues : 167
Inscrit le : 18 décembre 2018
Version d'Excel : 2016

Message par m3ellem1 » 9 décembre 2019, 18:40

Salut apt,

une idée

Annuaire de Service (v001).xlsx
(12.67 Kio) Téléchargé 35 fois
Bonne soirée
À partir d'hier, j'ai décidé de ne plus expliquer les solutions proposées et de ne plus répondre aux MP!
a
apt
Membre dévoué
Membre dévoué
Messages : 576
Inscrit le : 9 mars 2006
Version d'Excel : 2007 FR

Message par apt » 9 décembre 2019, 19:19

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.
m
m3ellem1
Membre impliqué
Membre impliqué
Messages : 1'913
Appréciations reçues : 167
Inscrit le : 18 décembre 2018
Version d'Excel : 2016

Message par m3ellem1 » 9 décembre 2019, 19:25

et où doivent apparaitre les autres occurences?
À partir d'hier, j'ai décidé de ne plus expliquer les solutions proposées et de ne plus répondre aux MP!
a
apt
Membre dévoué
Membre dévoué
Messages : 576
Inscrit le : 9 mars 2006
Version d'Excel : 2007 FR

Message par apt » 9 décembre 2019, 19:40

Par exemple, dans une liste déroulante devant le champ Titulaire, ou on peut choisir le contact voulu :wink: :wink:
Avatar du membre
fronck
Membre fidèle
Membre fidèle
Messages : 493
Appréciations reçues : 10
Inscrit le : 26 septembre 2015
Version d'Excel : 2016
Contact :
Téléchargements : Mes applications

Message par fronck » 10 décembre 2019, 04:21

Bonjour apt, m3ellem, le forum,
comme çà ?
Annuaire téls.xlsm
(25.65 Kio) Téléchargé 28 fois
a+ :wink:
fronck
Pour coder les opérations simples, enregistrer une macro avec la manipulation que vous voulez faire. ;;)
Avatar du membre
fronck
Membre fidèle
Membre fidèle
Messages : 493
Appréciations reçues : 10
Inscrit le : 26 septembre 2015
Version d'Excel : 2016
Contact :
Téléchargements : Mes applications

Message par fronck » 10 décembre 2019, 10:11

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.
Annuaire téls.xlsm
(26.05 Kio) Téléchargé 21 fois
il reste à définir la taille de la liste déroulante en fonction du nombre de lignes trouvées. ::~
a+
fronck
Modifié en dernier par fronck le 10 décembre 2019, 11:14, modifié 1 fois.
Pour coder les opérations simples, enregistrer une macro avec la manipulation que vous voulez faire. ;;)
F
FINDRH
Membre impliqué
Membre impliqué
Messages : 1'402
Appréciations reçues : 15
Inscrit le : 12 février 2010
Version d'Excel : 2016

Message par FINDRH » 10 décembre 2019, 10:31

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
Annuaire télsv2.xlsm
(37.23 Kio) Téléchargé 38 fois
a
apt
Membre dévoué
Membre dévoué
Messages : 576
Inscrit le : 9 mars 2006
Version d'Excel : 2007 FR

Message par apt » 10 décembre 2019, 18:50

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 ?
Avatar du membre
fronck
Membre fidèle
Membre fidèle
Messages : 493
Appréciations reçues : 10
Inscrit le : 26 septembre 2015
Version d'Excel : 2016
Contact :
Téléchargements : Mes applications

Message par fronck » 10 décembre 2019, 19:01

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.png
Sans titre2.png (4.4 Kio) Vu 483 fois
a+
fronck
Pour coder les opérations simples, enregistrer une macro avec la manipulation que vous voulez faire. ;;)
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message