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

[koolkris]

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

[patricktoulon]

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

[koolkris]

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

[patricktoulon]

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

[koolkris]

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

[koolkris]

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.