ColMin := aColonneDepartDetailDevis;
ColMax := aColonneDepartDetailDevis;
for CompteurColonne := Low(TabColonne) to High(TabColonne) do
begin
NomColonne := Words(EnteteDevis,';',CompteurColonne+1);
// Recherche de la colonne de chaque champ
try
aXLApp.Goto(NomColonne);
aXLApp.Selection.Copy;
TabColonne[CompteurColonne] := aXLApp.Selection.Column;
if ColMin > TabColonne[CompteurColonne] then
ColMin := TabColonne[CompteurColonne];
if ColMax < TabColonne[CompteurColonne] then
ColMax := TabColonne[CompteurColonne];
except
TabColonne[CompteurColonne] := -1;
end;
end;
aColonneDepartDetailDevis := ColMin;