IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

API, COM et SDKs Delphi Discussion :

Lecture commentaire cellule dans feuille Excel


Sujet :

API, COM et SDKs Delphi

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Inscrit en
    Janvier 2010
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Janvier 2010
    Messages : 23
    Par défaut 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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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.

  2. #2
    Rédacteur/Modérateur
    Avatar de ero-sennin
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2005
    Messages
    2 965
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2005
    Messages : 2 965
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    try
      valeur := excelapp.cells.item[i,2].comment.text ;
    except
      valeur := '';
    end;
    En espérant t'avoir aidé

  3. #3
    Membre averti
    Homme Profil pro
    Inscrit en
    Janvier 2010
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Janvier 2010
    Messages : 23
    Par défaut
    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

  4. #4
    Rédacteur/Modérateur
    Avatar de ero-sennin
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2005
    Messages
    2 965
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2005
    Messages : 2 965
    Par défaut
    Peux-tu nous montrer un peu plus de code, car je ne pense pas que le souci vienne de ma solution ...

  5. #5
    Membre averti
    Homme Profil pro
    Inscrit en
    Janvier 2010
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Janvier 2010
    Messages : 23
    Par défaut
    Voici le bout de code complet:
    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
    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

  6. #6
    Membre averti
    Homme Profil pro
    Inscrit en
    Janvier 2010
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Janvier 2010
    Messages : 23
    Par défaut
    J'ai oublié de préciser que Grid est un TStringgrid.

  7. #7
    Expert confirmé
    Avatar de Cl@udius
    Homme Profil pro
    Développeur Web
    Inscrit en
    Février 2006
    Messages
    4 878
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Développeur Web
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Février 2006
    Messages : 4 878
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  8. #8
    Rédacteur/Modérateur
    Avatar de ero-sennin
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2005
    Messages
    2 965
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2005
    Messages : 2 965
    Par défaut
    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.

  9. #9
    Membre averti
    Homme Profil pro
    Inscrit en
    Janvier 2010
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Janvier 2010
    Messages : 23
    Par défaut
    Bonjour Cl@udius,
    le compilateur me dit "Type imcompatible" sur la ligne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    if Assigned(excelapp.cells.item[i,2].comment) then

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. vba excel : insertion d image gif dans feuille excel
    Par chamus dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 03/01/2007, 13h16
  2. Problème de lecture des cellules dans une feuille Excel
    Par wangjun dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 08/10/2006, 09h35
  3. Ecrire dans feuille excel
    Par Matmal11 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 29/09/2006, 08h49
  4. [VBA-E] Recherche de cellules dans feuille
    Par cyber_N dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 05/05/2006, 10h38
  5. [VBA] problème choix de cellule dans feuille excel
    Par beegees dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 01/02/2006, 10h48

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo