l'indice n'apartient pas a la selection Résolu

Question

Je debute en vba, et j'ai un probleme avec un tableau dynamique

Voila mon code : 

Dim tablo() As String
Dim t() As String
Dim i As Integer
i = 0
While workbooks("formulaire ajout mail.xls").Sheets("stockage").Range("A" & i + 1).Value <> ""
stock = workbooks("formulaire ajout mail.xls").Sheets("stockage").Range("A" & i + 1).Value
tablo = Split(stock, ",", , vbTextCompare)
t(i, 0) = i + 1
t(i, 1) = tablo(0)
t(i, 2) = tablo(1)
t(i, 3) = tablo(4)
t(i, 4) = tablo(25)
i = i + 1
Wend

Il m'indique une erreur sur la ligne souligné (l'indice n'apartient pas a la selection). Pourtant la variable i est déclarée et initialisée. je ne comprend pas....

linasteph · Accepted Answer

Tu as défini ta varible t comme une tableau mais tu n'initialise jamais les dimensions


Donc avant la ligne soulignée essaie de faire

redim preserve t(4,i)

t(0,i) = i+1

....


Il faut inverser les dimensions 4 eti dans le tableau si tu utilises le
mot preserve qui te permettra de na pas écraser les données existantes.

spyderco · Answer

C'est bon, ca marche, merci bcp

L'indice n'apartient pas a la selection

2 réponses

Discussions similaires