Discussion :

[miron_fds]

Bonjour à tous,

Voici une petite fonction qui calcule une évolution en pourcentage.

Code :

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

1
2
3
4
5
6
Function Evolution(Encours, Anterieur)
 
Evolution = (Encours - Anterieur) / Anterieur
Selection.NumberFormat = "0.00%"
 
End Function

Je souhaiterais la mettre en forme directement à la suite du calcul. Malheureusement, la syntaxe que j'ai ajoutée en fin de code (Selection.NumberFormat = "0.00%"
) ne fonctionne pas.

De plus j'ai déjà testé la solution :

Code :

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

evolution = formatnumber ((Encours - Anterieur) / Anterieur,2) & "%"

L'inconvénient c'est qu'il me retourne le résultat en texte. (Cela ne m'intéresse pas vraiment).

Si qqun peut m'aider merci bcp par avance.

[Marc-L]

Bonjour,

comme précisé par la dernière phrase de l'introduction du tutoriel Les fonctions personnelles dans Excel, ce n'est pas possible …


_______________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Invité]

Bonjour,
Abord on ne fait jamais de division dans vb ou presque

Evolution = (Encours - Anterieur) / Anterieur

Imaginons =>(Encours - Anterieur) =0 =>0/ Anterieur = err
Imaginons=> Anterieur=0 =>1/ Anterieur=err

Code :

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

1
2
3
4
5
6
If Anterieur=0 then
	Evolution=0
Else
	Evolution = (Encours - Anterieur) * (1/ Anterieur)
 
End if

De plus si tu passes une cellule en paramètre, autant l’utiliser :

Code :

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

Evolution.NumberFormat = "0.00%"

Et maitenant si tu veux que ton format soit pris en compte le faire avant de donner la valeur :

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
Function Evolution(Encours As Range, Anterieur)
Dim Myval As Range
Set Myval = Encours
 Myval.NumberFormat = "0.00%"
If Anterieur = 0 Then
    Myval = 0
Else
    Myval = (Encours - Anterieur) * (1 / Anterieur)
End If
 
End Function
Sub test()
ActiveCell = 50
Evolution ActiveCell, 100
End Sub

[Guiiand]

Bonjour,
Abord on ne fait jamais de division dans vb ou presque

Imaginons =>(Encours - Anterieur) =0 =>0/ Anterieur = err

Désolé de te contredire, mais c'est faux, rouvre tes bouquins de maths

0/x = 0 et non erreur. Il y a une erreur uniquement si le diviseur, ici Anterieur, est égal à 0

Imaginons=> Anterieur=0 =>1/ Anterieur=err

Code :

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

1
2
3
4
5
6
If Anterieur=0 then
	Evolution=0
Else
	Evolution = (Encours - Anterieur) * (1/ Anterieur)
 
End if

Ici aussi il y a une erreur.

1/0 => est une forme indéterminée et donne +/- l'infini.
De plus, Evolution = (Encours - Anterieur) * (1/ Anterieur) donnera une erreur de la meme maniere.

[miron_fds]

Le code fonctionne avec la procedure de test.
Cependant la fonction me renvoie #valeur! qd je l'utilise directement ds excel ce que je souhaite faire ...

[Invité]

Bonjour Guiiand,
Il semble que ton conseille soit judicieux, je vais faire une expédition à la cave pour retrouver mes livres sous la poussière.
miron_fds ta fonction ne retourne rien donc c’est normal :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function Evolution(Encours As Range, Anterieur)
Dim Myval As Range
Set Myval = Encours
 Myval.NumberFormat = "0.00%"
If Anterieur = 0 Then
    Myval = 0
Else
    Myval = (Encours - Anterieur) * (1 / Anterieur)
End If
 Evolution = "OK"
End Function

[nibledispo]

bonjour,

voir fichier joint.

cordialement.

[miron_fds]

Je ne veux pas que les valeurs soit choisi arbitrairement mais par selection avec la souris comme une formule.