[prog] Réf. : Re: [prog] Réf. : [prog] Créer une section incluan t des contrôles de formulaires ?

[Françoise]

Bonjour Manuel   Merci beaucoup de m'avoir aidé, je suis vraiment novice et je n'aurais pas trouvé les erreurs sans votre intervention.   En ce qui concerne le rajout d'éléments dans la listBox il y a un tuto juste ici  http://fr.openoffice.org/Documentation/Macros/indexmac.html     Je remets la macro corrigée si jamais quelqu'un en aurait besoin :   Option Explicit  Sub creation_controle  'Attention aux coupures par la messagerie au niveau des signes =  '****** creer un controle ********  'créer une forme pour le controle   dim MonDocument as object   Dim MonTexte as object   dim oSource as object   dim oConnexion as object   MonDocument = ThisComponent     Dim Ctl2Shape as object   Ctl2Shape = MonDocument.createInstance("com.sun.star.drawing.ControlShape")     Dim Taille As New com.sun.star.awt.Size   Taille.Width = 3500   Taille.Height = 700   Ctl2Shape.Size = Taille     'crée un modèle de controle, ici une listbox   dim ModeleCtl2 as object   ModeleCtl2 = MonDocument.createInstance("com.sun.star.form.component.ListBox")    ModeleCtl2.Border = 1   ModeleCtl2.Name = "MaListbox"   ModeleCtl2. BackgroundColor = 65200     'lier modèle et forme   Ctl2Shape.setControl(ModeleCtl2)     'insérer la forme à la fin de la page de dessin du document Writer   Dim MonCurseur   MonCurseur=MonDocument.Text.createTextCursor   MonCurseur.gotoEnd(false)   MonTexte = MonDocument.Text   MonTexte.insertTextContent( MonCurseur, Ctl2Shape, false)    End Sub   Encore merci :) Françoise   -------Message original-------   De : Manuel NAUDIN Date : 17/09/2006 14:36:20 A : prog@fr.openoffice.org Sujet : Re: [prog] Réf. : [prog] Créer une section incluant des contrôles de formulaires ?   bonjour,   Le 17/09/06, Françoise<[EMAIL PROTECTED]> a écrit : > > > > Bonjour à tous, > > N'y a-t-il vraiment personne pour m'aider ? > > En cherchant j'ai trouvé cette macro de Agnès Simonet, mais elle ne > fonctionne pas sous OOo 2.0.3 il y a deux erreurs : > >  Option Explicit > Sub creation_controle > 'Attention aux coupures par la messagerie au niveau des signes = > '****** creer un controle ******** > 'créer une forme pour le controle >  dim MonDocument as object >  Dim MonTexte as object >  dim oSource as object >  dim oConnexion as object >  MonDocument = ThisComponent > >  Dim Ctl2Shape as object >  Ctl2Shape = > MonDocument.createInstance("com.sun.star.drawing.ControlShape") > >  Dim Taille As New com.sun.star.awt.Size >  Taille.Width = 1000 >  Taille.Height = 800 >  Ctl2Shape.Size = Taille > >  'crée un modèle de controle, ici une listbox >  dim ModeleControle as object 'supprimer la ligne précédente 'rajouter dim ModeleCtl2 as object >  ModeleCtl2 = > MonDocument.createInstance("com.sun.star.form.component.ListBox") > XRay.XRay ModeleCtl2 >  ModeleCtl2.Border = 1 >  ModeleCtl2.Name = "MaListbox" >  ModeleCtl2. BackgroundColor = 65200 > >  'lier modèle et forme >  Ctl2Shape.setControl(ModeleCtl2) > >  'insérer la forme à la fin de la page de dessin du document Writer >  Dim MonCurseur >  MonCurseur=MonDocument.Text.createTextCursor >  MonCurseur.gotoEnd(false) 'rajouter MonTexte = MonDocument.Text >  MonTexte.insertTextContent( MonCurseur, Ctl2Shape, false) > > End Sub > par contre la zone de liste créée ne contient aucun élément   Manuel   --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]