Plantage lors de manipulation de frames

Bonjour à tous !

J'ai un plantage sur un bout de code tout simple et je ne vois pas pourquoi...

Le contexte : j'ai une form avec 2 frames (Liste1 et Liste2). Je veux ajouter par code 1 frame à l'intérieur de chacune des frames. Voici un petit exemple très simplifié pour le forum :

    Dim obj_ligne1 As MSForms.Frame
    Dim obj_ligne2 As MSForms.Frame
    Dim frame_mere1 As MSForms.Frame
    Dim frame_mere2 As MSForms.Frame

    Set frame_mere1 = Me.Liste1
    Set obj_ligne1 = frame_mere1.Controls.Add("Forms.frame.1")

    Set frame_mere2 = Me.Liste2
    Set obj_ligne2 = frame_mere2.Controls.Add("Forms.frame.1")

Ce code fait planter Excel.

S'il n'y a qu'une seule frame (au lieu de 2) dans la form, il n'y a pas de pb !

Une idée ?

Ci-joint un petit exemple...

Bonjour,

Je ne suis pas très bon dans les créations dynamiques ...

Je préfère les créer manuellement et utiliser l'option Visible/Masqué ...

Mais cela est au goût > voici donc un essai ...

Si l'on n'a pas de Frame dans le Userform et que l'on veut créer les 4 frames ...

ric

C'est exactement ce que j'ai fini par faire car je me suis aperçu qu'en créant les listes 'mères' en mode design, le plantage se faisait systématiquement.

Merci pour tes recherches et pour ton temps !
J'apprécie.