Bonjour,

Je souhaite a l'aide d'une interface Delphi formater un fichier excel en fonction de critères que l'on peut sélectionner dans l'interface.

J'ai fait le code suivant pour supprimer les lignes ou la valeur n'est pas comprise entre des données voulues :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
If (OleApplication.Range[strLettre +  IntToStr(j)].Value < strMin) or (OleApplication.Range[strLettre +  IntToStr(j)].Value > strMax) Then
Begin
    OleApplication.Range[IntToStr(j) + ':' + IntToStr(j)].Select;
    OleApplication.Cells.Item[j,j].EntireRow.Delete(xlShiftUp);
End;
Le problème c'est que ca plante a la 278ème lignes du fichier.

D'ou peut venir mon erreur.

A savoir que mon fichier Excel peut avoir plus de 10 000 lignes.

Merci d'avance.

Isa