pcsoft.fr.windevCopyright 2026, PC SOFT22 May 2020 23:11:13 Z20 May 2020 20:20:10 ZBonjour à tous, j'ai un code que je trouve trop long dans mon projet. Quelqu'un peut m'aider en le simplifiant SVP ! Voici le code que j'ai inséré dan la partie: Clic sur bouton SI SAI_CHAMBRE = "CHAMBRE 001" ALORS BTN_CHAMBRE_001 = "Occupée" BTN_CHAMBRE_001..ImageFond = Null BTN_CHAMBRE_001..CouleurFond = RougeFoncé EcranVersFichier() HAjoute(INFOS_CLIENT) HRAZ(INFOS_CLIENT) RAZ() FIN SI SAI_CHAMBRE = "CHAMBRE 002" ALORS BTN_CHAMBRE_002 = "Occupée" BTN_CHAMBRE_002..ImageFond = Null BTN_CHAMBRE_002..CouleurFond = RougeFoncé EcranVersFichier() HAjoute(INFOS_CLIENT) HRAZ(INFOS_CLIENT) RAZ() FIN SI SAI_CHAMBRE = "CHAMBRE 003" ALORS BTN_CHAMBRE_003 = "Occupée" BTN_CHAMBRE_003..ImageFond = Null BTN_CHAMBRE_003..CouleurFond = RougeFoncé EcranVersFichier() HAjoute(INFOS_CLIENT) HRAZ(INFOS_CLIENT) RAZ() FIN SI SAI_CHAMBRE = "CHAMBRE 004" ALORS BTN_CHAMBRE_004 = "Occupée" BTN_CHAMBRE_004..ImageFond = Null BTN_CHAMBRE_004..CouleurFond = RougeFoncé EcranVersFichier() HAjoute(INFOS_CLIENT) HRAZ(INFOS_CLIENT) RAZ() FIN SI SAI_CHAMBRE = "CHAMBRE 005" ALORS BTN_CHAMBRE_005 = "Occupée" BTN_CHAMBRE_005..ImageFond = Null BTN_CHAMBRE_005..CouleurFond = RougeFoncé EcranVersFichier() HAjoute(INFOS_CLIENT) HRAZ(INFOS_CLIENT) RAZ() FIN SI SAI_CHAMBRE = "CHAMBRE 006" ALORS BTN_CHAMBRE_006 = "Occupée" BTN_CHAMBRE_006..ImageFond = Null BTN_CHAMBRE_006..CouleurFond = RougeFoncé EcranVersFichier() HAjoute(INFOS_CLIENT) HRAZ(INFOS_CLIENT) RAZ() FIN SI SAI_CHAMBRE = "CHAMBRE 007" ALORS BTN_CHAMBRE_007 = "Occupée" BTN_CHAMBRE_007..ImageFond = Null BTN_CHAMBRE_007..CouleurFond = RougeFoncé EcranVersFichier() HAjoute(INFOS_CLIENT) HRAZ(INFOS_CLIENT) RAZ() FIN SI SAI_CHAMBRE = "CHAMBRE 008" ALORS BTN_CHAMBRE_008 = "Occupée" BTN_CHAMBRE_008..ImageFond = Null BTN_CHAMBRE_008..CouleurFond = RougeFoncé EcranVersFichier() HAjoute(INFOS_CLIENT) HRAZ(INFOS_CLIENT) RAZ() FIN SI SAI_CHAMBRE = "CHAMBRE 009" ALORS BTN_CHAMBRE_009 = "Occupée" BTN_CHAMBRE_009..ImageFond = Null BTN_CHAMBRE_009..CouleurFond = RougeFoncé EcranVersFichier() HAjoute(INFOS_CLIENT) HRAZ(INFOS_CLIENT) RAZ() FIN SI SAI_CHAMBRE = "CHAMBRE 010" ALORS BTN_CHAMBRE_010 = "Occupée" BTN_CHAMBRE_010..ImageFond = Null BTN_CHAMBRE_010..CouleurFond = RougeFoncé EcranVersFichier() HAjoute(INFOS_CLIENT) HRAZ(INFOS_CLIENT) RAZ() FIN NB: Ici encore je n'ai fais que copier une partie sinon le code vas jusqu'à 50, soit 50 fois copiés. Merci. -- Très respectueusement30WEBDEVfr_FRhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/239723-simplifier-code/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)babas34pcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/239723-simplifier-code-239781/read.awp22 May 2020 23:11:13 ZsNUMCHAMBRE est une chaîne = droite(SAI_CHAMBRE, 3) {"BTN_CHAMBRE_" + sNUMCHAMBRE, indChamp} = "Occupée" {"BTN_CHAMBRE_" + sNU…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/239723-simplifier-code-239781/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/239723-simplifier-code-239781/read.awpsimplifier un codeStephane Vital OHOUpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/239723-simplifier-code-239767/read.awp22 May 2020 15:10:43 ZMerci Jordan, Je vais exécuté un autre projet avec le conseil que vous venez de me donner. Je crois que je pourrais faire vraim…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/239723-simplifier-code-239767/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/239723-simplifier-code-239767/read.awpsimplifier un codeNdrjpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/239723-simplifier-code-239733/read.awp21 May 2020 10:52:35 ZBonjour, Votre code sous-entend, que vous avez créer un bouton pour chaque chambre, pourquoi ne pas avoir créer une zone répé…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/239723-simplifier-code-239733/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/239723-simplifier-code-239733/read.awpsimplifier un codeStephane Vital OHOUpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/239723-simplifier-code-239729/read.awp20 May 2020 23:31:51 ZSalut à tous. Merci pour la réflexion sur mon code. Merci surtout à toi Monsieur PHILIPPE PASQUALI. Ton code est extraordinair…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/239723-simplifier-code-239729/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/239723-simplifier-code-239729/read.awpsimplifier un codePhilippe Pasqualipcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/239723-simplifier-code-239728/read.awp20 May 2020 22:54:32 ZBonsoir [code:wl] sNumber est une chaîne = ExtraitChaîne(SAI_CHAMBRE, 2, " ") {"BTN_CHAMBRE_" + sNumber, indChamp} = "Occupée…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/239723-simplifier-code-239728/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/239723-simplifier-code-239728/read.awpsimplifier un codeDer§enpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/239723-simplifier-code-239725/read.awp20 May 2020 21:10:51 Zhttps://doc.pcsoft.fr/fr-FR/?1512005&name= -- ——————————————————————————————————— Ce qui se conçoit bien se code clairement…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/239723-simplifier-code-239725/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/239723-simplifier-code-239725/read.awpsimplifier un codeDer§enpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/239723-simplifier-code-239724/read.awp20 May 2020 21:09:50 ZRegarde du côté des indirections, tu devrais pouvoir diviser ton code par 10. -- ——————————————————————————————————— Ce qui…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/239723-simplifier-code-239724/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/239723-simplifier-code-239724/read.awpsimplifier un code