Discussion :

[benoît14]

Bonsoir,

J'ai écrit cette ligne en VBA :

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

.Cells(cptLigne, NumColCREE).Value = "=SUM(" & Range(Cells(cptLigne, NumColCREEprem), Cells(cptLigne, NumColCREE - 1)).Address(False, False) & ")"

Je souhaiterais la convertir sous DELPHI :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuille.cells[cptLigne, NumColCREE].value := '=SUM(' + Range[Cells[cptLigne, NumColCREEprem], Cells[cptLigne, NumColCREE - 1]].Address(False, False)+')';

Mais je bute sur Range, DELPHI me renvoie :

[Erreur] Unit1.pas(2605): E2003 Identificateur non déclaré : 'Range'

Merci d'avance de votre réponse,

Bonne soirée,

Benoît RIVIERE

[Andnotor]

Excel, c'est du VB, pas du Pascal. C'est de plus une ligne interprétée et non compilée. Il n'y a aucune raison de la traduire.

Bref, brut de fonderie :

Feuille.cells[cptLigne, NumColCREE].value := '"=SUM(" & Range(Cells(' +IntToStr(cptLigne) +', NumColCREEprem), Cells('+ IntToStr(cptLigne) +',' +IntToStr(NumColCREE - 1) +')).Address(False, False) & ")"';

[benoît14]

Merci pour la réponse mais cela ne fonctionne pas : les fonctions Range et Cells ne sont pas interprétées par Excel... Je galère vraiment pour trouver une solution à mon problème, Google ne m'est d'aucun secours !

[Andnotor]

En partant du principe que cptLigne est un caractère:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuille.cells[cptLigne, NumColCREE].value := '=SOMME(' +cptLigne +IntToStr(NumColCREEprem) +':' +cptLigne +IntToStr(NumColCREE -1) +')';

C'est du côté Excel qu'il faut voir ce qu'acceptent les cellules et comment sont renseignées les fonctions !

[benoît14]

cptLigne et numColCREE sont des variables integer de deux boucles For... to.

J'aurais donc voulu éviter de transformer ma variable de colonne en caractères... Au pire en l'absence de réponse, je créerai une fonction pour convertir. J'aurais préféré passer par un Range(Cells(),Cells()) comme en VBA...

[Andnotor]

Ce qu'il faut comprendre est que VBA est du Visual Basic modifié pour répondre aux besoins spécifiques d'une application, en l’occurrence ici : Excel. Tu n'auras pas les mêmes possibilités avec Delphi !

[benoît14]

J'avais peur que cela soit le cas, ne trouvant aucune réponse ni dans les tutos du forum ni sur Google... Tu sembles confirmer mes craintes. Merci de ta réponse.

[tarekk73]

bon jour
voici un très simple exemple qui ouvre et écrire sur 'excel'

[benoît14]

Merci Tarekk73 mais j'ai déjà écrit quelques routines liant Excel et Delphi. Je maîtrise à peu près les bases. Ce qui me pose problème ce sont les fonctions les moins documentées...

[tarekk73]

bon jour

Ce qui me pose problème ce sont les fonctions les moins documentées...

parlez vous des fonctions d'excel ...?
si oui delphi na rien a voire avec ça ....

moi je travail avec "excel 2007". j'ai fait un teste dans mon programme précédent j'ai ajouter le code suivent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 NomCellule:='B6';
  RefCellule:=ExcelWs.Range[NomCellule];
  RefCellule.Value:= '=SOMME(B3:B4)'   ;

et voila le resultat dans l'image .
l'excel indique une erreur 'laformule contient du texte non reconnu'.
vous remarqez aussi que la formule est bien ecrite dans la barre de formule,
le probleme va disparaît dés que vous mettre la souris sur la "barre des formule" et vous tapez la entrer

alors je pense que le probleme est dans l'excel et pas dans delphi. et peux etre que ce probleme ne figure pas dans les autre version d'excel
bon courage

[benoît14]

Je pense que l'erreur Excel #NOM pour RefCellule.Value:= '=SOMME(B3:B4)'; tient au fait que .value cherche à calculer le résultat de la formule SOMME et à mettre le résultat dans la cellule B6. Or Delphi communique avec Excel en anglais, il faudrait donc remplacer SOMME par SUM. Pour communiquer en Français, il faut utiliser .formulalocal.

[tarekk73]

Je pense que l'erreur Excel #NOM pour RefCellule.Value:= '=SOMME(B3:B4)'; tient au fait que .value cherche à calculer le résultat de la formule SOMME et à mettre le résultat dans la cellule B6. Or Delphi communique avec Excel en anglais, il faudrait donc remplacer SOMME par SUM. Pour communiquer en Français, il faut utiliser .formulalocal.

dans notre cas "delphi" a ecrir un texte sur une céllule excel. c'est tout..
ce texte est une fonction excel ou non ça c'est le probleme de l'excel
si votre "fonction excel" est 'SUM' vous mêt '=SUM(B3:B4);'
sinon utilisez la fonction qui marche avec votre excel

bon courage A+