Discussion :

[MoonZulu]

Bonjour à tous et à toutes !

Je n'ai pas eu de réponse à ce sujet sur le forum de PCSoft, c'est pourquoi je laisse un message sur celui-ci.

Je veux initialiser un arbre à partir de données issus d’un champ liste multi-sélections. Voir descriptif ici.

http://forum.pcsoft.fr/thread.awp?gr...=2#entry287678

Je souhaiterai avoir le résultat suivant dans le champ Arbre :

Activités
(+/-)Nom de la première activité
(+/-)Intervenant(s)
Michèle TRUC
Léo MACHIN
Virginie CHOSE
(+/-)Nom de la deuxième activité
(+/-)Intervenant(s)
…
Hors, j’obtiens ceci :
Activités
(+/-)Nom de la première activité
(+/-)Intervenant(s)
Michèle TRUCLéo MACHINVirginie CHOSE
(+/-)Nom de la deuxième activité
(+/-)Intervenant(s)
…
Le retour chariot n’est pas pris en compte lors de l’initialisation du champ Arbre. A vrai dire, je ne sais pas si cela est possible. Je souhaite tout simplement convertir les RC en TAB.

Voici le code utilisé dans le champ arbre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ArbreAjoute(ARBRE_ActiviteJournaliereMatinee,"Activités" +TAB+ ActiviteJournaliere.NomActivite +TAB+ "Intervenant(s)" +TAB+ ActiviteJournaliere.Intervenant)

Merci d’avance pour votre aide précieuse.
Joseph Emmanuel

[mail.spam]

Bonjour,
Si tu veux convertir les RC en TAB, tu peux utiliser la fonction remplace.
Bonne lecture

[MoonZulu]

Bonjour mail.spam !

Merci infiniment d'avoir pris le temps de répondre à mon message. En utilisant la fonction remplace, j'obtiens ceci :

Activités
(+/-)Nom de la première activité
(+/-)Intervenant(s)
(+/-)Michèle TRUC
(+/-)Léo MACHIN
(+/-)Virginie CHOSE
(-)
(+/-)Nom de la deuxième activité
(+/-)Intervenant(s)
…

Hors, je souhaiterai que l'identité de chaque intervenant soit la feuille de "Intervenant(s)". Cette présentation me semble plus lisible pour l'utilisateur final.

Dans l'attente d'une réponse de votre part, je vous souhaite une agréable fin de journée.
Joseph Emmanuel

[laurent30s]

Il faudrait peut-être que du donne ton code pour remplir l'arbre pour qu'on puisse te conseiller...

[MoonZulu]

Bonsoir Laurent !

Voici une partie du code pour initialiser le champ arbre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
...
ChaîneInitiale est une chaîne = ActiviteJournaliere.Intervenant
ChaîneRemplacée est une chaîne = Remplace(ActiviteJournaliere.Intervenant,RC,TAB)
 
SI HTrouve(ActiviteJournaliere) ALORS
	POUR TOUT ActiviteJournaliere
		ArbreAjoute(ARBRE_ActiviteJournaliereMatinee,"Activités" +TAB+ ActiviteJournaliere.NomActivite +TAB+ "Intervenant(s)" +TAB+ ChaîneRemplacée)
 
                ArbreDérouleTout(ARBRE_ActiviteJournaliereMatinee)
        FIN
FIN
...

J'espère que cette partie de code vous permettra de m'éclairer sur le problème que j'essaie de résoudre.

Dans l'attente d'une réponse de votre part, je vous souhaite une bonne soirée.
Joseph Emmanuel

[laurent30s]

Peux-tu me confirmer que j'ai bien compris ce qu'il y a dans ActiviteJournaliere.Intervenant.
Est-ce bien la liste des intervenant séparés par un RC ?

[laurent30s]

Ne voyant pas de réponse de ta part je poursuis dans l’hypothèse où ActiviteJournaliere.Intervenant contient la liste des intervenants séparés par un RC.

Dans ce cas ton code a plusieurs problèmes.

Tout d'abord, le fait de faire
ChaîneRemplacée est une chaîne = Remplace(ActiviteJournaliere.Intervenant,RC,TAB)
avant la boucle fait que tu auras la même liste d'intervenant quelque soit l'activité journalière

Ensuite dans ArbreAjoute() ChaîneRemplacée contenant la liste des intervenants séparés par des TAB chaque intervenant sera la feuille de l'intervenant le précédent dans la liste.

Enfin, ce n'est pas le plus grave, il n'est pas utile de faire un ArbreDérouleTout() après chaque ajout dans l'arbre.
Il est préférable de le faire après que l'arbre est complètement rempli.

Ce qui donne, en espérant avoir bien compris le contexte...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
nNb_intervenant est un entier
i est un entier
SI HTrouve(ActiviteJournaliere) ALORS
	POUR TOUT ActiviteJournaliere
		nNb_intervenant = ChaîneOccurrence(ActiviteJournaliere.Intervenant,RC) + 1		// le + 1 seulement si ActiviteJournaliere.Intervenant ne se termine pas par un RC
		POUR i = 1 A nNb_intervenant
			ArbreAjoute(ARBRE_ActiviteJournaliereMatinee,"Activités" +TAB+ ActiviteJournaliere.NomActivite +TAB+ "Intervenant(s)" +TAB+ExtraitChaîne(ActiviteJournaliere.Intervenant,i,RC))
		FIN	
	FIN
FIN
ArbreDérouleTout(ARBRE_ActiviteJournaliereMatinee)

[MoonZulu]

Bonjour Laurent !

Merci ,merci et encore merci de votre aide. Mon problème est résolu ! Il ne me reste plus qu'à décortiquer ce code pour me l'approprier.

Je vous souhaite une excellente journée.
Joseph Emmanuel