Bonjour,

Ai-je bien comprit votre démarche ?

Option Explicit

Public Type Type1
Dec1 As Long
Dec2 As Long
Dec3 As Long
Dec4 As Long
End Type

Public Type Type2
Dec5 As Long
Dec6 As Long
Dec7() As Type1
End Type
'

Sub PremierNiveau()

Dim Truc As Type2

ReDim Truc.Dec7(2)

Truc.Dec7(1).Dec1 = 128
MsgBox Truc.Dec7(1).Dec1
SecondNiveau Truc
MsgBox Truc.Dec7(1).Dec1

End Sub
'

Sub SecondNiveau(ByRef Trac As Type2)

Trac.Dec7(1).Dec1 = 256

End Sub

Lupin

~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~

Oui c est cela a quelques differences près:

Option Explicit

Public Type Type1
Dec1 As Long
Dec2 As integer
Dec3 As integer
Dec4 As string
End Type

Public Type Type2
Dec5 As Long
Dec6 As Long
Dec7() As Type1
End Type


Sub PremierNiveau()

Dim Truc As Type2

ReDim Truc.Dec7(2)

Truc.Dec7(1).Dec1 = 128
MsgBox Truc.Dec7(1).Dec1

SecondNiveau Truc
MsgBox Truc.Dec7(1).Dec1

End Sub



Sub SecondNiveau(ByRef Trac As Type2)

Trac.Dec7(1).Dec1 = 256

End Sub


en faite il n'y a pas de second niveau lorsque j'ai defini mes valeurs dans le premier niveau j'envoie les données par une fonction qui est dans une dll par référence (ce qui devrai la rendre modifiable (byref))

et en fait lorsque je regarde coté dll j'ai les bonnes valeurs pour le premier niveau mais par pour le second, je m'explique:
truc.Dec5
truc.Dec6
sont OK
mais des que j'utilise mon type, a partir de Dec7, la les valeurs qui ont été passé en paramètres ne sont plus bonne du tout c est comme si il n'y faisait plus référence!!

saurais-tu y remedier?

Merci beaucoup de t'y interesser !!

Séb