Multipage et Userform

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:

---

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.

Bonjour,

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

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 ?

Code:

---

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à

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

Par exemple sous lazarus ça donne ça :

Citation:

---

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...

Citation:

---

Envoyé par 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

---

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

Code:

---

dim uneForms as Variant

---

Non ça ne marche pas, ça me met "chaîne de classe incorrecte" au niveau du "add(uneforms)"

bonjour


il faudrait peut etre savoir de quoi on parle quand on ajoute un control


pour rapel d'info:

variant = string et long selon le contexte
long=pour des variables numerique
object= controls

au plaisir

je comprends bien mais la je suis bloqué...
j'ai deux userform que j'ai dessiné moi meme, un frmun et un autre frmdeux et je voudrai que dans mon multipage, situé sur frmun, ajouter sur chaque mon frmdeux et ça je n'y arrive pas si quelqu'un a deja fait ça ç m'aiderai beaucoup...

Merci

bonjour

je ne comprend pas très bien
tu veux ajouter ton usf2 dans chaque page du usf1???!!!!!

je crains fort que tu prenne un chemin sans issue

bien q'uil soit possible t'apparenter deux userform par la fonction setparent
a mon avis il y a bien d'autre solutions bien moins lourdes et plus faciles

enfin essaie de donner plus de précisions car la je ne comprend pas très bien


au plaisir

Voila j'ai des controles identiques qui vont se répéter x fois, pour ça je créé un userform ou j'ai mes controles dessus par exemple, nom de la piece, surface et perimetre.
Dans mon autre userform j'ai un multipage avec un bouton, quand je clique sur le bouton je veux rajouter une page (une piece quoi, avec les memes informations)...
Sous lazarus ça ne me pose pas de problemes mais en vba je ne connais pas du tout et je n'arrive pas a le faire, je n'ai pas la moindre idée de piste pour pouvoir le faire

Bon j'ai fini par utiliser un module de classe avec mes controls dedans que je créer dynamiquement. Je ne sais pas si c'est possible comme je voulais faire mais bon au final le resultat est le meme.