voila ta procedure remise en ordre :
procedure TForm1.Button1Click(Sender: TObject);
begin
if DBCOMBOBOX1.Text='OUI' then
begin
DBEdit23.text := FloatToStr((StrToFloat(DBEdit17.text))*(5/100));
DBEdit25.text := FloatToStr((StrToFloat(DBEdit15.text))*(12/100));
DBEdit24.text := '0';
DBEdit26.text := '0';
exit;
end;
if DBCOMBOBOX1.Text='NON' then
begin
DBEdit24.text := FloatToStr((StrToFloat(DBEdit17.text))*(5/100));
DBEdit26.text := FloatToStr((StrToFloat(DBEdit15.text))*(12/100));
DBEdit23.text := '0';
DBEdit25.text := '0';
exit;
end;
end;
ce qui correspond à :
si c'est oui : DB23 et DB25 chargés avec 5 et 12% et DB24 et DB26 = 0
si c'est non : DB24 et DB26 chargés avec 5 et 12% et DB23 et DB25 = 0
Vérifie si c'est c'est bien cette configuration que tu souhaites
Peut être y a t'il une inversion entre deux DBEDIT :
DB23,DB24 chargés, DB25,DB26 à 0 et vice versa par exemple
vois aussi ce que t'a dit nabil-bago pour le rafraichissement
9 avril 2016 à 23:10
c mon coude source sur le button nomee " calcule automatique"
-------------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
if DBCOMBOBOX1.Text='OUI' then DBEdit23.text := FloatToStr((StrToFloat(DBEdit17.text))*(5/100));
if DBCOMBOBOX1.Text='OUI' then DBEdit25.text := FloatToStr((StrToFloat(DBEdit15.text))*(12/100));
if DBCOMBOBOX1.Text='NON' then DBEdit23.text := '0';
if DBCOMBOBOX1.Text='NON' then DBEdit25.text := '0';
if DBCOMBOBOX1.Text='NON' then DBEdit24.text := FloatToStr((StrToFloat(DBEdit17.text))*(5/100));
if DBCOMBOBOX1.Text='NON' then DBEdit26.text := FloatToStr((StrToFloat(DBEdit15.text))*(12/100));
if DBCOMBOBOX1.Text='OUI' then DBEdit24.text := '0';
if DBCOMBOBOX1.Text='OUI' then DBEdit26.text := '0';
aider moi stp dubois77
merci bq