Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Excel et cellule de type LiCi au lieu de Ai [ Divers / Débutant(e) ] (furax13)

mardi 23 octobre 2007 à 13:57:20 | Excel et cellule de type LiCi au lieu de Ai

furax13

bonjour,
je désire piloter Excel depuis une application Delphi.

j'ai fait une partie du code qui ouvre un fichier excel, récupère dans le fichier excel le nombre de valeurs par données et le nombre de données à récupérer.

Ensuite, je désire lire en une seule fois la plage de valeurs comprise entre 2 cellules.
Cela marche parfaitement avec la notation suivante :
cellDebut := 'D12';
cellFin := 'CT545';

mais j'aimerais le faire fonctionner avec la notation L12C4 eà L545C98
Comment faire ?

Ci-joint le code :
ExcelApplication1.Connect;
ExcelApplication1.ReferenceStyle[xlR1C1];
MonClasseur := ExcelApplication1.Workbooks.Open('l:\bremen_trial3_5-6_5coils_normalized_EMO.xls', False, False,
  EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
  EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 0);

ExcelApplication1.Visible[0] := true;
MaFeuille := MonClasseur.Worksheets[1] AS _worksheet;

cellDebut := 'L'+ IntToStr(PremiereLigne) + 'C' + IntToStr(ColonneTemps);
colFin := nbDataReal +ColonneTemps;
ligneFin := PremiereLigne +nbColonnesTotal;
cellFin := 'L'+ IntToStr(ligneFin-1) + 'C' + IntToStr(colFin);

//cellDebut := 'D12';
//cellFin := 'CT545';

Resultat := MaFeuille.Range[cellDebut, cellFin].Value;
FOR comptLig := 1 TO VarArrayHighBound(Resultat, 1) DO
  FOR comptCol := 1 TO VarArrayHighBound(Resultat, 2) DO
  begin
    mesValeurs[comptlig,comptcol] := Resultat[comptlig, comptcol];
    Resultat[comptlig, comptcol] := Resultat[comptlig, comptcol] * 3 + 2;
    StatusBar1.SimpleText := IntToStr(Resultat[comptlig, comptcol]) + ' valeurs pour ' + IntToStr(comptLig) + ' ligne' + IntToStr(comptCol) + ' colonnes';
  end;
MaFeuille.Range[cellDebut, cellFin].Value := Resultat;
 ExcelApplication1.disConnect;

merci pour votre aide


mardi 23 octobre 2007 à 15:20:11 | Re : Excel et cellule de type LiCi au lieu de Ai

pers

Membre Club
Salut

Au lieu de "Range" il me semble plus simple
d'utiliser  "Cells(column,row)" dans  les boucles 'For'

@+


mardi 23 octobre 2007 à 15:22:30 | Re : Excel et cellule de type LiCi au lieu de Ai

furax13

En utilisant Cells, le problème est celui des performances.


mardi 23 octobre 2007 à 15:22:54 | Re : Excel et cellule de type LiCi au lieu de Ai

pers

Membre Club
pardon "Cells[column,row]" 

mardi 23 octobre 2007 à 15:24:09 | Re : Excel et cellule de type LiCi au lieu de Ai

pers

Membre Club
Ah ... à ce point là ??



Cette discussion est classé dans : resultat, inttostr, emptyparam, comptcol, comptlig


Répondre à ce message

Sujets en rapport avec ce message

Sql et Bdd [ par viper ] Je cherche depuis qq temps à récupérer le resultat d'une requet SQL avec un TQuery et une base de donnée mais sans succès...J'aimerais donc savoir com Savegarder les resultat de requetes [ par liangyu ] J'ai une interface qui afficher les résultat d'une requete sur une base de donnée. Je voudrais enregistrer cette interface ou les résultat en RTFou PD variable dans le nom d'un composant [ par thonyboy ] Bonjour,Je cherche a faire un truc du genre :Supposons X composants Tlabels et 1 variable ICase of I 1: Tlabel1.caption := 'Label1' 2: Tlabel2.capti Problème avec Emptyparam [ par didyer ] Bonjour,J'ai placé un composant TWordApplication sur une fiche et un boutonEn réponse au Click du bouton, j'ai écrit les lignes suivantes:if opendialo Probleme de Conversion RGB en Color [ par Lennemi ] Lorsque je selection une couleur de mon TColorDialog, peu importe la couleur choisi y me retournera toujours les valeurs suivante :R = 212G = 208B = 2 faire de probabilité avec VBA [ par imsse ] SAlut a tous Voila j'ai une certain nombre de listes deroulante(comboxbox) qui sont soit "vide" , soit "plein".En fonction de cela et selon la ou les Comment dupliquer une base de données avec une requette SQL [ par thonyboy ] BonjourJ'utilise delphi 7 et j'aimerais connaitre le moyen le plus simple pour enregistrer le resultat d'une requette SQL dans une base de données.Voi enregistrer dans un format html avec word [ par jobtunisieyasser ] DocWord.SaveAs(F_H, wdFormatHTML ,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyPara Help : Excel veut pas ouvrir mon fichier [ par Banban113 ] Bijour tout le monde !!!!!Bon Banban est encore dans la merdeVoila je veux faire mumuse avec Excel depuis Delphi 7 mais ce pignouf m'affiche une erreu Application ne fonctionnant que sur le PC où je développe. [ par blood01 ] Bonjour à tous,Je suis en train de développer un logiciel permettant d'envoyer des données dans EXCEL. Apres traitement, je récupère les résultats et


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,265 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.