PROCEDURE AffJauge(sChamp,nIndice,ValJauge,MaxJauge,Texte)// Affichage de jauge manuelle
NewJauge est un entier
// Calcul de la jauge en pourcentage:
NewJauge=ValJauge*100/MaxJauge // Valeur à afficher entre 0 et 100
SI NewJauge<0 OU NewJauge>100 ALORS RETOUR
// Rend visible la jauge manuelle si nécessaire
//SI champ..Etat=Invisible ALORS champ..Etat=Actif
NewJauge=(Valeur[nIndice]..Largeur-10)*NewJauge/100
{sChamp}[nIndice]=gRectangle(0,1,NewJauge,{sChamp}[nIndice]..Hauteur-3,...
iRougeClair,iRougeClair)+...
gCadrage("C",+gStylo(iBleuClair)+Texte,0)
//param 1 : Nom de la colonne de la table pour jauge
//Param 2 : Indice de la ligne de la table à traiter
//Param 3 : Valeur à affecter à la jauge
//Param 4 : Valeur maximum de la jauge
//Param 5 : Valeur du texte à afficherdans la jauge
AffJauge("MaJauge",nIndiceTable,nValeurJauge,100,nValeurJauge+" %")
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=972&post_id=3992