perl et excel : intégrer une variable dans une expression

Bonjour,

J'ai crée un programme qui fait du parsing de fichier log et renvoit le résultat sur excel, sur plusieurs feuilles de calcul.

J'ai une feuille s'appelant "Nombre total d'étude" qui doit faire l'addation de plusieurs paramètres (nombres) présent sur une autre feuille appelé "Etude par fichier"


En gros je dois réaliser ce calcul la par exemple dans une de mes cellules:

Code:

---

1 2	=('Etudes par fichier'!J10+'Etudes par fichier'!J52+'Etudes par fichier'!J94+'Etudes par fichier'!J136+'Etudes par fichier'!J178+'Etudes par fichier'!J220+'Etudes par fichier'!J262+'Etudes par fichier'!J304+'Etudes par fichier'!J346+'Etudes par fichier'!J388+'Etudes par fichier'!J430)

---

Le problème c'est qu'il peut y avoir plus de cellule a additionné et cela devient trop long et pas très propre, du coup j'ai pensé à une boucle for

Code:

---

1 2 3 4 5 6

my $i = 0; my $etude = 0; for ($i = 10;$i<1000;$i+=42) # les cellules à additionné sont toutes les 42 cases { $etude = $etude+'Etudes par fichier'!J$i; }

---

Mais j'obtient une erreur car visiblement perl ne comprend pas

Code:

---

$etude = $etude+'Etudes par fichier'!J$i;

---

Savez - vous comment je pourrais faire pour réaliser mes calculs, car j'en ai environ 20 à faire.

Merci.

Je suppose que l'objectif est de générer une formule pour la copier-coller par la suite ?

Dans ce cas :

Code:

---

1 2 3 4 5 6 7 8

use strict; use warnings;   my $etude = "="; for (my$i = 10;$i<1000;$i+=42) { # les cellules a additionner sont toutes les 42 cases $etude = $etude . qq('Etudes par fichier'!J$i+); } print substr($etude, 0, -1);

---

Devrait faire l'affaire.

D'un autre côté, tes erreurs semble indiquer que tu espérais un lien entre ton script Perl et ta feuille Excel, ce qui est peu probable...
--
Jedaï

Citation:

---

Envoyé par Jedai

Je suppose que l'objectif est de générer une formule pour la copier-coller par la suite ?

Dans ce cas :

Code:

---

1 2 3 4 5 6 7 8

use strict; use warnings;   my $etude = "="; for (my$i = 10;$i<1000;$i+=42) { # les cellules a additionner sont toutes les 42 cases $etude = $etude . qq('Etudes par fichier'!J$i+); } print substr($etude, 0, -1);

---

Devrait faire l'affaire.

D'un autre côté, tes erreurs semble indiquer que tu espérais un lien entre ton script Perl et ta feuille Excel, ce qui est peu probable...
--
Jedaï

---

Merci beaucoup, c'est parfait. Que la force soit avec toi ^^

Juste je voulais savoir que voulait dire la ligne

Code:

---

my $etude = "=";

---

Citation:

---

Envoyé par shalfat

Juste je voulais savoir que voulait dire la ligne

Code:

---

my $etude = "=";

---

---

Je déclare la variable lexicale $etude et j'y met la chaîne de caractère "=" (donc le = au début de la formule).

Citation:

---

Envoyé par Jedai

Je déclare la variable lexicale $etude et j'y met la chaîne de caractère "=" (donc le = au début de la formule).

---

Merci beaucoup, j'y avais pas pensé mais c'est très logique