l'indice n'appartient pas a la selectionRésolu

Question

J'ai cr&#233;&#233;e une fonction public dont voici le debut du code :

Public Function tri(choix As Integer, order As String)

Dim cnt, count, i, j As Integer
Dim temp, temp2 As String
count = 0

While workbooks("formulaire ajout mail.xls").Sheets("stockage").Range("A" & count + 1).Value <> ""
count = count + 1
Wend
ReDim t(count - 1, 1)

For cnt = 0 To count Step 1
stock = Split(workbooks("formulaire ajout mail.xls").Sheets("stockage").Range("A" & cnt + 1).Value, ",", , vbTextCompare)
t(cnt, 0) = stock(choix)
t(cnt, 1) = cnt + 1
Next cnt

Il m'indique a la ligne surlign&#233;, "&#233;rreur l'indice n'apartient pas a la selection". Pourtant le tableau est dimensionn&#233; et d&#233;clar&#233;, et j'ai verifi&#233; avec une msgbox, stock(choix) existe et contient bien la valeur souhait&#233;e.

Je lance la fontion comme cela :
tri 1 , "up"

malhivertman1 · Accepted Answer

Il te met cette erreur au 1er passage de ta boucle ou au dernier?
parce que ca viendrait soit de ton cnt=0 soit, de ton count step 1

spyderco · Answer

c'etait au dernier passage, le probleme venais du count.
je l'ai remplacer par count - 1 et sa marche.

Merci

malhivertman1 · Answer

De rien, bonne continuation
++

NHenry · Answer

Bonjour

Essaye de remplacer
For cnt = 0 To count Step 1
Par
For cnt = 0 To count-1 ' Step 1 pas besoin, pris par d&#233;faut

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

NHenry · Answer

Bonjour

dsl, j'avais pas rafraichi la page .

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

L'indice n'appartient pas a la selection

5 réponses

Discussions similaires