Discussion :

[Tah-ft]

Bonjour,

J'ai une fonction qui récupère la valeur d'une cellule d'une feuille Excel et retourne cette valeur mise en forme selon le schéma suivant:
- on ajoute ".0" à un entier
- on ajoute un certain nombre de "0" à un nombre décimal afin d'avoir un total de 8 décimales
Si la cellule est vide, on retourne "0.0"

Voici ladite fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
sub real {	
	my $real;
	my $nb = $_[0];
	if ($nb =~ /[+-]?(\d+)\.(\d+)/) {
		$real = substr($1 . "." . $2 . "0000000",0,length($1)+9);
		if ($nb =~ /-\d+/) {
			$real = "-" . $real;
		}
	} elsif ($nb =~ /[+-]?\d+/) {
		$real = $nb . ".0";
	} else {
		$real = "0.0";
	}
	return $real;
}

Tout avait l'air de fonctionner mais j'ai rencontré un problème.
Lorsque la cellule contient 0.00015, j'obtiens comme désiré 0.00015000, mais pour 0.000015 ou 0.0000015, j'obtiens -1.50000000 et je n'arrive pas à trouver la source de cette erreur.
Cela vient peut-être d'Excel et du nombre de décimales, mais une fonction similaire contenue dans une macro en visual basic donnait le bon résultat.

Merci de m'apporter votre aide =)

[Zwiter]

sprintf n'aporterait une solution plus élégante ?

Z.

[Tah-ft]

Ah oui en effet ça a l'air intéressant!
Je vais essayer de faire quelque chose avec.

Merci =)

[Tah-ft]

Je n'arrive pas encore à maîtriser sprintf (ou pack) mais j'imagine que ce serait juste pour remplacer mon substr().
Or, je ne suis pas certain que mon problème vienne de là.

Autre problème : j'obtiens 1e-007.0 dans la cellule contenant le résultat retourné lorsque je souhaiterais avoir 0.00000010, toujours avec la même fonction.

[Tah-ft]

Ok ça marche mieux avec ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
sub real {	
	my $real;	
	my $nb = $_[0];
	if ($nb =~ /[+-]?(\d+)\.(\d+)/) {
		$real = sprintf("%.8f", $nb);
	} elsif ($nb =~ /[+-]?\d+/) {
		$real = $nb . ".0";
	} else {
		$real = "0.0";
	}
	return $real;
}

En effet c'est plus élégant et surtout ça marche mieux!

Il me reste toujours le mystère du 1e-007.0 à élucider =)

Merci.

[Tah-ft]

Je reformule mon problème :

J'ai une cellule contenant 0,0000001 et je souhaite obtenir 0.00000010 dans une autre, mais à la place j'obtiens 1e-007.0

Voici l'appel de ma fonction real :

Code :

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

$Book->Worksheets("param_SF08")->Cells(21,3)->{'value'} = &real($Book->Worksheets("SF08")->Cells(51,3)->{'Value'});

Mon programme est destiné à mettre à jour les cellules si jamais il y avait des modifications en amont, c'est pourquoi je dois utiliser ma fonction real au lieu de simplement corriger le problème à la main.

J'ai aussi essayé de recopier juste le contenu de ma cellule, sans utiliser la fonction, et en modifiant le format de la cellule (format nombre, 8 décimales) j'obtiens 0,00000010. Cela pourrait convenir, sauf que je veux un point à la place de la virgule, et cette méthode ne me parait pas non plus très rigoureuse.

La fonction codée à l'origine en Visual Basic, fonctionnelle, donne ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function reel(nombre)
 
If Len(Abs(nombre) - Int(Abs(nombre))) > 1 Then
    If Sgn(nombre) = -1 Then
        reel = "-" & Int(Abs(nombre)) & "." & Right(Format(Abs(nombre) - Int(Abs(nombre)), "#0.00000000"), 8)
    Else
        reel = Int(Abs(nombre)) & "." & Right(Format(Abs(nombre) - Int(Abs(nombre)), "#0.00000000"), 8)
    End If
Else
    If Sgn(nombre) = -1 Then
        reel = "-" & Int(Abs(nombre)) & ".0"
    Else
        reel = Int(Abs(nombre)) & ".0"
    End If
End If
 
End Function

J'ai toujours pas trouvé de solution rigoureuse à mon problème, et parmi les centaines de cellules utilisant ma fonction real, seule cette cellule me pose problème.

Merci pour votre aide!