Discussion :

[shalfat]

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 :

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

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 :

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

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 :

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

$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.

[Jedai]

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

Dans ce cas :

Code :

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

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ï

[shalfat]

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

Dans ce cas :

Code :

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

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 :

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

my $etude = "=";

[Jedai]

Juste je voulais savoir que voulait dire la ligne

Code :

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

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).

[shalfat]

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