[Résolu][Writer] affichage section selon choix zone de liste

[petite jiji]

Bonjour à tous,

Je souhaite créer un formulaire sous writer du type "questionnaire".
J'ai pu créer le formulaire grâce aux différents tuto que j'ai pu trouver (merci aux concepteurs !!)
Je voudrais maintenant créer un questionnaire un peu plus dynamique en faisant apparaître ou disparaître des parties de mon questionnaire en fonction des réponses.
Exemple :
réponse A de la zone de liste = apparition zone de texte A
réponse B de la même zone de liste = apparition zone de texte B
réponse C de la même zone de liste = apparition du texte C

J'ai pu trouver une macro qui répond à mon besoin mais le choix des réponses est fait à partir d'un bouton "oui" et "non".

En fait, je souhaite faire la même chose à partir d'une zone de liste. Je ne sais pas si c'est possible...
Pour être totalement claire dans mes explications, je joins un exemple.

Merci pour votre aide... et j'espère pouvoir bientôt vous aider à mon tour.....

[Piaf]

Bonjour et bienvenue sur le Forum
un petit exemple.

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.CurrentValue
			Case "le Corbeau et le Renard"
				oForm.getByName("CorRen").ImageURL = ConvertToURL(Chemin & "le corbeau et le renard.jpg")
				lesSections.getByName("Fable").IsVisible = True
				lesSections.getByName("AOO").IsVisible = False
			Case "Apache open office"
				lesSections.getByName("AOO").IsVisible = True
				lesSections.getByName("Fable").IsVisible = False
			Case "rien"
				lesSections.getByName("AOO").IsVisible = False
				lesSections.getByName("Fable").IsVisible = False					
		End Select							
End Sub

A+

[petite jiji]

Re-bonjour,

C'est super, c'est exactement ce qu'il me fallait.....tout ça avec la rapidité de l'éclair....
Maintenant je vois d'ou venait mes erreurs....

Merci beaucoup Piaf et à très bientôt

[toucan]

Bonjour et bienvenue,

Il semble que votre question ait trouvé une solution. Il est alors de bon ton d'ajouter dans le titre du premier message la balise [Résolu]. Ceci augmente la lisibilité du forum. Vous vous en êtes sûrement rendu compte en parcourant les différents fils de discussion.

Nous l'avons fait à votre place mais la prochaine fois, nous vous prions de le faire.

Merci de respecter la syntaxe [Résolu] : entre crochets, avec un R majuscule et un é. Cette balise est à placer au début du titre. Il faut également cocher la case de l'icône de sujet (le V vert).

Suivez ce sujet pour savoir comment procéder : https://forum.openoffice.org/fr/forum/ftopic3299.html

Merci de votre collaboration pour nous faciliter le travail de modération de ce forum.

Si nous avons fait une erreur, il vous suffit d'enlever de la même manière la balise. Il vous faudra bien sûr donner suite aux réponses proposées.

[dyscus]

Bonsoir,

Je me permets de rebondir sur ce fil avec quelques questions.

Concernant le post de Piaf :

Comment éditer le texte de la liste déroulante ?

Comment rajouter des sections supplémentaire ?

Je souhaiterai insérer dans la liste déroulante des chiffres allant de 1 à 6 avec pour chacun un texte différent.

Merci par avance de votre aide.

[micmac]

Bonjour,

Nous nous devons de verrouiller ce fil de discussion datant du 21 Oct 2016. Nous vous rappelons les règles de ce forum et notamment la règle n° 7
Un sujet = le problème d'une seule personne

Comme vous avez pu le lire, ce sujet est désormais résolu. Si vous avez également ce problème, c'est que ce dernier est différent. Votre configuration n'est peut être pas la même que celle de l'auteur de ce fil.

Dans ce cas et pour des raisons de lisibilité sur ce forum, nous vous demandons de créer une nouvelle question en rappelant que vous avez le même problème que dans ce fil (avec un lien vers vers celui-ci).

Merci de votre collaboration.