Recherche dans un annuaire téléphonique xls

[Webperegrino]

Bonsoir Le Forum,
J'ai essayé d'adapter un fichier proposé sur Excel Downloads.
Vous le trouver ci-joint.
La recherche à partir du n° de Tél ne me pose pas de problème, c'est la recherche à partir du NOM et du PRÉNOM qui m'inquiète.

Je n'arrive pas à trouver la bonne formulation dans la cellule E5.

Je commence une recherche sur le NOM (phase 1 : compléter en cellule A8)
En fonction des PRÉNOMS obtenus (ça se complique quand il y a plus d'un PRÉNOM), j'en choisi un pour procéder à une recherche en B5 (phase 2 de la recherche).

L'objectif est d'obtenir le bon résultat de la recherche en cellule E5.

Merci pour votre aide.

 

[Tibo]

Re : Recherche dans un annuaire téléphonique xls

Bonjour,

L'absence de réponse semble montrer que pas grand monde n'a compris ce que tu cherchais exactement.

Une piste pour ta formule en D5 avec une formule matricielle :

auparavant : défusionner, car il n'est pas possible de valider une formule matricielle dans des cellules fusionnées. On pourra refusionner ensuite.

donc, en D5, cette formule matricielle :

=INDEX(BD!Q3:Q7;EQUIV(A5&B5;BD!B3:B7&BD!C3:C7;0))

Formule matricielle à valider par CTRL + MAJ + ENTREE

cette première partie de la formule permet de retourner le titre (M. Mme ou Mlle).

avec une concaténation, tu peux ajouter sans souci les autres données (nom, prénom, adresse, ...)

Si pas ça, reviens avec plus de précisions et explications.

@+

 

[Webperegrino]

Re : Recherche dans un annuaire téléphonique xls

Bonjour Le Forum,
Bonjour Tibo,

Désolé de ne pas avoir été plus clair dans le message.
Je pensais que la première explication dans le texte du message et la présentation du problème dans le fichier ouvert allaient suffire.

Je vous remercie d'avoir bien voulu prendre du temps pour répondre à ma requête et d'y apporter une première proposition. Je vais l'étudier et vérifier son fonctionnement.

Merci encore pour cette piste de recherche. Ce site m'est d'une grande utilité, vos conseils toujours pertinents... puissent mes futures questions être plus précises...

 

[hoerwind]

Re : Recherche dans un annuaire téléphonique xls

Bonjour, salut Tibo,

Il me semble qu'en mettant sous la BDD le nom et le prénom dans une même cellule, et en triant ces données, une liste de validation sur base de la ou des premières lettres du nom cherché serait plus simple à mettre en place mais surtout plus rapide pour une recherche.

Une autre façon de faire est de Grouper et créer un plan de la BDD sur base de la première lettre, toujours avec une BDD triée.

 

[Webperegrino]

Re : Recherche dans un annuaire téléphonique xls

Bonjour Le Forum,
Merci à Tibo et Hoerwind qui m'ont permis d'avancer dans mon fichier.

Je m'oriente vers une autre présentation plus efficace : le fichier mis à notre disposition par Monsieur Frédéric Lhommé me convient mieux.

J’essaie de l’adapter à mes besoins (les adresses jointes dans la base sont fictives).
Le voici ci-annexé. Il fonctionne à 99,9 %.

J’ai deux soucis sur lesquels je bloque depuis deux semaines :
A - L'alimentation d’un combobox à partir d’une plage de la base (la civilité des contacts)
B - Retourner certaines valeurs de la base dans un TexBox “Coord” pour une présentation éventuelle, par un copié et un collage (crtl + V) dans un autre document (par exemple une lettre ou une enveloppe sous Word).

Problème A –

Placer une sélection R3-R10 de la base Feuille « Annu » dans l’UserForm1, ComboBox1, « Civilité, en forme de déroulant.

Ma tentative suivante ne réussit pas.

Dans UserForm1 (Code) :

'Private Sub UserForm_Initialize()
' With Sheets("Annu")
' For i = 3 To .Range("R10").End(xlUp).Row
' If .Cells(i, 1) <> .Cells(i - 1, 1) Then
' CbBox1.AddItem .Cells(i, 1).Value
' End If
' Next
' End With
'End Sub

Il m’est indiqué « ERREUR DE COMPILATION » sur

Private Sub UserForm_Initialize()
With Sheets("Annu")
For i = 3 To .Range("R10").End(xlUp).Row
If .Cells(i, 1) <> .Cells(i - 1, 1) Then
CbBox1.AddItem .Cells(i, 1).Value
End If
Next
End With
End Sub


Plus loin, pour ne pas avoir de blocage j’ai dû modifier
Private Sub UserForm1_Initialize()
With Sheets("Annu")
…

Par l’expression Private Sub UserForm1_Change()…

Problème B – Problème de présentation

Je voudrais que le TexBox “Coord” de l’UserForm2 me prépare un futur copié-collé vers un courrier ou une enveloppe à rédiger
J’ai élaboré une tentative avec :

Private Sub Coord_Change()
Nom.Value
Prenom.Value
'i = Nom.ListIndex
'Worksheets("Annu").Cells(i + 2, 10).Value 'Sté (retour à la ligne)
'Worksheets("Annu").Cells(i + 2, 11).Value 'Serv (retour à la ligne)

'Worksheets("Annu").Cells(i + 2, 12).Value 'Civ (+ blanc +)
'Coord = Worksheets("Annu").Cells(i + 2, 1).Value 'Nom (+ blanc +)
'Worksheets("Annu").Cells(i + 2, 2).Value 'prénom (+ blanc +)
'Worksheets("Annu").Cells(i + 2, 13).Value 'titre (retour à la ligne)

'Worksheets("Annu").Cells(i + 2, 3).Value 'Ad1 (retour à la ligne)
'Worksheets("Annu").Cells(i + 2, 14).Value 'Ad2 (retour à la ligne)
'Worksheets("Annu").Cells(i + 2, 15).Value 'Ad3 (retour à la ligne)
'Worksheets("Annu").Cells(i + 2, 16).Value 'BP (retour à la ligne)

'Worksheets("Annu").Cells(i + 2, 4).Value 'CP (+ blanc +)
'Worksheets("Annu").Cells(i + 2, 5).Value 'Ville (retour à la ligne)

'Worksheets("Annu").Cells(i + 2, 17).Value 'Ced
End Sub

Cela n’est pas concluant ; en plus je ne sais pas comment provoquer les retours à la ligne dans la codification ci-dessus.

Éventuellement Problème C –

Connaissez-vous la possibilité de déprotéger LE CLASSEUR (la feuille 1 est déprotégée) ?
En effet il m’est impossible d’ajouter d’autres feuilles à ce fichier., sur Excel 2003.

Merci pour votre aide

 

[Webperegrino]

Re : Recherche dans un annuaire téléphonique xls

Bonjour Le Forum,
Dans un souci de partager, voici ma dernière trouvaille : le ComboBox1 de l'UserForm1 se remplit maintenant très bien avec les civilités en présentation de déroulant.
Donc : Problème A réglé

Ci-joint le fichier adapté pour les lecteurs Excelnautes qui seraient intéressés.

Problème B : Je n'ai pas encore trouvé de solution (la dernière fenêtre rassemblant tout à la fois des valeurs des textBox ou du ComboBox supérieurs dans l'UserForm2, mais aussi des valeurs récupérées en base de données, avec des retours à la ligne bien choisis).

Je ne trouve pas non plus les bons codes pour l'extraction des bonnes valeurs sur la recherche de prénoms.
Voyez par exemple actuellement en lignes 6 et 7 de la Base :
Marc ou Jean-Louis ayant CURRY comme nom donneraient des affichages différents dans l'UserForm de consultation-recherche.

Je sais que dans UserForm 1 et 2, les TextBox 'Prénoms' devraient muter en ComboBox 'Prénoms' ... pour une recherche commune Nom + Prénom dans la base, mais leur codification interne est encore de l'ordre du mystère pour moi...
Une petite pédagogie dans ce registre me conviendrait parfaitement.
Donc avis à un passionné pouvant m'éclairer dans cette évolution du fichier.

Encore MERCI aux spécialistes qui sont précédemment intervenus dans mes demandes et qui m'ont permis de "grandir" dans l'utilisation d'Excel.
Cordialement

 

[Webperegrino]

Re : Recherche dans un annuaire téléphonique xls

Bonsoir le Forum,

Ci-joint le fichier que j'ai réussi à adapter à mes besoins.
En effet, il pourra peut-être servir à d'autres lecteurs Excelnautes intéressés.

J'avais comme objectif, en plus de gérer le carnet d'adresses et les numéros de tél, fax, mail, etc, de pouvoir copier le "paquet" de l'adresse pour le coller dans un courrier Word, en cadre d'enveloppe ou dans le corps d'un texte de lettre.

C'est ce que j'ai réussi en bas de l'UserForm de Recherche du contact.

Bonne soirée,
Webperegrino