XL 2013 Fonction de recherche

laeti95 · 18 Août 2019

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 · 18 Août 2019

Bonjour,

cf PJ

Boisgontier

laeti95 · 18 Août 2019

JHA à dit:
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 · 18 Août 2019

Dranreb à dit:
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 · 18 Août 2019

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

laeti95 · 18 Août 2019

BOISGONTIER à dit:
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 · 18 Août 2019

Dranreb à dit:
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 · 18 Août 2019

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

laeti95 · 18 Août 2019

Dranreb à dit:
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 · 18 Août 2019

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

Dranreb · 18 Août 2019

La voici :

VB:

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

XL 2013 Fonction de recherche

laeti95

XLDnaute Occasionnel

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

laeti95

XLDnaute Occasionnel

laeti95

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

laeti95

XLDnaute Occasionnel

laeti95

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Pièces jointes

laeti95

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Discussions similaires