Date: prev next · Thread: first prev next last
2025 Archives by date, by thread · List index


Bonjour,

Ben non, Round ne fait pas partie du Basic standard ! :( La faute à M. Gates ! Qui n'y a pas pensé quand il a créé le Basic, je suppose

Mais on peut se créer sa propre fonction en utilisant quelque chose comme Fix(x +0.5) comme on faisait au début du Basic dans les années 80 et 90. Et on ajoute une multiplication par 10, 100, .. puis une division si l'on veut avoir un nombre de décimales fixe.
Quelque chose du genre
Function Round(Nbr, Dec) As single ' Nbr : nombre à arrondir, Dec : nombre décimales
    Round=fix(nbr*10^dec+0.5)/10^dec
End Function

Bon courage et bonne chance.

Christian

Le 06/01/2025 à 10:59, Bernard Siaud alias Troumad a écrit :
Le 06/01/2025 à 09:00, Patrick Auclair a écrit :
Bonjour à toutes et tous,

Je pense que l'utilisation de "Option VBASupport 1" fait que le système se mélange les pieds entre le VBA et le basic de LO.
C'est, pour moi, ce qui produit l'erreur.
En effet, l'appel de la procédure (Sub) de Yves, par exemple :
SetCommandShortcut( oKeyEvent, strCommandURL1 ) _avec les parenthèses_ fonctionne très bien si l'on fait précéder cela par un Call
(comme prévu dans VBA).
SetCommandShortcut oKeyEvent, strCommandURL1 _sans les parenthèses_ fonctionne également très bien(comme sous VBA).

Je pense que le mélange des langages crée une "cacophonie" qui déplait à LibO.
Pour moi ce n'est pas un bug.

Cordialement,
Patrick

--------------------------------------------------------
Lorsque tu arrives en haut de la montagne, continue de grimper. ;)

Dans mon cas précis, il existe une fonction qui face un arrondi sans passer par le round de VBA ?

Ce serait surprenant qu'une fonction aussi basique n'existe pas sans l'utilisation des fonctions VBA.


--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.