Discussion :

[defluc]

Bonjour,

J'ai dû effacer une ligne par inadvertance.
Depuis, la source qui suit met plusieurs minutes pour exécuter la ligne qui exécute l'insertion de la ligne dans la feuille Excel et ce uniquement au premier passage dans la boucle; après, ça roule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 ExcelApp := CreateOleObject('Excel.Application');// création du lien OLE
 ExcelApp.Workbooks.Open(ExtractFilePath(Application.ExeName) + 'VerkElec.xlt');
 Cursor := crHourGlass;
 NbrCandid := ConseilSpinEdit.Value;
 ExcelApp.ActiveWorkBook.Unprotect;
 ExcelApp.WorkSheets[1].Activate ;
 
  For k := 1 to NbrCandid do
  Begin
    if k < (NbrCandid - 1) then ExcelApp.Cells[k+6,1].EntireRow.Insert;
    ExcelApp.Cells[5 + k ,2].Value := k;
    ExcelApp.Cells[5+k,4].Formula := '=SUM(F'+ IntToStr(k+5) +
                                                 ':G'+ IntToStr(k+5) + ')';
  end;

Quelqu'un aurait-il une idée ?

Merci d'avance
[Balises CODE rajoutées par Pedro. Merci d'y penser à l'avenir]

[defluc]

Il y avait une cellule très éloignée (DX32762) qui contenait une valeur.