Discussion :

[christophe_fr]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

Bonjour,

Je ne comprends pas trop.
Je vais donc me limiter à l'essentiel (les mécanismes), sans tester à ce stade quoi que ce soit.

Pour moi et en 1er examen !

Il te faut quelque part définir une variable typée comme ta structure, genre :
Dim toto as Local-Cell (tu l'as fait, mais apparemment mal).

Si, ensuite, tu veux affecter la valeur de la variable titi à l'item x du tableau feuille de la structure, ce devrait être ainsi (à vérifier) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

toto.feuille(x)  = titi