titibobo Posté(e) le 26 mars 2005 Partager Posté(e) le 26 mars 2005 Bonjour, comment faire pour afficher la longtitude et la latitude lorsque je choisi le ville dans la liste déroulante. rowsource de la liste déroulante : ville!base. c'est la fonction Me. , non ? mon fiche de base : merci Lien vers le commentaire Partager sur d’autres sites More sharing options...
mogwai93 Posté(e) le 26 mars 2005 Partager Posté(e) le 26 mars 2005 ton fichier qui contient les latitudes/longitudes est de quel type ? d'apres l'image, c'est un fichier excel pour ton prog, il te faudrait soit un fichier Access, soit un fichier texte, soit... Pour Access (le + facile): 1) tu ouvres ta BD 2) en fonction de la ville choisie, tu vas lire les champs longitudes et latitude 3) tu affiches les valeurs pour un fichier texte : tout depend de sa structure... là tu devras coder une méthode de lecture qui en fonction de la ville te retournera les latitudes et longitudes.. Lien vers le commentaire Partager sur d’autres sites More sharing options...
titibobo Posté(e) le 26 mars 2005 Auteur Partager Posté(e) le 26 mars 2005 oui merci C'est un fichier excel et restera un fichier *.xls C'est pas possible de coder une rechercheV en fonction de la ville affichée dans le userform? Private Sub ville_change() lat.Text = VLookup(ville.Value, ville!base, 6, False) End Sub mais ne fonctionne pas ... Lien vers le commentaire Partager sur d’autres sites More sharing options...
mogwai93 Posté(e) le 28 mars 2005 Partager Posté(e) le 28 mars 2005 oui merciC'est un fichier excel et restera un fichier *.xls C'est pas possible de coder une rechercheV en fonction de la ville affichée dans le userform? Private Sub ville_change() lat.Text = VLookup(ville.Value, ville!base, 6, False) End Sub mais ne fonctionne pas ... j'ai jamais codé ce genre de liaison (vb - excel) t'as allé voir sur http://vb.developpez.com/faq/?page=Divers#excel2flex ou http://vb.developpez.com/faq/ voir si tu peux mettre un objet de type excel en invisible le remplir avec ton fichier excel puis de faire tes requetes sur cet objet ? 1) recuperer la ligne de ta ville 2) puis recuperer les valeurs de la ligne de la ville Lien vers le commentaire Partager sur d’autres sites More sharing options...
titibobo Posté(e) le 28 mars 2005 Auteur Partager Posté(e) le 28 mars 2005 Private Sub UserForm_Initialize() Dim L L = Sheets(1).Range("A65536").End(xlUp).Row With Me With .Cbville .ColumnCount = 1 .RowSource = "villeliste!A2:D" & L .MatchEntry = fmMatchEntryFirstLetter End With End With End Sub Private Sub cbville_Change() With Me .lati = .Cbville.Column(1, .Cbville.ListIndex) .longi = .Cbville.Column(2, .Cbville.ListIndex) .codep = .Cbville.Column(3, .Cbville.ListIndex) End With End Sub ethop ça fonctionne Lien vers le commentaire Partager sur d’autres sites More sharing options...
Messages recommandés
Archivé
Ce sujet est désormais archivé et ne peut plus recevoir de nouvelles réponses.