Textbox et liste déroulante dans un userform

titibobo2 Messages postés 46 Date d'inscription dimanche 27 février 2005 Statut Membre Dernière intervention 28 novembre 2007 - 26 mars 2005 à 14:40
titibobo2 Messages postés 46 Date d'inscription dimanche 27 février 2005 Statut Membre Dernière intervention 28 novembre 2007 - 28 mars 2005 à 11:59

Bonjour,

comment faire pour afficher la longtitude et la latitude lorsque je choisi le ville dans la liste déroulante.

http://www.imageshack.us
rowsource de la liste déroulante : ville!base.

c'est la fonction Me. , non ?

mon fiche de base :
http://www.imageshack.us

merci :)

A voir également:

Textbox et liste déroulante dans un userform
Textbox - Forum Visual Basic
Liste déroulante html w3school ✓ - Forum PHP
Userform - Conseils pratiques -Visual Basic / VB.NET
Textbox vba ✓ - Forum Visual Basic 6
Userform initialize ✓ - Forum Visual Basic 6

2 réponses

Réponse 1 / 2

titibobo2 Messages postés 46 Date d'inscription dimanche 27 février 2005 Statut Membre Dernière intervention 28 novembre 2007
26 mars 2005 à 16:18

Private Sub ville_change()
lat.Text = VLookup(ville.Value, ville!base, 6, False)
End Sub
mais ne fonctionne pas ...

Réponse 2 / 2

titibobo2 Messages postés 46 Date d'inscription dimanche 27 février 2005 Statut Membre Dernière intervention 28 novembre 2007
28 mars 2005 à 11:59

résolu :

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

Discussions similaires

Liste Déroulante Garder la saisie

liste déroulante avec selected

liste déroulante à partir d'une base de données

afficher une liste déroulante en cliquant sur un input

intégrer et remplir une liste déroulante dans une UserForm