Discussion :

[Jipété]

Bonjour,

Je n'ai rien trouvé dans la FAQ, ni en utilisant "Rechercher" (les titres sont tellement peu explicites... )
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 :

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

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

[dadavyvy]

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...

[Jipété]

Code :

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

    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é" :

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 :

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

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 :

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

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]

[Jipété]

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