IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

OpenOffice & LibreOffice Discussion :

Fenêtre affichant l'état d'avancement


Sujet :

OpenOffice & LibreOffice

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    Août 2010
    Messages
    57
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 57
    Points : 41
    Points
    41
    Par défaut Fenêtre affichant l'état d'avancement
    Bonjour,
    Dans une procédure, plusieurs macros s’exécutent séquentiellement.
    J'aimerai pouvoir afficher (dans une fenêtre qui reste affichée) le nom de chaque macro qui s’exécute (une par ligne).
    Un peu comme une check-liste.
    Est-il possible de faire cela sous libreoffice
    Merci de votre aide.

  2. #2
    Rédacteur

    Avatar de zoom61
    Homme Profil pro
    ...
    Inscrit en
    Janvier 2005
    Messages
    9 429
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Vienne (Limousin)

    Informations professionnelles :
    Activité : ...
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2005
    Messages : 9 429
    Points : 58 222
    Points
    58 222
    Billets dans le blog
    11
    Par défaut
    Avec ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
     
    Sub IndiquerProgression()
        Dim monDocument As Object, avance As Object, i As Long
        monDocument = ThisComponent 
        monDocument.lockControllers
        avance =  monDocument.CurrentController.StatusIndicator
        avance.start( "Attendez svp ...", 100 ) 
        For i = 1 To 5
          avance.Value = i
          avance.Text = "Texte qui apparaît..." & i
          'Permet de voir le résultat
          Msgbox "Essai"
        Next 
        avance.Text = "Terminé !"
        avance.end 
        monDocument.unlockControllers
    End Sub
    L'avancement sera visible en dessous des onglets.

  3. #3
    Membre du Club
    Profil pro
    Inscrit en
    Août 2010
    Messages
    57
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 57
    Points : 41
    Points
    41
    Par défaut
    Bonsoir,

    Merci de ton aide Zoom61.
    J'ai essayé ton code, il fonctionne mais ce n'est pas exactement ce dont j'ai besoin.
    Par ailleurs je suis obligé de clore ce sujet pour des raisons d'obligation familiales.
    Désolé de t'avoir dérangé inutilement, je reviendrai lorsque j'aurai plus de temps libre.
    Encore merci, à bientôt.

Discussions similaires

  1. Afficher l'état d'avancement d'un traitement
    Par felix79 dans le forum Wicket
    Réponses: 7
    Dernier message: 22/06/2011, 14h04
  2. Afficher une barre d'avancement dans une fenêtre
    Par Olivier.p dans le forum VBScript
    Réponses: 8
    Dernier message: 05/08/2010, 17h01
  3. [WD10] Afficher un état dans une fenêtre MDI mère
    Par GodGives dans le forum WinDev
    Réponses: 0
    Dernier message: 05/04/2010, 13h35
  4. Comment afficher un état d'avancement (Record en cours)
    Par Godzestla dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 19/05/2008, 10h36
  5. Afficher la fenêtre Preview d'état
    Par ERGOL dans le forum Access
    Réponses: 1
    Dernier message: 25/05/2006, 18h17

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo