Un client, allergique à la police (pourtant standard ARIAL) de mon logiciel, voulait avoir une police différente sur mon logiciel... Voici un script simplifié qui liste les objets d'une fenêtre et modifie la police par programmation : Code (Text): PROCEDURE PoliceECRAN(NomDeLaFenetre) MaPolice est une Police MaPolice = PoliceCrée("Verdana", 10) // <----- Ma nouvelle police pour cet écran i est entier sNomChamp est une chaîne //On scan tous les champs de l'écran // Premier champ de la fenêtre i=1; sNomChamp = EnumèreChamp(NomDeLaFenetre, i) TANTQUE sNomChamp<>"" SELON {sNomChamp,indChamp}..Type CAS typTexte : {sNomChamp,indChamp}..Police = MaPolice CAS typLibellé { sNomChamp,indChamp}..Police = MaPolice CAS typBouton {sNomChamp,indChamp}..Police = MaPolice AUTRE CAS // On ne modifie rien... FIN // Champ suivant i ; sNomChamp = EnumèreChamp(NomDeLaFenetre, i) FIN