RÉCUPÉRER L'INDEX DES ENTRÉES D'UNE COMBOBOX

Signaler
Messages postés
1402
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
7 octobre 2012
-
cs_goc
Messages postés
19
Date d'inscription
samedi 25 octobre 2003
Statut
Membre
Dernière intervention
21 avril 2011
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/45516-recuperer-l-index-des-entrees-d-une-combobox

cs_goc
Messages postés
19
Date d'inscription
samedi 25 octobre 2003
Statut
Membre
Dernière intervention
21 avril 2011

juste un detail

il ne faut pas mettre
"For i = 0 To Combo2.ListCount", mais

"For i = 0 To Combo2.ListCount-1", car les index commencent a zero, alors que listcount donne le nombre de lignes, donc si tu veux eviter une erreur en cas texte non trouvé..
PCPT
Messages postés
13298
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
30
oups je croyais que c'était en DotNet....

pas besoin de poster :)
PCPT
Messages postés
13298
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
30
salut,

tu peux directement déposter ton bout de code (snippet) remis en forme sur codyx.org
le sujet est d'ailleurs déjà existant ici :
http://www.codyx.org/snippet_recuperer-position-chaine-dans-combobox-ou-listbox-selectionner_437.aspx

je supprimerai ensuite ta source
bonne soirée
cs_Salim32
Messages postés
8
Date d'inscription
mardi 21 décembre 2004
Statut
Membre
Dernière intervention
25 janvier 2008

Bonjour,
En fait ton code marche avec le Click mais ne marchera pas avec Change()

donc si on a :
Private Sub Combo2_Change() 'ce qui me fallait
Text3.Text = Combo2.List(Combo2.ListIndex) 'renverra une erreur

Mon code donc est utile pour récupérer l'index d'un élément de la combo qu'on a pas cliqué mais changé par une fonction.
LIBRE_MAX
Messages postés
1402
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
7 octobre 2012
5
Salut :
et dire que je faisais plus compliqué !

Private Sub Combo2_Click()
Text3.Text = Combo2.List(Combo2.ListIndex)
End Sub