Type définit par l'utilisateur et array
Bonjour à tous
Je voudrai affecter une liste de cellule via la fonction array à un type définit par l'utilisateur. Est-ce possible?
J'ai choisi d'utiliser Array car je n'ai pas à faire de boucle pour la saisie des éléments des tableaux cellule et feuille. Les valeurs contenues dans "cellule" et "feuille" sont rentrée manuellement dans l'Array et n'auront pas besoin d'être modifié.
Comment pourrai-je écrire facilement les ligne affectant une liste aux éléments feuille et cellule de mon tableau définit par l'utilisateur?
Mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Type Local_cell
feuille(2) As Variant
cellule(10) As Variant
parametre As String
End Type
Private Sub CommandButton1_Click()
'Déclaration des tableaux
Dim Table_cell() As Local_cell
ReDim Table_cell(3)
'Initialisation des plages de cellules
Table_cell(0).parametre = "Res"
Table_cell(1).parametre = "paramA"
Table_cell(2).parametre = "paramC"
Table_cell(1).cellule = Array("F25", "F26", "F27", "F28", "F29", "G25", "G26", "G27", "G28", "G29")
Table_cell(2).cellule = Array("H25", "H26", "H27", "H28", "H29", "F25", "F26", "F27", "F28", "F29")
End Sub |
