Discussion :

[Jihnn]

Bonjour, ou bonsoir dans plusieurs cas ^^

Je n'ai pas trouvé comment obtenir l'index d'un item de combobox par son nom.
J'ai besoin de supprimer un item dans un combo box, en fait.

Merci d'avance,
Thunder

[SfJ5Rpw8]

par quel nom ..? le nom de la combobox?

[mrkinfo]

et comment ta rempli ta combobox ???

[zazaraignée]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
MsgBox Combo1.List(Combo1.ListIndex)  ' retourne l'intitulé de l'item sélectionné
' tout comme
MsgBox Combo1.Text

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Combo1.RemoveItem Combo1.ListIndex  ' efface l'item sélectionné

À moins que tu cherche autre chose... Plus de précisions S.V.P.

[jmfmarques]

Je crois deviner (mais n'en suis pas certain. A lui de confirmer ou infirmer) que Thunder cherche à récupérer l'index d'un article de combobox à partir du texte de cet article.

Il lui faudrait alors faire une boucle sur ses index jusqu'à trouver l'article en cause et quitter la boucle à ce niveau, qui sera celui de l'index correspondant.

[Jihnn]

Je devais être trop fatigué, c'est ce que j'ai fait toute la journée, des boucles.

C'est bien ce que je voulais faire, désolé du manque de précision (J'étais pressé quand j'ai écris ceci, je ne me suis pas relu).

Désolé encore

[jmfmarques]

alors c'est celà, que tu cherchais finalement à faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Command1_Click()
  For i = 1 To 10
    Combo1.AddItem i & "aaaa" 'juste pour "se faire" une série d'articles de test
  Next
End Sub
 
Private Sub Command2_Click()
  MsgBox cherche_index("3aaaa")
End Sub
 
Private Function cherche_index(texte_cherche)
  For i = 0 To Combo1.ListCount - 1
     If Combo1.List(i) = texte_cherche Then
       cherche_index = i
       Exit For
     End If
  Next
End Function