[Résolu][Writer] Afficher réponse selon commande OUI/NON

[eylone]

Bonjour

une personne du forum m'a gentimment fait cette macro (ce sujet) mais j'y connais pas grand chose
et j'en aurait vraiment besoin pour mon association qui gère les enfants invalides

en gros sur cette macro j aimerai que se soit le non qui affiche un texte et le oui n'affiche rien

donc ma question : quelqu'un peut il m'expliquer comment modifier cette macro pour inverser et surtout comment reproduire la macro sur plusieurs ligne

je vous remercie beaucoup d'avance

[micmac]

Bonjour,

Cette section a des règles très précises que vous devez obligatoirement suivre pour obtenir de l'aide. C'est indiqué dans le cadre rouge en haut de la page.

Il est demandé aux auteurs de faire précéder le titre de leur question d'une balise adéquate. Ce balisage est extrêmement important car il permet d'avoir une base de connaissance optimum en cas de recherche.
Avez-vous remarqué comment étaient postées les autres questions ?

Lisez ce fil pour savoir quelle balise utiliser : https://forum.openoffice.org/fr/forum/s ... html#27295

N'oubliez pas que le terme "Macro" ou "OpenOffice" ne doivent pas être employés car il sont implicites. Essayez de synthétiser au mieux ce que vous cherchez à faire.

Un titre accrocheur vous permettra d'une part d'être aidé plus rapidement et d'autre part, d'enrichir notre base de connaissances.

Nous l'avons fait pour vous cette fois-ci mais lors de votre prochaine question, nous vous remercions de le faire vous-même sous peine de voir votre sujet verrouillé.


Le titre de votre question n'est pas assez explicite ou ne reflète pas le problème que vous décrivez :
<modification de macro>
Nous l'avons donc modifié. En effet, lors d'une recherche, ce sujet risquait de passer inaperçu et donc de ne pas aider d'autres personnes ayant le même problème que vous. Des termes implicites comme macro, aide, problème ou OpenOffice n'ont pas besoin d'être mentionnés.

Voici quelques astuces pour avoir un titre optimum : https://forum.openoffice.org/fr/forum/v ... 1002#p1002

La prochaine fois, pensez à bien choisir les termes du titre de votre question. N'oubliez pas qu'un titre clair et précis augmente vos chances d'obtenir des réponses plus rapidement.

Merci de votre collaboration

[Piaf]

Bonjour
Les boutons radio Oui ou Non d'une même question ont le même nom.
A chaque groupe de boutons correspond une section.

Code : Tout sélectionner

Select Case oEv.Source.Model.Name

récupère le nom du bouton sur lequel on clique.
selon le nom, on défini la section correspondante

Code : Tout sélectionner

Case "br1"
	maSection = lesSections.getByName("Fable")

On récupère l'étiquette (le texte affiché) du bouton qui change de statut.
Si l'étiquette est Oui, on affiche la section, si c'est Non on la masque.

Code : Tout sélectionner

If oEv.Source.Model.Label = "Oui" Then
	oForm.getByName("CorRen").ImageURL = ConvertToURL(Chemin & "le corbeau et le renard.jpg")
	maSection.IsVisible = True
Else
	maSection.IsVisible = False
End If

Pour inverser l'affichage, il suffit de mettre Non à la place du Oui > oEv.Source.Model.Label = "Non" Then
Tu gardes le même principe pour chaque question que tu ajoutes.
A+

[eylone]

Genial merci a vous j arrive a modifier ma macro comme je voulais vous etes au top

Derniere petite question

Si j ajoute une nouvelle question comme lui appliquer la macro
J ai bien compris que les deux premieres sont nommes case "br2" mais comment creer une case br3 par exemple

[ThierryT]

Bonjour,

Voir une explication dans le fichier joint.

[Piaf]

Re
Pour la fable, le nom des boutons est br1 (bouton radio question 1 original non ? )
Pour AOO br2.
en suivant le principe, pour la question suivante, tu sélectionnes deux boutons radio

BR.png

que tu nommes br3.

br3.png

Tu tapes le texte voulu, tu créé la section, tu ajoutes les lignes de code dans la macro

Code : Tout sélectionner

Case "br3"
	maSection = lesSections.getByName("Trois")
	If oEv.Source.Model.Label = "Non" Then
		maSection.IsVisible = True
	Else
		maSection.IsVisible = False
	End If

Dans l'onglet Evènements des propriétés de chaque bouton tu affectes la macro à l’événement Statut modifié.
A+

[luky-luke]

Bonjour
On peut aussi utilisé une case à cocher :

Case à cocher.png

CaseDécochée.png

Code : Tout sélectionner

Sub Afficher(oEv as Object)
Dim oDoc as Object, lesSections as Object, oForm as Object
	oDoc = thisComponent
	Chemin = getDirectory(oDoc.URL)
	oForm = oDoc.DrawPage.Forms.GetByName("Formulaire")
	lesSections = oDoc.TextSections
	Select Case oEv.Source.Model.Name
		Case "br1"
			maSection = lesSections.getByName("Fable")
			If oEv.Source.Model.state = 0 Then
				oForm.getByName("CorRen").ImageURL = ConvertToURL(Chemin & "le corbeau et le renard.jpg")
				maSection.IsVisible = True
			Else
				maSection.IsVisible = False
			End If
		Case "br2"
			maSection = lesSections.getByName("AOO")
			If oEv.Source.Model.state = 0 Then
				maSection.IsVisible = True
			Else
				maSection.IsVisible = False
			End If					
	End Select		
End Sub

Cordialement
Luke

[Piaf]

Bonjour

On peut aussi utilisé une case à cocher :

Ben Oui mais alors il faut changer le titre du fi
OK

[eylone]

Merci a vous de me repondre les gars
J ai essaye mais bug de la macro direct je suis pas doue
Rien que mettre les boutons j ai mis 20 mn par bouton lol
J ai environ 60 questions a mettre dedans et seulement 2 fonctionnent bien si une ame charitable peut prendre le temps de m aider ca serait au top quitte a etre remunere

[Piaf]

Bonsoir
La structure du questionnaire sans mise en forme.

Questionnaire.png

Tu as 60 questions donc 60 sections.
A priori la macro fonctionne sur tous les boutons radio.
J'ai changé la macro, parce que 60 case

Code : Tout sélectionner

Sub Afficher(oEv as Object)
Dim oDoc as Object, lesSections as Object, oForm as Object
Dim Fenetre As Object
	oDoc = thisComponent
	Chemin = getDirectory(oDoc.URL)
	oForm = oDoc.DrawPage.Forms.GetByName("Formulaire")
	lesSections = oDoc.TextSections
	Num = Mid(oEv.Source.Model.Name,3)
	maSection = lesSections.getByName("Q" & Num)
	If oEv.Source.Model.Label = "Non" Then
		maSection.IsVisible = True
	Else
		maSection.IsVisible = False
	End If
	Fenetre = ThisComponent.CurrentController.Frame.ContainerWindow
	Fenetre.setFocus	
End Sub

Bon courage pour remplir les sections
A+

[eylone]

Un grand et énorme merci a vous tous et notamment a toi piaf

c 'est exactement ce que je recherchais à faire mais sans succès