begin process at 2010 02 10 06:04:50
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Delphi

 > 

Divers

 > 

Débutant(e)

 > 

Excel et cellule de type LiCi au lieu de Ai


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Excel et cellule de type LiCi au lieu de Ai

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ée 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

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,374 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales