XL 2013 Fonction de recherche

[laeti95]

Bonjour le forum,

J'ai un grand tableau de plus de 1100 lignes cela devient trop pénible de chercher et ensuite copier coller et surtout trop long.

ma base de données est sur un autre onglet et j'aimerais trouver la formule ( recherchev ou une autre, je suis ouverte aux propositions pour trouver ma solution )

Dans une cellule je tappe 689 et j'ai un menu déroulant qui affiche tous mes lieux avec 689 et je choisi selon la colonne alpha

pour ensuite que s'inscrive dans la colonne le lieu et alpha exemple 689 A

et desous le nom et téléphone de la personne.

MERCI d'avance pour vos lumières et un bon dimanche

Laeti

 

[BOISGONTIER]

Bonjour,

cf PJ

Boisgontier

 

[laeti95]

Bonjour à tous,

2 solutions dans le fichier joint (TCD et par formule matricielle)

JHA

Bonjour JHA,

MERCI je vais partir sur cette base je pense...

Merci à vous

Laeti

 

[laeti95]

J'ai commencé par dessiner votre UserForm avec mon outil :Regarde la pièce jointe 1038419

Pour ne pas tout réinventer j'ai même commencé a y copier les codes de celui ci :

Bonjour,

Ton interface est bien mais à mon goût trop compliqué !

Merci quand même

 

[Dranreb]

L'essentiel c'est que ce soit simple à utiliser et performant.

 

[laeti95]

Bonjour,

cf PJ

Boisgontier

Bonjour Boisgentier,

Merci mais j'ai ma base de données c'est juste que j'ai besoin d'extraire sur un autre formaulaire le nom et tél selon le lieu et que cela se mette en place sans chercher dans mon autre fichier.

Merci à Vous j'ai assez pour le moment pour me creuser la tête et trouver une solution.

Merci

laeti

 

[laeti95]

L'essentiel c'est que ce soit simple à utiliser et performant.

Justement le VBA n'est pas du tout simple pour moi débutante moyenne !

 

[Dranreb]

Quand même, s'il n'y a que quelques instructions à changer dans l'UserForm_Initialize …

 

[laeti95]

Quand même, s'il n'y a que quelques instructions à changer dans l'UserForm_Initialize …

Merci Dranreb,

Je vais regarder plus tard mais mon but c'est de mettre 660 a dans une cellule et la case à côté nom prénom et tél. en relation
Je ne dis pas qu'avec ton VBA ce n'est pas possible, mais il faut beaucoup de travail dessus pour comprendre je pense....
MERCI

 

[Dranreb]

Non, non. C'est une Workseet_Change dans le module de la feuille qui ressemblera beaucoup à la Sub Test que j'ai mise.

 

[Dranreb]

La voici :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
   Dim T(), TSpl() As String, C As Long
   TSpl = Split(Target.Value & "  ")
   T = UFmMàJ.Rech(TSpl(0), TSpl(1))
   On Error GoTo F
   T(1, 1) = T(1, 1) & " " & T(1, 2)
   On Error GoTo 0
   For C = 2 To 4: T(1, C) = T(1, C + 2): Next C
   Application.EnableEvents = False
   Target.Resize(, 4).Value = T
F: Application.EnableEvents = True
   Exit Sub