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