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

 

[Dranreb]

Bonjour.
Avec un UserForm muni de ComboBox pour tous les critères qui vous voulez pouvoir chercher, ça vous irait ?
Si oui je joindrai mon générateur d'UserForm et le precurseur de mon complément "CBx liées et Ctl associés"

 

[laeti95]

Bonjour

je suis nulle sur le VBA j'aimerais trouver la solution avec une formule recherche index etc.

Laeti

 

[Dranreb]

Dommage.

 

[laeti95]

Bonjour

je suis nulle sur le VBA j'aimerais trouver la solution avec une formule recherche index etc.

Laeti

Je sais que tout s'apprend mais bon, c'est juste qu'après je n'ai pas le temps de chercher

 

[Dranreb]

En résumé, ça ne vous intéresse pas ?

 

[laeti95]

Je suis toujours preneuse, le seul hic c'est qu'il faut savoir après comment faire pour l'adapter à MON tableau

 

[Dranreb]

Ce seront des séries d'instructions de la forme de cet exemple : CL.Add CBxLieu, "Lieu"
et pour le numéro de téléphone : CA.Add TBxTel, "Tél."
À part ces instructions dans la Sub UserForm_Initialize, le reste de la programmation ne devrait pas changer.

 

[frangy]

Bonjour,

Une solution proposée sur le site de Jacques BOISGONTIER
http://boisgontierjacques.free.fr/pages_site/listes_cascade.htm#Liste2Niveaux

Cordialement.

 

[laeti95]

et ?

 

[laeti95]

Bonjour Frangy,

Oui je vais prendre la solution avec les formules......mais du travail !

Merci

 

[laeti95]

A Dranreb,

Il n'y a pas de fichier comme exemple ?

 

[Dranreb]

J'ai commencé par dessiner votre UserForm avec mon outil :

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

 

[JHA]

Bonjour à tous,

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

JHA

 

[Dranreb]

J'en suis là dans la programmation :

Option Explicit
Private WithEvents CL As ComboBoxLiées, WithEvents CA As ControlsAssociés, LCou As Long, TVL()
Private Sub UserForm_Initialize()
   Set CL = CLsCAs.Création.ComboBoxLiées: CL.Plage Feuil1
   Set CA = CLsCAs.Création.ControlsAssociés: Set CA.Colonnes = CL.Colonnes
   CL.Add Me.CBxLieu, "Lieu"
   CL.Add Me.CBxAlpha, "Alpha"
   CL.Add Me.CBxRue, "Rue"
   CL.Add Me.CBxNom, "Nom"
   CL.Add Me.CBxPrénom, "Prénom"
   CA.Add Me.TBxTél, "Tél.", "&"
   CL.CouleurSympa
   CL.Actualiser
   End Sub
Private Sub CL_Change(ByVal Complet As Boolean, ByVal NbrLgn As Long)
   If NbrLgn = 0 And Complet Then
      CBnValider.Enabled = True: CBnValider.Caption = "Ajouter": CBnSuppr.Enabled = False
   ElseIf NbrLgn = 1 Then
      CBnValider.Enabled = True: CBnValider.Caption = "Modifier": CBnSuppr.Enabled = True
   Else
      CBnValider.Enabled = False: CBnValider.Caption = "…": CBnSuppr.Enabled = False
      End If
   LCou = 0
   ReDim TVL(1 To 1, 1 To CL.Colonnes.Count)
   CA.ValeursDepuis TVL
   End Sub
Private Sub CL_BingoUn(ByVal Ligne As Long)
   LCou = Ligne
   TVL = CL.Lignes(LCou).Range.Value
   CA.ValeursDepuis TVL
   End Sub
Private Sub CBnEchap_Click(): If CL.ChangéÀLEchap Then Exit Sub
   CL.Nettoyer
   End Sub
Private Sub CBnValider_Click()
   CA.ValeursVers TVL
   If LCou = 0 Then
      CL.ValeursVers TVL
      CL.Lignes.Add.Range.Value = TVL
      CL.Actualiser
   Else
      CL.Lignes(LCou).Range.Value = TVL
      End If
   End Sub
Private Sub CBnSuppr_Click()
   If LCou = 0 Then Exit Sub
   CL.Lignes(LCou).Delete
   CL.Actualiser
   End Sub

Mais je n'ai pas encore sauvegardé, au cas où ça ne vous intéresserait pas.
Bon, ça permet la mise à jour de cette base, ce qui n'était pas vraiment demandé. On pourra ajouter une procédure qui l'affiche lors de la sélection ou modification d'une cellule, en débutant déjà la recherche par sa valeur, et un bouton pour appliquer dans d'autres cellules de la même ligne des éléments de la ligne trouvée. Il faudrait préciser ce contexte d'utilisation.