Redimensionnement tableau à 2 dimensions VBA Fermé

Question

Salut,

J'ai un tableau à deux dimension que je souhaite redimensionner :
Dim tableau_date_S2EV() As Integer
ReDim tableau_date_S2EV(0, 0)
tableau_date_S2EV(0, 0) = 3



ReDim Preserve tableau_date_S2EV(1 To 2, 1 To 2)

MsgBox tableau_date_S2EV(0, 0)

Mais à la ligne ReDim Preserve tableau_date_S2EV(1 To 2, 1 To 2) l'éxécution plante ...

Qq1 saurait pq ? et ce qu'il faudrai faire pour résoudre ce problm ?

Merci !

Bidouilleu_R · Answer

c'est normal seul le redimensionnement est possible sur un tableau ayant une dimension....

Une astuce ( que j'utilise ) est de créer un tableau de tableau.
on appelle ça un tableau de type.
comme ça!





Sub test2()


'le plus simple est d'utilisé un tableau de type

Type tabQQC
  Tab_1 As Integer
  Tab_2 As Integer

End Type
Dim tablo() As tabQQC

ReDim tablo(0)
ReDim Preserve tablo(2)

tablo(1).Tab_1 = 4
tablo(2).Tab_2 = 5



End Sub

Redimensionnement tableau à 2 dimensions VBA

1 réponse

Discussions similaires