tableau dynamique probleme redim preserve

Re : tableau dynamique probleme redim preserve

Bonjour Ben13 le forum
tu ne peux pas redimensionner comme cela, un tableau tu peux redimensionner les colonnes mais pas les lignes
dans ton cas tu dois déclarer redim mon tab(3,0) et ensuite redim preserve (3,ind) et à la fin tu transposes ton tableau
a+
Papou🙂

Re : tableau dynamique probleme redim preserve

bonjour
ok genre tu mets tes colonnes en premier et tes lignes en 2

voila ce que j'ai fait mercvi beaucoup
Dim montab() As Variant 'tableau de stockage
Dim ind, ind1 As Integer
ind = 0
ind1 = 0
ReDim montab(0 To 3, 0 To 0)
bla bla bla ..... puis

If ind = 0 Then
montab(ind1, ind) = tableauNumTrain(0) 'num de train
montab(ind1 + 1, ind) = Trim(maTable.Rows(i - 1).Cells(j - 8).innerText) 'ville
montab(ind1 + 2, ind) = "D" 'type
montab(ind1 + 3, ind) = Trim(maTable.Rows(i - 1).Cells(j - 1).innerText) 'eh
Else
ReDim Preserve montab(0 To 3, 0 To ind) montab(ind1, ind) = tableauNumTrain(0) 'num de train
montab(ind1 + 1, ind) = Trim(maTable.Rows(i - 1).Cells(j - 8).innerText) 'ville
montab(ind1 + 2, ind) = "D" 'type
montab(ind1 + 3, ind) = Trim(maTable.Rows(i - 1).Cells(j - 1).innerText) 'eh
End If