Bonsoir à tous,

Je voudrais transférer vers une feuille un tableau défini avec un type de donnée utilisateur ; voici un exemple de 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
23
24
25
26
27
28
29
30
 
Option Explicit
Option Base 1
 
Type voiture
    Couleur As String
    Cylindree As Long
    anneeAchat As Date
End Type
 
Sub Test_V02()
 
    Dim Tableau(2) As Voiture
 
    'Remplissage de 1ere ligne Tableau
    Tableau(1).Couleur = "Rouge"
    Tableau(1).Cylindree = 2000
    Tableau(1).anneeAchat = #4/21/2004#
 
    'Remplissage de 2nde ligne Tableau
    Tableau(2).Couleur = "vert"
    Tableau(2).anneeAchat = 2000
    Tableau(2).Cylindree = #5/13/2001#
 
 With Sheets("Feuil1")
 .Range(.Cells(1, 1), .Cells(2, 3)).Value = Tableau
 
End With
 
End Sub


Le problème est que dans ce cas l'instruction de transfert est interdite.
Est-ce que ce type de transfert est possible et comment ?

Par avance merci pour votre aide,

Bruno