XL 2016 Recherche V avec affichage de plusieurs résultats

nessus

XLDnaute Junior
Bonjour et merci pour ce que vous faites .
je dispose d un fichier contenant des bases de données de plusieurs points GPS avec leurs lat et Long.
j effectue une recherche V dans plusieurs feuilles pour m renvoyer la lat et la long correspondante .
sauf que parfois j ai des points GPS avec des mêmes noms mais des lat et long différentes.
je sais que recherche v me renvoie la première valeur trouvé
mon but est d afficher le résultat de la recherche sous forme de liste déroulante ,et à moi de décider des valeurs à à afficher ;
merci
 

Pièces jointes

  • NAVDATA.xlsx
    561.3 KB · Affichages: 40

Regueiro

XLDnaute Impliqué
Bonsoir le Forum, nessus
Ton fichier en retour avec le peu que j'ai compris
Attention fichier XLSM ( MAcro )
EXPLICATIONS
J'ai rajouter une feuille MENU
Le 1er combobox recherche dans le Tableau1 ( Feuille Waypoints )
Tu peux faire une recherche intuitive comme dans Google

Le 2ème Combobox recherche dans le Tableau2 ( Feuille VOR )

Ainsi de suite

Code à compléter :
Code:
Option Explicit
Dim a, d1, clé, c
Private Sub ComboBox1_Change()

If Me.ComboBox1 <> "" Then
  Set d1 = CreateObject("Scripting.Dictionary")
  clé = UCase(Me.ComboBox1) & "*"
    For Each c In Sheets("Waypoints").[Tableau1[name]]

    If UCase(c) Like clé Then d1(c.Value) = ""
  Next c
  Me.ComboBox1.List = d1.keys
  Me.ComboBox1.DropDown
  [G5] = Me.ComboBox1
End If
End Sub
Private Sub ComboBox1_DropButtonClick()
    ComboBox1.List = Sheets("Waypoints").[Tableau1[name]].Value
End Sub

Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1.List = Sheets("Waypoints").[Tableau1[name]].Value
Me.ComboBox1.DropDown
End Sub

Private Sub ComboBox2_Change()
If Me.ComboBox2 <> "" Then

Set d1 = CreateObject("Scripting.Dictionary")
  clé = UCase(Me.ComboBox2) & "*"
    For Each c In Sheets("VOR").[Tableau2[VOR]]

    If UCase(c) Like clé Then d1(c.Value) = ""
  Next c
  Me.ComboBox2.List = d1.keys
  Me.ComboBox2.DropDown
  [G13] = Me.ComboBox2
End If



End Sub
 

Pièces jointes

  • XLD NAVDATA.xlsm
    582.1 KB · Affichages: 50

nessus

XLDnaute Junior
merci infiniment ;super
comment je peux les mettre mes points GPS un après l autre pour former une trajectoire gps dans le classeur recherche
le point GPS abala possede 2 coordonnées lat et long ;comment je peux avoir le choix?

merci encore
 

Regueiro

XLDnaute Impliqué
Bonsoir le Forum, nessus
Si plusieurs choix pour la même recherche voici la formule MATRICIELLE
A valider par CRTL + SHIFT + ENTER
Voir sur l'Onglet MENU
Code:
=SIERREUR(INDEX(Tableau1[Latitude];PETITE.VALEUR(SI(Tableau1[name]=$G$5;LIGNE($1:$28));LIGNE($A1)));"")
Concernant le traçage de point GPS, merci de mettre un exemple
de ce que tu souhaite.
@+
 

Pièces jointes

  • XLD NAVDATA.xlsm
    587 KB · Affichages: 49

Discussions similaires

Réponses
5
Affichages
301
Réponses
12
Affichages
472

Statistiques des forums

Discussions
312 115
Messages
2 085 447
Membres
102 889
dernier inscrit
monsef JABBOUR