Discussion :

[koolkris]

Bonjour,

J'aimerai ajouter, sur ma page de mon controle multipage, un userform que j'ai créer au prealable. En fait j'ai 10 fois le meme userform sur 10 pages différentes et je voudrai l'ajouter de façon dynamique sur chaque page.

j'arrive a ajouter un userform sur la page par cette commande

Code :

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

1
2
3
 
dim tab as control
set tab = MonMultipage.pages(0).controls.add("Forms.frame.1")

Mais je ne sais pas comment ajouter a la place d'un userform vide, le userform que j'ai crée.

Merci, en éspérant avoir ete assez clair.

[NEC14]

Bonjour,

Tu sélectionnes ton UF copier et coller sur chacune de tes feuilles.

[koolkris]

Merci bien

Par contre dans le cas ou je veux rajouter des pages dynamiquement, ajouter une page ça je sais faire mais comment puis je faire pour ajouter le userform en meme temps ?

[Golork]

Code :

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

1
2
3
4
5
6
Dim tab_form As Variant
dim uneForms as string
tab_form = Array("maForms1", "maForms2", "maForms3")
for each uneForms in tab_form
    set tab = MonMultipage.pages(0).controls.add(uneForms)
next

un truc dans ce genre là

[koolkris]

Non ça ne marche pas, j'ai une erreur au niveau du for each qui n'accepte que du variant ou un objet.

Je pense qu'il y en aura aussi avec la methode add et le passage de la chaine de caractere

[koolkris]

Par exemple sous lazarus ça donne ça :

var montableau : array of monuserform
for i := 0 to monmultipage.count - 1
begin
setlength(montableau, i+1)
montableau[i] := monuserform.Create(monmultipage.mapage[i])
montableau[i].parent := monmultipage.mapages[i]
end

et avec ça j'arrive a créer mon userform "predessiné" sur un onglet dynamiquement.
et en fait j'aimerai faire l'equivalent en vba mais je tourne en rond... j'ai essayé de chercher la propriete parent sur monuserform en vba mais je ne la trouve pas...

[Golork]

Non ça ne marche pas, j'ai une erreur au niveau du for each qui n'accepte que du variant ou un objet.

Je pense qu'il y en aura aussi avec la methode add et le passage de la chaine de caractere

Ah oui désolé j'ai oublié remplace par ceci

Code :

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

dim uneForms as Variant