Bonjour à tous,
Voici une petite fonction qui calcule une évolution en pourcentage.
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 :
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.
Partager