Transformer une macro VBA pour l'utiliser en Basic pour LibreOffice Calc

Bonjour à toutes et tous.

Je suis novice en Basic.
Suite à des longues recherches pour obtenir une horloge dynamique (horloge actuelle qui s'affiche sur le bureau) sur une feuille de calculs je tombé sur une horloge en VBA.
Je ne veux pas utiliser < l'Option VBA Support 1 > mais un code propre au Basic.

Je demande votre aide pour effectuer la conversion.

D'avance merci


Voici le code :

Dim marche As Boolean

Sub horlogeDynamique()

marche = (Not marche)
Do While marche = True
DoEvents
Range("b4") = Now
Loop

End Sub

Sub horlogeDynamique()
Dim marche As Boolean
marche = (Not marche)
Do While marche = True
DoEvents
Range("b4") = Now
Loop

End Sub

Bonjour mach1974,

Merci pour ta réponse mais le code est toujours en VBA.
Je voudrais un code équivalent en BASIC pour LibreOffice Calc.

Salut.

Pour faire ce genre de chose, il faut passer par un timer.
Ce qui peut se faire simplement en installant l'extension EasyDev

Bonsoir à toutes et tous,

Après quelques recherches, j'ai adapté la macro au format Basic, elle fonctionne.
Cependant en utilisant la formule ci-après pour un tirage aléatoire.

{=INDEX(B7:B13&" "&A7:A13;ALEA.ENTRE.BORNES(1;NBVAL(A7:A13));0)}

Elle s'actualise avec la touche "F9" ou tout simplement en effectuant une action dans le classeur.

Une fois la macro de l'horloge est lancée, le tirage ne s'arrête pas, elle tourne en boucle indéfiniment jusqu'à l'arrêt de la macro.
J'ai constaté que la boucle "Do While => Loop" provoque cette action.

J'ai aussi une autre macro qui faut lancer avec un bouton.
La boucle "Do While => Loop" est présente également.

Je demande votre aide pour remédier à ce phénomène.

D'avance MERCI.


Bonne soirée à toutes et à tous.

Hello,
ben c'est normal que ton tirage se mette en route quand tu mets en oeuvre l'horloge : a chaque fois que tu mets à jour l'heure dans ton classeur cela déclenche un tirage :aie:

:mouarf: Tu n'as pas pris en compte le conseil de Bidouille . Le souci avec le basic c'est qu'il est monotâche. Par contre en utilisant des macros en python ou EasyDev (qui permet d'exécuter du python avec du code Basic) on peut faire du multitâche c'est à dire exécuter plusieurs macros à la fois. Dans ce cas tu pourrais avoir une macro qui tourne en tâche de fond qui affiche l'heure et au lieu d'avoir une formule pour le tirage aléatoire tu pourrais avoir une macro.

Pièce jointe 647012


Ami calmant, J.P

Bonsoir Ami calmant, J.P,

Je suis débutant pour les macros. J'ai réussi à convertir du VBA en Basic (Horloge dynamique).
J'ai apprécié et suivi ton conseil mais pour l'heure, je suis dans l'incapacité de te dire si on peut écrire dans une cellule ou juste obtenir le contenu de celle-ci avec EasyDev.
Ce que tu as rédigé concernant EasyDev est excellent mais n'oublie pas que je débute.

Cependant je souhaiterais savoir si :
- on peut écrire dans une cellule ou juste utiliser sa valeur.
- on peut utiliser les deux langages Basic et Python via EasyDev dans la même sub.

Je te remercie.

Très bonne soirée

Nazée

Hello,

Citation:

---

Envoyé par nazée

B
Cependant je souhaiterais savoir si :
- on peut écrire dans une cellule ou juste utiliser sa valeur.
- on peut utiliser les deux langages Basic et Python via EasyDev dans la même sub.

---

1 - pas de problème pour écrire
2 - Avec EasyDev on utilise seulement le basic. EasyDev fait l'interface avec du python.

En pièce jointe ton classeur avec du code basic qui utilise EasyDev (celui-ci doit être installé).
Dans le classeur on utilise des plages nommées :
1 - Liste des Noms Prénoms -> Noms
2 - Heure affichée -> Heure
3 - Affichage du Prénom Nom tiré aléatoirement -> Tirage

Ami calmant, J.P

Bonjour Ami calmant, J.P,

Je te remercie infiniment pour ces macros qui m'ont permis de voir un peu mieux.
Surtout de ne pas essayer de faire qu'avec des formules.

Je vais approfondir mon utilisation de macros et ton aide m'apporter une bonne motivation.

Merci encore.

Nazée

Bonsoir Ami calmant, J.P,

Je te prie m'excuser car j'étais surchargé de travail ces derniers jours.

Je viens tester la macro "MonHorloge" et elle me retourne une erreur d'exécution (ci-jointe) de scripts manquants.
Cela fait une journée que je cherche à résoudre cette erreur malheureusement sans succès.

Peux-tu s'il te plait m'apporter une nouvelle fois ton aide précieuse ?

D'avance merci.


Nazée

Hello,
Quelle version d'OpenOffice ou de LibreOffice utilises-tu ? et quelle version d'EasyDev ? Sous quel O.S es-tu ?
Ami calmant, J.P

A mon avis, l'auteur lit depuis le départ en diagonale et l'extension n'a pas été installée. :mrgreen:

Bonsoir,

J'utilise LibreOffice 7.6.3.2 avec Windows 10.
J'ai la version 2.7.0 de "EasyDev" dans ma configuration.


Bonne soirée,

Nazée

Re-Bonsoir Ami calmant, J.P,

Excuses-moi.
Je n'avais pas installé la dernière version de "EasyDev". Je viens d'installé la version 2.7.3 et cela fonctionne.

Encore une nouvelle fois désolé et un GRAND MERCI pour ton aide et ce que tu fais.

Je ferme la discussion car tout est bon.

Excellent soirée,

Nazée