textbox et liste déroulante

[titbobo]

Bonjour,

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

[/URL]
rowsource de la liste déroulante : ville!base.

c'est la fonction Me. , non ?

mon fiche de base :

[/URL]

merci

 

[Franck]

Salut titbobo

Je pense que tu doit pouvoir utiliser Listindex
sachant que
Listindex = -1 renvoi une valeur nul
Listindex = 0 renvoi la 1ere valeur
Listindex = 1 renvoi la 2eme valeur ...


Ce code devrait marcher
Private Sub ComboBox1_Change()
ListBox1.ListIndex = ComboBox1.ListIndex
ListBox2.ListIndex = ComboBox1.ListIndex

End Sub

Private Sub UserForm_Activate()
ComboBox1.RowSource = 'a:a'
ListBox1.RowSource = 'f:f'
ListBox2.RowSource = 'g:g'

End Sub

Tu peus si tu veux y mettre une condition du genre

Private Sub ComboBox1_Change()
If ListBox1.ListIndex = 0 Then
MsgBox ' Vous ne pouvez pas utiliser la ligne des titres !'
ListBox1.ListIndex = -1
Exit Sub
Else
ListBox1.ListIndex = ComboBox1.ListIndex
ListBox2.ListIndex = ComboBox1.ListIndex
End If
End Sub

Thierry trouverait surement une idée pour faire plus court

A + Franck

 

[titbobo]

Merci Franck

Qu'appelles-tu listbox ? c'est les textbox ?

J'ai essayé ça :

Private Sub cbville_Change()
Dim LigneSel As Long
LigneSel = choix.listeIndex + 2
lat = listeville.Sheets('villeliste').Range('F' & LigneSel).Value
longi = listeville.Sheets('villeliste').Range('G' & LigneSel).Value
End Sub

mais ça plante sur listeindex !

 

[Eric C]

Bonjour le forum
Bonjour Titbobo, bonjour Franck

Simple et pratique, d'après la reprise d'une ancienne démo de Thierry.


Bonnes Fêtes de Pâques [file name=TitBobo.zip size=10469]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TitBobo.zip[/file]

 

[titibobo]

alalal bravo
je test avec mes valeurs

 

[Franck]

Re Re

Voila je te post un petit fichier c'est plus simple

A+ Franck [file name=Nouveau Feuille de calcul Microsoft Excel (2)_20050326191110.zip size=10608]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Nouveau Feuille de calcul Microsoft Excel (2)_20050326191110.zip[/file]

 

[titibobo]

merci franck

Par contre Eric C ça fonctionne bien, mais je ne comrpend pas le (1 et (2 dans

.TextBox1 = .ComboBox1.Column(1, .ComboBox1.ListIndex)
.TextBox2 = .ComboBox1.Column(2, .ComboBox1.ListIndex)


car latitude et longitude sont dans les colonnes 2 et 3 , non ?

 

[Eric C]

Bonjour le forum
Re bonjour titibobo, re bonjour Franck

Aide VBA sur column : Columm de ComboBox : Facultatif. Nombre entier compris entre zéro et le nombre total de colonne moins 1.

Donc => .TextBox1 = .ComboBox1.Column(0, .ComboBox1.ListIndex) = la ville
Oki ? Bonne fêtes de Pâques

 

[titibobo]

re all


Alala ce bouton F1 faut que j'y pense plus souvent !!

Encore merci... !!!