pcsoft.fr.windevCopyright 2026, PC SOFT12 Jul 2019 11:48:26 Z11 Jul 2019 16:34:29 ZBonjour, j’essaie de mettre en place une liste de produits dans un champs RTF en formatant celle-ci Or après plusieurs heures de recherche avec toutes les fonctions RTF connues, je n'arrive à ce que je veux : Voici le résultat que j'aimerais avoir en pièce jointe : https://drive.google.com/open?id=1laN4hjnkbAeIk6kuVHRQJF8phHn8yyEz Pour le code : * 1 Code Principal déclenché d'un bouton * 1 Fonction pour le formatage des Entêtes * 1 Fonction pour le Formatage des Valeurs Code Bouton [code:wl] //** Déclaration des Variables ** St_UnAccessoire est un Gp_TypS_LigneCmdeAccessoiresPose Tab_MesAccessoires est un tableau de Gp_TypS_LigneCmdeAccessoiresPose Ch_MaListe est une chaîne = RC //** En formatant comme cela on sautera obligatoirement 2 lignes ** Ch_TypePolice est une chaîne i est un entier j est un entier Ch_ChaineRecap est une chaîne = "" Ch_LigneAccessoire est une chaîne Ent_PositionValeur est un entier Ent_LongueurValeur est une entier Ch_ValeurTexteEnCours est une chaîne Ch_ValeurEntete_Ref est une chaîne = "Réf : " Ch_ValeurEntete_Libelle est une chaîne = "Libellé : " Ch_ValeurEntete_Qte est une chaîne = " Qté : " Ch_ValeurEntete_Condit est une chaîne = "Condit : " Ch_ValeurEntete_Longueur est une chaîne = "Lg : " //** Création des Articles dans mon tableau normalement issu d'une fenêtre annexe mais pour test, on les valide dans le code ** POUR j = 1 À 5 PAS 1 St_UnAccessoire.MemStr_Ch_RefAcc = "REF " + j St_UnAccessoire.MemStr_Ch_LibelleAcc = "ARTICLE " + j St_UnAccessoire.MemStr_Num_QteAcc = j SELON EstPair(j) CAS Vrai : St_UnAccessoire.MemStr_Ch_Conditionnement = "U" St_UnAccessoire.MemStr_Ent_LongueurAcc = 0 CAS Faux : St_UnAccessoire.MemStr_Ch_Conditionnement = "ML" St_UnAccessoire.MemStr_Ent_LongueurAcc = j * 1000 FIN //** Ajout dans le tableau ** TableauAjoute(Tab_MesAccessoires,St_UnAccessoire) FIN //** On parcours tous les accessoires ** POUR TOUT St_UnAccessoire DE Tab_MesAccessoires //************************************************************************** //** Ajout et récupération des éléments de positionnement de l'entête REF ** //************************************************************************** Ch_ValeurTexteEnCours = Ch_ValeurEntete_Ref RTFAjoute(TxtChampRTF,Ch_ValeurTexteEnCours) Ent_LongueurValeur = Taille(TxtChampRTF) Ent_PositionValeur = RTFRecherche(TxtChampRTF,Ch_ValeurTexteEnCours) Ent_LongueurValeur = Taille(Ch_ValeurTexteEnCours) //** Ensuite je sélectionne pour mettre en Forme les entêtes ** ProcL_FormateEntete(Ent_PositionValeur,Ent_LongueurValeur) //*************************************************************************** //** Ajout et récupération des éléments de positionnement de la Valeur REF ** //*************************************************************************** Ch_ValeurTexteEnCours = St_UnAccessoire.MemStr_Ch_RefAcc RTFAjoute(TxtChampRTF,Ch_ValeurTexteEnCours + TAB + TAB) Ent_LongueurValeur = Taille(TxtChampRTF) Ent_PositionValeur = RTFRecherche(TxtChampRTF,Ch_ValeurTexteEnCours) Ent_LongueurValeur = Taille(Ch_ValeurTexteEnCours) //** Ensuite je sélectionne pour mettre en Forme les Valeurs ** ProcL_FormateValeur(Ent_PositionValeur,Ent_LongueurValeur) //****************************************************************************** //** Ajout et récupération des éléments de positionnement de l'entête LIBELLE ** //****************************************************************************** Ch_ValeurTexteEnCours = Ch_ValeurEntete_Libelle RTFAjoute(TxtChampRTF,Ch_ValeurTexteEnCours) Ent_LongueurValeur = Taille(TxtChampRTF) Ent_PositionValeur = RTFRecherche(TxtChampRTF,Ch_ValeurTexteEnCours) Ent_LongueurValeur = Taille(Ch_ValeurTexteEnCours) //** Ensuite je sélectionne pour mettre en Forme les entêtes ** ProcL_FormateEntete(Ent_PositionValeur,Ent_LongueurValeur) //******************************************************************************* //** Ajout et récupération des éléments de positionnement de la Valeur LIBELLE ** //******************************************************************************* Ch_ValeurTexteEnCours = St_UnAccessoire.MemStr_Ch_LibelleAcc RTFAjoute(TxtChampRTF,Ch_ValeurTexteEnCours + TAB + TAB) Ent_LongueurValeur = Taille(TxtChampRTF) Ent_PositionValeur = RTFRecherche(TxtChampRTF,Ch_ValeurTexteEnCours) Ent_LongueurValeur = Taille(Ch_ValeurTexteEnCours) //** Ensuite je sélectionne pour mettre en Forme les Valeurs ** ProcL_FormateValeur(Ent_PositionValeur,Ent_LongueurValeur) //************************************************************************** //** Ajout et récupération des éléments de positionnement de l'entête QTE ** //************************************************************************** Ch_ValeurTexteEnCours = Ch_ValeurEntete_Qte RTFAjoute(TxtChampRTF,Ch_ValeurTexteEnCours) Ent_LongueurValeur = Taille(TxtChampRTF) Ent_PositionValeur = RTFRecherche(TxtChampRTF,Ch_ValeurTexteEnCours) Ent_LongueurValeur = Taille(Ch_ValeurTexteEnCours) //** Ensuite je sélectionne pour mettre en Forme les entêtes ** ProcL_FormateEntete(Ent_PositionValeur,Ent_LongueurValeur) //*************************************************************************** //** Ajout et récupération des éléments de positionnement de la Valeur QTE ** //*************************************************************************** Ch_ValeurTexteEnCours = St_UnAccessoire.MemStr_Num_QteAcc RTFAjoute(TxtChampRTF,Ch_ValeurTexteEnCours + TAB + TAB) Ent_LongueurValeur = Taille(TxtChampRTF) Ent_PositionValeur = RTFRecherche(TxtChampRTF,Ch_ValeurTexteEnCours) Ent_LongueurValeur = Taille(Ch_ValeurTexteEnCours) //** Ensuite je sélectionne pour mettre en Forme les Valeurs ** ProcL_FormateValeur(Ent_PositionValeur,Ent_LongueurValeur) //***************************************************************************** //** Ajout et récupération des éléments de positionnement de l'entête CONDIT ** //***************************************************************************** Ch_ValeurTexteEnCours = Ch_ValeurEntete_Condit RTFAjoute(TxtChampRTF,Ch_ValeurTexteEnCours) Ent_LongueurValeur = Taille(TxtChampRTF) Ent_PositionValeur = RTFRecherche(TxtChampRTF,Ch_ValeurTexteEnCours) Ent_LongueurValeur = Taille(Ch_ValeurTexteEnCours) //** Ensuite je sélectionne pour mettre en Forme les entêtes ** ProcL_FormateEntete(Ent_PositionValeur,Ent_LongueurValeur) //****************************************************************************** //** Ajout et récupération des éléments de positionnement de la Valeur CONDIT ** //****************************************************************************** Ch_ValeurTexteEnCours = St_UnAccessoire.MemStr_Ch_Conditionnement RTFAjoute(TxtChampRTF,Ch_ValeurTexteEnCours + TAB + TAB) Ent_LongueurValeur = Taille(TxtChampRTF) Ent_PositionValeur = RTFRecherche(TxtChampRTF,Ch_ValeurTexteEnCours) Ent_LongueurValeur = Taille(Ch_ValeurTexteEnCours) //** Ensuite je sélectionne pour mettre en Forme les Valeurs ** ProcL_FormateValeur(Ent_PositionValeur,Ent_LongueurValeur) //******************************************************************************* //** Ajout et récupération des éléments de positionnement de l'entête LONGUEUR ** //******************************************************************************* Ch_ValeurTexteEnCours = Ch_ValeurEntete_Longueur RTFAjoute(TxtChampRTF,Ch_ValeurTexteEnCours) Ent_LongueurValeur = Taille(TxtChampRTF) Ent_PositionValeur = RTFRecherche(TxtChampRTF,Ch_ValeurTexteEnCours) Ent_LongueurValeur = Taille(Ch_ValeurTexteEnCours) //** Ensuite je sélectionne pour mettre en Forme les entêtes ** ProcL_FormateEntete(Ent_PositionValeur,Ent_LongueurValeur) //******************************************************************************** //** Ajout et récupération des éléments de positionnement de la Valeur LONGUEUR ** //******************************************************************************** Ch_ValeurTexteEnCours = St_UnAccessoire.MemStr_Ent_LongueurAcc RTFAjoute(TxtChampRTF,Ch_ValeurTexteEnCours + TAB + TAB) Ent_LongueurValeur = Taille(TxtChampRTF) Ent_PositionValeur = RTFRecherche(TxtChampRTF,Ch_ValeurTexteEnCours) Ent_LongueurValeur = Taille(Ch_ValeurTexteEnCours) //** Ensuite je sélectionne pour mettre en Forme les Valeurs ** ProcL_FormateValeur(Ent_PositionValeur,Ent_LongueurValeur) //****************************** //** Ajout d'un RC à la liste ** //****************************** RTFAjoute(TxtChampRTF,RC) FIN [/code] Code Formatage Entete [code:wl] PROCÉDURE ProcL_FormateEntete(LOCAL Ent_PosEntete est un entier,LOCAL Ent_LongueurEntete est un entier) //** On formate les Titres ** RTFSélection(TxtChampRTF,rtfGras,Vrai,Ent_PosEntete,Ent_LongueurEntete) RTFSélection(TxtChampRTF,rtfSouligné,Vrai,Ent_PosEntete,Ent_LongueurEntete) RTFSélection(TxtChampRTF,rtfItalique,Faux,Ent_PosEntete,Ent_LongueurEntete) RTFSélection(TxtChampRTF,rtfTaillePolice,10,Ent_PosEntete,Ent_LongueurEntete) RTFSélection(TxtChampRTF,rtfNomPolice,"Arial",Ent_PosEntete,Ent_LongueurEntete) RTFSélection(TxtChampRTF,rtfCouleur,Noir,Ent_PosEntete,Ent_LongueurEntete) [/code] Code Formatage Valeurs [code:wl] PROCÉDURE ProcL_FormateValeur(LOCAL Ent_PosValeur est un entier,LOCAL Ent_LongueurValeur est un entier) //** On formate les Valeurs ** RTFSélection(TxtChampRTF,rtfGras,Vrai,Ent_PosValeur,Ent_LongueurValeur) RTFSélection(TxtChampRTF,rtfSouligné,Faux,Ent_PosValeur,Ent_LongueurValeur) RTFSélection(TxtChampRTF,rtfItalique,Vrai,Ent_PosValeur,Ent_LongueurValeur) RTFSélection(TxtChampRTF,rtfTaillePolice,9,Ent_PosValeur,Ent_LongueurValeur) RTFSélection(TxtChampRTF,rtfNomPolice,"Arial",Ent_PosValeur,Ent_LongueurValeur) RTFSélection(TxtChampRTF,rtfCouleur,BleuClair,Ent_PosValeur,Ent_LongueurValeur) [/code] -- Aurélien MACHABERT Développeur Chez GAUTHIER Menuiserie30WEBDEVfr_FRhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/231512-bug-rtf/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)aurelien.machabertpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/231512-bug-rtf-231522/read.awp12 Jul 2019 11:48:26 ZBonjour Christophe, Tout d'abord merci beaucoup pour ta réponse qui m'a été énormément utile. je viens de faire mon test e…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/231512-bug-rtf-231522/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/231512-bug-rtf-231522/read.awpBug RTFDELFI INFO-Chrispcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/231512-bug-rtf-231518/read.awp12 Jul 2019 09:58:10 Zbonjour Aurélien, Perso, pour ce genre de mise en forme, je me créé un champ libelle RTF invisible , préformaté pour un 'enre…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/231512-bug-rtf-231518/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/231512-bug-rtf-231518/read.awpBug RTF