Redimensionnement tableau à 2 dimensions VBA
eeuuhh
Messages postés
30
Date d'inscription
Statut
Membre
Dernière intervention
-
Bidouilleu_R Messages postés 1181 Date d'inscription Statut Membre Dernière intervention -
Bidouilleu_R Messages postés 1181 Date d'inscription Statut Membre Dernière intervention -
Salut,
J'ai un tableau à deux dimension que je souhaite redimensionner :
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 !
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 !
A voir également:
- Redimensionnement tableau à 2 dimensions VBA
- Tableau word - Guide
- Supercopier 2 - Télécharger - Gestion de fichiers
- Tableau ascii - Guide
- Trier un tableau excel - Guide
- Tableau croisé dynamique - Guide
1 réponse
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
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
