Formater le résultat d'une fonction perso sous VBA Excel

Bonjour à tous,

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

Code:

---

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:

---

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.

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 :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

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

Citation:

---

Evolution = (Encours - Anterieur) / Anterieur

---

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

Code:

---

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:

---

Evolution.NumberFormat = "0.00%"

---

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

Code:

---

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

---

Citation:

---

Envoyé par rdurupt

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 :mrgreen:

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

Citation:

---

Envoyé par rdurupt

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

Code:

---

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.

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

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:

---

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

---

bonjour,

voir fichier joint.

cordialement.

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