[XL-2007] problème index out of bound
Bonjour,
J'ai un soucis avec une boucle; En effet, le compilateur m'indique que je dépasse l'index de ma listView alors que pour moi je ne comprend pas car ma boucle va jusqu'au nombre de colonnes présente dans celle-ci.
Voici le code :
Code:
1
2
3
4
5
6
7
8
9
| For i = 1 To UBound(infoString) - 1
For j = 1 To resultat.ColumnHeaders.Count - 1
If infoString(i) Like resultat.ColumnHeaders(j).text Then
numCol = j
MsgBox (numCol)
End If
MsgBox (resultat.ListItems(1).ListSubItems(numCol))
Next j
Next i |
Ce que je veux faire ici, c'est que dans mon tableau de InfoString, il y a des nom de colonnes, ce petit bout de programme doit les retranscrire en nombre pour que je récupère les infos depuis ma listView.
Ici pour mon test le numCol vaut 3,4,5. Quand je met les chiffres manuellement tout fonctionne, mais dès que je remet numCol ça plante ...
(Ps: je n'ai qu'une ligne d'afficher dans ma listView d'où le resultat.listItems(1))
Merci de bien vouloir m'aider,
Cordialement,
Fyejumpy
