Peut être avec une procédure récursive ?
Code : Tout sélectionner
ForEach Gadgets.GadgetInformation(EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub1EnfantsGadgetNom$ = Gadgets.GadgetInformation(EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub1EnfantsGadgetX.i = Gadgets.GadgetInformation(Sub1EnfantsGadgetNom$)\X
Sub1EnfantsGadgetY.i = Gadgets.GadgetInformation(Sub1EnfantsGadgetNom$)\Y
Sub1EnfantsGadgetLargeur.i = Gadgets.GadgetInformation(Sub1EnfantsGadgetNom$)\Largeur
Sub1EnfantsGadgetHauteur.i = Gadgets.GadgetInformation(Sub1EnfantsGadgetNom$)\Hauteur
Sub1EnfantsGadgetType$ = Gadgets.GadgetInformation(Sub1EnfantsGadgetNom$)\Type
Sub1EnfantsGadgetTexte$ = Gadgets.GadgetInformation(Sub1EnfantsGadgetNom$)\Texte
If ListSize(Gadgets.GadgetInformation(Sub1EnfantsGadgetNom$)\NomGadgetsEnfant()) = 0
EndIf
ForEach Gadgets.GadgetInformation(Sub1EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub2EnfantsGadgetNom$ = Gadgets.GadgetInformation(Sub1EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub2EnfantsGadgetX.i = Gadgets.GadgetInformation(Sub2EnfantsGadgetNom$)\X
Sub2EnfantsGadgetY.i = Gadgets.GadgetInformation(Sub2EnfantsGadgetNom$)\Y
Sub2EnfantsGadgetLargeur.i = Gadgets.GadgetInformation(Sub2EnfantsGadgetNom$)\Largeur
Sub2EnfantsGadgetHauteur.i = Gadgets.GadgetInformation(Sub2EnfantsGadgetNom$)\Hauteur
Sub2EnfantsGadgetType$ = Gadgets.GadgetInformation(Sub2EnfantsGadgetNom$)\Type
Sub2EnfantsGadgetTexte$ = Gadgets.GadgetInformation(Sub2EnfantsGadgetNom$)\Texte
If ListSize(Gadgets.GadgetInformation(Sub2EnfantsGadgetNom$)\NomGadgetsEnfant()) = 0
EndIf
ForEach Gadgets.GadgetInformation(Sub2EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub3EnfantsGadgetNom$ = Gadgets.GadgetInformation(Sub2EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub3EnfantsGadgetX.i = Gadgets.GadgetInformation(Sub3EnfantsGadgetNom$)\X
Sub3EnfantsGadgetY.i = Gadgets.GadgetInformation(Sub3EnfantsGadgetNom$)\Y
Sub3EnfantsGadgetLargeur.i = Gadgets.GadgetInformation(Sub3EnfantsGadgetNom$)\Largeur
Sub3EnfantsGadgetHauteur.i = Gadgets.GadgetInformation(Sub3EnfantsGadgetNom$)\Hauteur
Sub3EnfantsGadgetType$ = Gadgets.GadgetInformation(Sub3EnfantsGadgetNom$)\Type
Sub3EnfantsGadgetTexte$ = Gadgets.GadgetInformation(Sub3EnfantsGadgetNom$)\Texte
If ListSize(Gadgets.GadgetInformation(Sub3EnfantsGadgetNom$)\NomGadgetsEnfant()) = 0
EndIf
ForEach Gadgets.GadgetInformation(Sub3EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub4EnfantsGadgetNom$ = Gadgets.GadgetInformation(Sub3EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub4EnfantsGadgetX.i = Gadgets.GadgetInformation(Sub4EnfantsGadgetNom$)\X
Sub4EnfantsGadgetY.i = Gadgets.GadgetInformation(Sub4EnfantsGadgetNom$)\Y
Sub4EnfantsGadgetLargeur.i = Gadgets.GadgetInformation(Sub4EnfantsGadgetNom$)\Largeur
Sub4EnfantsGadgetHauteur.i = Gadgets.GadgetInformation(Sub4EnfantsGadgetNom$)\Hauteur
Sub4EnfantsGadgetType$ = Gadgets.GadgetInformation(Sub4EnfantsGadgetNom$)\Type
Sub4EnfantsGadgetTexte$ = Gadgets.GadgetInformation(Sub4EnfantsGadgetNom$)\Texte
If ListSize(Gadgets.GadgetInformation(Sub4EnfantsGadgetNom$)\NomGadgetsEnfant()) = 0
EndIf
ForEach Gadgets.GadgetInformation(Sub4EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub5EnfantsGadgetNom$ = Gadgets.GadgetInformation(Sub4EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub5EnfantsGadgetX.i = Gadgets.GadgetInformation(Sub5EnfantsGadgetNom$)\X
Sub5EnfantsGadgetY.i = Gadgets.GadgetInformation(Sub5EnfantsGadgetNom$)\Y
Sub5EnfantsGadgetLargeur.i = Gadgets.GadgetInformation(Sub5EnfantsGadgetNom$)\Largeur
Sub5EnfantsGadgetHauteur.i = Gadgets.GadgetInformation(Sub5EnfantsGadgetNom$)\Hauteur
Sub5EnfantsGadgetType$ = Gadgets.GadgetInformation(Sub5EnfantsGadgetNom$)\Type
Sub5EnfantsGadgetTexte$ = Gadgets.GadgetInformation(Sub5EnfantsGadgetNom$)\Texte
If ListSize(Gadgets.GadgetInformation(Sub5EnfantsGadgetNom$)\NomGadgetsEnfant()) = 0
EndIf
ForEach Gadgets.GadgetInformation(Sub5EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub6EnfantsGadgetNom$ = Gadgets.GadgetInformation(Sub5EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub6EnfantsGadgetX.i = Gadgets.GadgetInformation(Sub6EnfantsGadgetNom$)\X
Sub6EnfantsGadgetY.i = Gadgets.GadgetInformation(Sub6EnfantsGadgetNom$)\Y
Sub6EnfantsGadgetLargeur.i = Gadgets.GadgetInformation(Sub6EnfantsGadgetNom$)\Largeur
Sub6EnfantsGadgetHauteur.i = Gadgets.GadgetInformation(Sub6EnfantsGadgetNom$)\Hauteur
Sub6EnfantsGadgetType$ = Gadgets.GadgetInformation(Sub6EnfantsGadgetNom$)\Type
Sub6EnfantsGadgetTexte$ = Gadgets.GadgetInformation(Sub6EnfantsGadgetNom$)\Texte
If ListSize(Gadgets.GadgetInformation(Sub6EnfantsGadgetNom$)\NomGadgetsEnfant()) = 0
EndIf
ForEach Gadgets.GadgetInformation(Sub6EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub7EnfantsGadgetNom$ = Gadgets.GadgetInformation(Sub6EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub7EnfantsGadgetX.i = Gadgets.GadgetInformation(Sub7EnfantsGadgetNom$)\X
Sub7EnfantsGadgetY.i = Gadgets.GadgetInformation(Sub7EnfantsGadgetNom$)\Y
Sub7EnfantsGadgetLargeur.i = Gadgets.GadgetInformation(Sub7EnfantsGadgetNom$)\Largeur
Sub7EnfantsGadgetHauteur.i = Gadgets.GadgetInformation(Sub7EnfantsGadgetNom$)\Hauteur
Sub7EnfantsGadgetType$ = Gadgets.GadgetInformation(Sub7EnfantsGadgetNom$)\Type
Sub7EnfantsGadgetTexte$ = Gadgets.GadgetInformation(Sub7EnfantsGadgetNom$)\Texte
If ListSize(Gadgets.GadgetInformation(Sub7EnfantsGadgetNom$)\NomGadgetsEnfant()) = 0
EndIf
ForEach Gadgets.GadgetInformation(Sub7EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub8EnfantsGadgetNom$ = Gadgets.GadgetInformation(Sub7EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub8EnfantsGadgetX.i = Gadgets.GadgetInformation(Sub8EnfantsGadgetNom$)\X
Sub8EnfantsGadgetY.i = Gadgets.GadgetInformation(Sub8EnfantsGadgetNom$)\Y
Sub8EnfantsGadgetLargeur.i = Gadgets.GadgetInformation(Sub8EnfantsGadgetNom$)\Largeur
Sub8EnfantsGadgetHauteur.i = Gadgets.GadgetInformation(Sub8EnfantsGadgetNom$)\Hauteur
Sub8EnfantsGadgetType$ = Gadgets.GadgetInformation(Sub8EnfantsGadgetNom$)\Type
Sub8EnfantsGadgetTexte$ = Gadgets.GadgetInformation(Sub8EnfantsGadgetNom$)\Texte
If ListSize(Gadgets.GadgetInformation(Sub8EnfantsGadgetNom$)\NomGadgetsEnfant()) = 0
EndIf
ForEach Gadgets.GadgetInformation(Sub8EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub9EnfantsGadgetNom$ = Gadgets.GadgetInformation(Sub8EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub9EnfantsGadgetX.i = Gadgets.GadgetInformation(Sub9EnfantsGadgetNom$)\X
Sub9EnfantsGadgetY.i = Gadgets.GadgetInformation(Sub9EnfantsGadgetNom$)\Y
Sub9EnfantsGadgetLargeur.i = Gadgets.GadgetInformation(Sub9EnfantsGadgetNom$)\Largeur
Sub9EnfantsGadgetHauteur.i = Gadgets.GadgetInformation(Sub9EnfantsGadgetNom$)\Hauteur
Sub9EnfantsGadgetType$ = Gadgets.GadgetInformation(Sub9EnfantsGadgetNom$)\Type
Sub9EnfantsGadgetTexte$ = Gadgets.GadgetInformation(Sub9EnfantsGadgetNom$)\Texte
If ListSize(Gadgets.GadgetInformation(Sub9EnfantsGadgetNom$)\NomGadgetsEnfant()) = 0
EndIf
ForEach Gadgets.GadgetInformation(Sub9EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub10EnfantsGadgetNom$ = Gadgets.GadgetInformation(Sub9EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub10EnfantsGadgetX.i = Gadgets.GadgetInformation(Sub10EnfantsGadgetNom$)\X
Sub10EnfantsGadgetY.i = Gadgets.GadgetInformation(Sub10EnfantsGadgetNom$)\Y
Sub10EnfantsGadgetLargeur.i = Gadgets.GadgetInformation(Sub10EnfantsGadgetNom$)\Largeur
Sub10EnfantsGadgetHauteur.i = Gadgets.GadgetInformation(Sub10EnfantsGadgetNom$)\Hauteur
Sub10EnfantsGadgetType$ = Gadgets.GadgetInformation(Sub10EnfantsGadgetNom$)\Type
Sub10EnfantsGadgetTexte$ = Gadgets.GadgetInformation(Sub10EnfantsGadgetNom$)\Texte
If ListSize(Gadgets.GadgetInformation(Sub10EnfantsGadgetNom$)\NomGadgetsEnfant()) = 0
EndIf
ForEach Gadgets.GadgetInformation(Sub10EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub11EnfantsGadgetNom$ = Gadgets.GadgetInformation(Sub10EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub11EnfantsGadgetX.i = Gadgets.GadgetInformation(Sub11EnfantsGadgetNom$)\X
Sub11EnfantsGadgetY.i = Gadgets.GadgetInformation(Sub11EnfantsGadgetNom$)\Y
Sub11EnfantsGadgetLargeur.i = Gadgets.GadgetInformation(Sub11EnfantsGadgetNom$)\Largeur
Sub11EnfantsGadgetHauteur.i = Gadgets.GadgetInformation(Sub11EnfantsGadgetNom$)\Hauteur
Sub11EnfantsGadgetType$ = Gadgets.GadgetInformation(Sub11EnfantsGadgetNom$)\Type
Sub11EnfantsGadgetTexte$ = Gadgets.GadgetInformation(Sub11EnfantsGadgetNom$)\Texte
If ListSize(Gadgets.GadgetInformation(Sub11EnfantsGadgetNom$)\NomGadgetsEnfant()) = 0
EndIf
ForEach Gadgets.GadgetInformation(Sub11EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub12EnfantsGadgetNom$ = Gadgets.GadgetInformation(Sub11EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub12EnfantsGadgetX.i = Gadgets.GadgetInformation(Sub12EnfantsGadgetNom$)\X
Sub12EnfantsGadgetY.i = Gadgets.GadgetInformation(Sub12EnfantsGadgetNom$)\Y
Sub12EnfantsGadgetLargeur.i = Gadgets.GadgetInformation(Sub12EnfantsGadgetNom$)\Largeur
Sub12EnfantsGadgetHauteur.i = Gadgets.GadgetInformation(Sub12EnfantsGadgetNom$)\Hauteur
Sub12EnfantsGadgetType$ = Gadgets.GadgetInformation(Sub12EnfantsGadgetNom$)\Type
Sub12EnfantsGadgetTexte$ = Gadgets.GadgetInformation(Sub12EnfantsGadgetNom$)\Texte
If ListSize(Gadgets.GadgetInformation(Sub12EnfantsGadgetNom$)\NomGadgetsEnfant()) = 0
EndIf
ForEach Gadgets.GadgetInformation(Sub12EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub13EnfantsGadgetNom$ = Gadgets.GadgetInformation(Sub12EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub13EnfantsGadgetX.i = Gadgets.GadgetInformation(Sub13EnfantsGadgetNom$)\X
Sub13EnfantsGadgetY.i = Gadgets.GadgetInformation(Sub13EnfantsGadgetNom$)\Y
Sub13EnfantsGadgetLargeur.i = Gadgets.GadgetInformation(Sub13EnfantsGadgetNom$)\Largeur
Sub13EnfantsGadgetHauteur.i = Gadgets.GadgetInformation(Sub13EnfantsGadgetNom$)\Hauteur
Sub13EnfantsGadgetType$ = Gadgets.GadgetInformation(Sub13EnfantsGadgetNom$)\Type
Sub13EnfantsGadgetTexte$ = Gadgets.GadgetInformation(Sub13EnfantsGadgetNom$)\Texte
If ListSize(Gadgets.GadgetInformation(Sub13EnfantsGadgetNom$)\NomGadgetsEnfant()) = 0
EndIf
ForEach Gadgets.GadgetInformation(Sub13EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub14EnfantsGadgetNom$ = Gadgets.GadgetInformation(Sub13EnfantsGadgetNom$)\NomGadgetsEnfant()
Sub14EnfantsGadgetX.i = Gadgets.GadgetInformation(Sub14EnfantsGadgetNom$)\X
Sub14EnfantsGadgetY.i = Gadgets.GadgetInformation(Sub14EnfantsGadgetNom$)\Y
Sub14EnfantsGadgetLargeur.i = Gadgets.GadgetInformation(Sub14EnfantsGadgetNom$)\Largeur
Sub14EnfantsGadgetHauteur.i = Gadgets.GadgetInformation(Sub14EnfantsGadgetNom$)\Hauteur
Sub14EnfantsGadgetType$ = Gadgets.GadgetInformation(Sub14EnfantsGadgetNom$)\Type
Sub14EnfantsGadgetTexte$ = Gadgets.GadgetInformation(Sub14EnfantsGadgetNom$)\Texte
If ListSize(Gadgets.GadgetInformation(Sub14EnfantsGadgetNom$)\NomGadgetsEnfant()) = 0
EndIf
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
En sachant que certain gadget ont des enfants qui eux ont des enfants, etc.
Ex:
Code : Tout sélectionner
Papa
Enfant 1
Enfant 1
Enfant 2
Enfant 1
Enfant 2
Enfant 3
Enfant 1
Enfant 2
Enfant 1
Enfant 2
Enfant 3
Enfant 3
Enfant 3
Enfant 2
Enfant 1
Enfant 2
Enfant 3
Enfant 3
Enfant 1
Enfant 1
Enfant 2
Enfant 3
Enfant 2
Enfant 3
Je ne sais pas si je suis clair...