[VBA-E] Parcourir les Items d'un ComboBox à la recherche d'une string

Bonjour,

Je n'ai rien trouvé dans la FAQ, ni en utilisant "Rechercher" (les titres sont tellement peu explicites... :roll:)
J'ai besoin de parcourir toutes les lignes d'un bête ComboBox pour voir si une string s'y trouve.
Je pensais que quelquechose comme ça conviendrait :

Code:

---

1 2 3 4 5 6 7

Dim i As Integer Dim s As String s = "toto" For i = 0 To cbb_Clients.ListCount - 1 If s Like cbb_Clients.List(i) Then Exit Sub Next i 'Non trouvé, suite du traitement

---

mais je gagne l'erreur 9, "l'indice n'appartient pas à la sélection".

Une idée ?
Merci d'avance,
--
Jean-Pierre

Il me semble que ta boucle doit aller de 1 à cbb_Clients.ListCount et pas 0... Et oui, c'est ça VBA, les Array commence à 0, mais pas forcément les collections...

Code:

---

For i = 1 To cbb_Clients.ListCount

---

Même cause, même effet...
--
Jean-Pierre
[edit] Des précisions :
1- aide VBA, rubrique "ListCount, propriété" :

Citation:

---

La valeur de la propriété ListCount est toujours supérieur de 1 à la valeur la plus grande de la propriété ListIndex, parce que les numéros d'index commencent par zéro et que le nombre d'éléments commence par un 1.

---

2- aide VBA, rubrique "ListBox, contrôle, List, propriété, exemple"

Code:

---

1 2 3 4 5 6 7 8

' Exchange contents of columns 1 and 3 Dim i As Single Dim Temp As Single For i = 0 To 5 Temp = ListBox1.List(i, 0) ListBox1.List(i, 0) = ListBox1.List(i, 2) ListBox1.List(i, 2) = Temp Next i

---

3- mon code simplifié, avec l'erreur 9 :

Code:

---

1 2 3 4

Dim i As Integer For i = 0 To (cbb_Clients.ListCount - 1) MsgBox cbb_Clients.List(i, 0) Next i

---

Pourquoi, mais pourquoi des choses aussi simples sont-elles aussi compliquées ? [/edit]

C'est fou :

Il aura suffi que je clique sur "Enregistrer" pour que je me débarrasse de l'erreur 9 !

Again, « Pourquoi, mais pourquoi des choses aussi simples sont-elles aussi compliquées ? »
--
Jean-Pierre