[Excel & D7]Problème de suppression de lignes

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:

---

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

Salut,

Citation:

---

Envoyé par Isa31

Le problème c'est que ca plante a la 278ème lignes du fichier.
D'ou peut venir mon erreur.

---

Merci d'indiquer le message d'erreur rencontré ...

Le message est le suivant :

Citation:

---

Le projet a provoqué une classe d'exception EOleException avec le message 'Erreur OLE 800A03EC'. Processus stoppé.

---

J'ai trouvé la solution à mon problème mais je ne comprend pas pourquoi, enfin ou plutot quelle est la différence entre ces 2 lignes :

Code:

---

OleApplication.Selection.Delete(xlShiftUp);

---

Code:

---

OleApplication.Cells.Item[j,j].EntireRow.Delete(xlShiftUp);

---

Salut,
Encore des fichiers Excel avec 10000 lignes, d'autres 65536, j'ai du mal à comprendre, à mon avis, l'utilisateur de ces fichiers doit se prendre la tête pour utiliser ces fichiers...
On a tendance à utiliser Excel pour gérer des données, mais souvent, c'est une Base de donnée qu'il faudrait faire, et on peut même faire des calculs avec une BD.
Enfin ce n'est qu'un conseil...
Pour tes 2 lignes de code, à tu regardé l'aide Excel ou VB ?
@+
Fabrice

Trouvé sur les newsgroups Borland

Citation:

---

>Does anyone know what OLE Error 800A03EC is

It is the error that Excel reports nine times out of ten,
whatever is wrong. Tell us the line of your code that
causes the problem, and we can (probably!) fix it.

Deborah Pate (Team JEDI)

---

Dans ton cas il s'agit peut être d'un pb de type de donnée utilisée ?

Citation:

---

Doc Delphi
...
La différence principale entre Variant et OleVariant est que Variant peut contenir des types de données que seule l'application en cours sait traiter. OleVariant contient uniquement des types de données compatibles avec OLE Automation, ce qui signifie que ces types de données peuvent être transférés entre programmes ou sur le réseau sans qu'il soit nécessaire de savoir si l'autre extrémité saura manipuler les données.

---

En créant des macros Excel:

Code:

---

1 2 3 4 5 6 7 8

// effacer des lignes entières Rows("6:10").Select Selection.Delete Shift:=xlUp   // effacer une plage, décaler vers le haut Range("A10:F16").Select Selection.Delete Shift:=xlUp

---

En général quand je pilote Excel avec delphi, suivant les cas, j'enregistre une macro sur las actions à faire, je récupère le code de la macro que je transpose sous Delphi. Résultats garantis à 100%.
J'ai essayé et avec ces 2 syntaxes cela fonctionne, sans erreur:

Code:

---

1 2 3

XlsPage.Cells.Item[1, 10].EntireRow.Delete(xlShiftUp); XlsPage.Range['A10', 'F16'].Delete(xlShiftUp);

---

J'utilise un composant TExcelApplication, et déclare:

Code:

---

1 2 3

XlsWk: _workbook; XlsPage :_Worksheet;

---

@+
Fabrice

Pour moi il n'y avait pas de différence entre toutes les lignes que je supprimais, je pensais plutot a un problème mémoire ou un truc du genre.

Merci a vous tous.