 | Start a set with this search |
 | Include this search in one of my sets |
 | Exclude this search from one of my sets |
 | Permalink to these results Paste this link in email or IM: |
 | Atom feed for tracking future search results Paste this URL into your reader: |
13 messages in org.openoffice.fr.progRe: [prog] valeur des boutons radio| From | Sent On | Attachments |
|---|---|---|
| Arnaud POUSSIER | May 9, 2005 5:44 am | |
| f.maneuvrier | May 9, 2005 6:11 am | |
| Arnaud POUSSIER | May 9, 2005 6:21 am | |
| will...@free.fr | May 9, 2005 6:38 am | |
| Francois Gatto (xhydrogene) | May 9, 2005 12:25 pm | |
| will...@free.fr | May 10, 2005 12:14 am | |
| Thomas Coquery | May 10, 2005 3:03 am | |
| Thomas Coquery | May 10, 2005 7:41 am | |
| Francois Gatto (xhydrogene) | May 10, 2005 10:27 am | |
| will...@free.fr | May 10, 2005 11:42 pm | |
| Jovial | May 11, 2005 2:32 am | |
| will...@free.fr | May 11, 2005 5:54 am | |
| Jovial | May 11, 2005 10:04 am |
| Permalink for this message Paste this link in email or IM: |
| Permalink for this thread Paste this link in email or IM: |
| Atom feed for this thread Paste this URL into your reader: |
| Subject: | Re: [prog] valeur des boutons radio | Actions... |
|---|---|---|
| From: | Jovial (o.jo...@free.fr) | |
| Date: | May 11, 2005 10:04:13 am | |
| List: | org.openoffice.fr.prog | |
Ok tu veux traiter par programmation
Commence par créer 3 boutons radio avec la zone groupe (et non pas le bouton radio), cela te lance un auto pilote, défini dedans 3 nom de label, la bascule des bouton se fait automatiquement Ensuite 2 cas de figure 1 - tu veux lancer une macro lorsque tu cliques sur un choix dans cas assigne cette macro à Chaque bouton radio Pour sélectionner un bouton radio dans la zone de groupe apuie d'abors sur Ctrl Sub ChoixActionnee(Evenement as object) oControl=Evenement.source 'defini le controle qui appelle la macro print oControl.model.label, oControl.model.tag End Sub
2 - tu veux connaître quel choix est sélectionné: affecte cette macro à un bouton simple
Sub OptionSelect dim choix as object MonDocument = ThisComponent 'Sélectionne le document en cours MaFeuille = MonDocument.CurrentController.ActiveSheet ' sélectionne la feuille activée DrawPage = MaFeuille.DrawPage 'sélectionne la page des contrôles formulaire Form = DrawPage.Forms.GetByIndex(0) 'Control = MaForm.getByName("FM1") Form.getGroupByName("RadioGroup1", Choix())
for x = 0 to UBound(Choix()) With Choix(x) ' .tag est le complément d'information if .State = 1 then print .Label, x+1, .Tag End With next End Sub
will...@free.fr a écrit :
bonjour,
si je comprends bien : je crée mes 3 boutons avec le même nom pour qu'ils soient "liées", ensuite, par le code, je récupère le "numéro" du bouton activé grâce à .state par exemple... si c'est bien ça, ça ne marche pas avec ma version 1.1.4 car si le premier bouton est activé alors monBouton.state a la valeur 1 (normal jusque là) mais si je sélectionne un des deux autres boutons, la valeur est 0.
moi ce que je voudrais faire c'est quelque chose du genre :
if monBoutonRadio.state = 1 then 'faire quelque chose elseif monBoutonRadio.state = 2 then 'faire autre chose else monBoutonRadio.state = 3 'faire encore autre chose end if
mais à la base, ma première idée était de faire avec une cellule liée :
if maCelluleLiee.value = 1 then ' faire quelque chose elseif maCelluleLiee.value = 2 then ..... etc
voilà, j'espère que c'est plus clair. sinon, j'ai liée chaque bouton à une celulle différente et ça marche très bien. j'aurais juste souhaité passer par une seule cellule ou par aucune comme vous l'avez fait remarquer...
Merci pour votre intérêt,
William Gotti