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 à [email protected] pour vous désinscrire
Les archives de la liste sont disponibles à
https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy
