Discussion :

[nazée]

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

[mach1974]

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

End Sub

[nazée]

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.

[Bidouille]

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

[nazée]

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.

[jurassic pork]

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

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.




Ami calmant, J.P

[nazée]

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

[jurassic pork]

Hello,

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

[nazée]

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

[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

[jurassic pork]

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

[Bidouille]

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

[nazée]

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

[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