[Résolu] [Base] modif libellé avec bouton radio

[jcderchain]

Bonjour,
je souhaiterais que l'étiquette d'un champ étiquette change suivant le choix d'un groupe de bouton radio.
je suis sous XP avec OOo 3.0
Merci de votre assistance.

[Bidouille]

Bonsoir,

je suis sous XP avec OOo 3.0

Dans ce cas, mettez à jour votre signature :

OpenOffice 2.3 LINUX, Windows, FRAMAKEY

Ceci afin de ne pas égarer les gens qui vous répondront

[jcderchain]

Voilà c'est fait , j'ai modifié ma signature, mais personne n'a répondu à ma question.

Cordialement

[Pierre-Yves Samyn]

Bonjour

Voilà c'est fait , j'ai modifié ma signature, mais personne n'a répondu à ma question.

Voila, voila, je n'avais plus de lumière, une crevaison à réparer sur ma contrebasse et une corde à changer à mon vélo

Plusieurs possibilités... Par ailleurs tu n'indiques pas si les boutons radio sont "liés" à un champ de données ou non...
Bon, donc ci-joint un exemple de procédure assez courte :

Code : Tout sélectionner

option explicit

Sub PysAfficher

dim PysDoc as object, PysForm as object, PysEtiq as object, PysEnCours as object
dim PysValeurs()

PysDoc = thiscomponent											'le document courant
PysForm = PysDoc.drawpage.getforms().getbyname("MainForm")		'pointe sur le formulaire principal dans ce document
PysForm.getGroupByName("RadioGroup1", PysValeurs())				'recupere les objets boutons dans le tableau PysValeurs
PysEtiq = PysForm.getByName("AModifier")

for each PysEnCours in PysValeurs()								'parcours du tableau
	if PysEnCours.state = 1 then								'affecte le texte du bouton selectionne au ctrl etiquette 
		PysEtiq.label = PysEnCours.label
		exit for
	end if
next 

End Sub

[jcderchain]

Merci
c'est excatement ce que je voulais.