Lecture commentaire cellule dans feuille Excel

Version imprimable

27/04/2011, 09h50
franckMenant

Lecture commentaire cellule dans feuille Excel
Bonjour à tous,
je voudrais lire les commentaires des cellules dans une feuille excel.
(bien entendu, toutes les cellules n'ont pas de commentaires)

Quand le commentaire existe, je n'ai pas de problème. Valeur = String

Quand le commentaire n'existe pas, j'ai une erreur "notification d'exception dans le module .EXE" :(

Je lis le commentaire de cette manière:
(je déclare valeur de type variant)
Code:

1 2 valeur := excelapp.cells.item[i,2].comment.text ;
Pourriez-vous me dire ce que reçoit valeur quand il n'y a pas de commentaire ou comment gérer l'exception !
(je travaille en delphi 7)
Merci d'avance.
27/04/2011, 10h00
ero-sennin
Salut et bienvenue sur les forum de Developpez.net :)

Pour répondre à ta question, je pense que tu peux faire un try except pour gérer l'exception.

Je ferai ceci (de tête)
Code:

1 2 3 4 5 try valeur := excelapp.cells.item[i,2].comment.text ; except valeur := ''; end;
En espérant t'avoir aidé :)
27/04/2011, 10h29
franckMenant

Bonjour Ero-Sennin,

je viens de tester le code Try mais j'ai encore une exception

Le texte précis est :
Project project.exe raised exception class Eaccesviolation with message "Acces violation at address 004684AF in the project.exe
27/04/2011, 10h42
ero-sennin

Peux-tu nous montrer un peu plus de code, car je ne pense pas que le souci vienne de ma solution ... :roll:

Voici le bout de code complet:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
i := 2;
grid.RowCount := i;
grid.FixedRows := 1;
grid.ColWidths [0] := 70;
grid.ColWidths [1] := 290;
  // lecture du fichier XLS pour lire les ligne de la colonne 1
  // jusqu'a une cellule vide
while excelapp.cells.item[i,1].value <> '' do
  begin
    // grid.cells[colonne,ligne = 0,0]  Excelapp.cell[ligne,colonne = 1,1]
  grid.Cells[0,i-1] := excelapp.cells.item[i,2].value;
  grid.Cells[1,i-1] := excelapp.cells.item[i,1].value;
  try
    valeur := excelapp.cells.item[i,2].comment.text ;
  except
    valeur := '';
  end;
  inc(i);
  grid.RowCount := i;
end ;

Le code fonctionne bien sans le Try Except

27/04/2011, 10h55
franckMenant

J'ai oublié de préciser que Grid est un TStringgrid.
27/04/2011, 11h25
Cl@udius
Salut

En l'absence de commentaires dans la cellule, Comment doit être à nil (à vérifier).
De fait l'accès à la propriété Text lève une exception.

Essaye comme ceci:
Code:

1 2 3 4 5 6 7 if Assigned(excelapp.cells.item[i,2].comment) then try valeur := excelapp.cells.item[i,2].comment.text ; except valeur := ''; end;
@+ Claudius
27/04/2011, 12h29
ero-sennin

Tiens, c'est étonnant si c'est ça.
J'étais persuadé que même si comment était à nil, hé bien le try except autour de la méthode l'aurait catché... et donc on n'aurait pas cet effet d'EAccessViolation. :?
27/04/2011, 12h41
franckMenant
Bonjour Cl@udius,
le compilateur me dit "Type imcompatible" sur la ligne
Code:

1 2 if Assigned(excelapp.cells.item[i,2].comment) then
27/04/2011, 17h43
franckMenant

La question devient en faite:
De quel type est excelapp.cells.item[i,2].comment
27/04/2011, 18h06
BuzzLeclaire
Citation:
Envoyé par franckMenant

Bonjour Cl@udius,
le compilateur me dit "Type imcompatible" sur la ligne

Code:

1 2 if Assigned(excelapp.cells.item[i,2].comment) then
Salut,

As-tu essayer tout simplement cela :

Code:

if excelapp.cells.item[i,2].comment <> nil then

J'ai pu voir que sur un autre forum tu n'as pas non plus essayé cette façon.
J'ai trouvé cela sur un forum en chinois, cela pourra peut-etre résoudre ton problème.

A+
27/04/2011, 18h45
franckMenant
je viens de faire:
Code:

1 2 if excelapp.cells.item[i,2].comment <> nil then
mais toujours :cry:
27/04/2011, 22h24
BuzzLeclaire
Citation:
Envoyé par franckMenant

je viens de faire:

Code:

1 2 if excelapp.cells.item[i,2].comment <> nil then

mais toujours :cry:
As tu essayé de reproduire ce test avec une macro EXCEL ? et récupérer le code VBA pour le traduire ?
28/04/2011, 10h17
franckMenant

Je vais essayer de faire cela. bonne idée! :)

Et en utilisant VarIsNull?:
Code:

1 2 if not VarIsNull(excelapp.cells.item[i,2].comment) then

28/04/2011, 11h06
franckMenant

Solution trouvée:

Valeur est du type string

et le code est

Code:

if not VarIsClear(excelapp.cells.item[i,2].comment) then

Merci à tous pour vos réponses et recherches sur le sujet
Très gratifiant pour moi.