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

VBA Discussion :

[VBA]équivalent de display(wait, Titre) & display(end)


Sujet :

VBA

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2006
    Messages
    9
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2006
    Messages : 9
    Par défaut [VBA]équivalent de display(wait, Titre) & display(end)
    Bonjour,

    Je souhaite savoir l'équivalence en VBA les syntaxes suivantes :

    ' afficher le message d'information pendant l'opération (une boucle par exemple)

    display(wait, Titre)


    ' dès la boucle soit terminée, le message disparait

    display(end) en VBA ?

    Merci

    Paul

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Je ne connais pas d'autre moyen que l'affichage temporaire d'un form
    Mais je suis preneur de toute autre solution...

    Je suis...

  3. #3
    Membre Expert
    Avatar de zazaraignée
    Profil pro
    Étudiant
    Inscrit en
    Février 2004
    Messages
    3 174
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Février 2004
    Messages : 3 174
    Par défaut
    Salut

    le MsgBox ferait-il ton affaire?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Dim ReponseMessage As Integer
    ReponseMessage = MsgBox ("Question posée à l'utilisateur", _
                                 vbYesNo, "Titre de la boîte de message")
    Select Case ReponseMessage
      Case vbYes
        ' code du bouton Oui
      Case vbNo
        ' code du bonton Non
    End Select
    La constante vbYesNo défitnit le genre et le nombre de boutons qui apparaitront sur la boîte de message. Pour plus d'infos, cherche MsgBox dans l'aide.

  4. #4
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Salut zaza,
    Le msgbox interromprait une boucle... Non ?

    A+

  5. #5
    Membre Expert
    Avatar de zazaraignée
    Profil pro
    Étudiant
    Inscrit en
    Février 2004
    Messages
    3 174
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Février 2004
    Messages : 3 174
    Par défaut
    Excusez la confusion... Je devais être prise dans une boucle sans fin!

    Salut ouskel'n'or!

    Effectivement, Une fenêtre (UserForm) affichant, sais pas moi... un progressBar ou un truc du genre... C'est ce que tu cherche, dis, Paul1804?

    (heu... au fait, pourquoi 1804? T'est si vieux?)

  6. #6
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2006
    Messages
    9
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2006
    Messages : 9
    Par défaut
    Citation Envoyé par zazaraignée
    Excusez la confusion... Je devais être prise dans une boucle sans fin!

    Salut ouskel'n'or!

    Effectivement, Une fenêtre (UserForm) affichant, sais pas moi... un progressBar ou un truc du genre... C'est ce que tu cherche, dis, Paul1804?

    (heu... au fait, pourquoi 1804? T'est si vieux?)

    salut,

    Peut etre la proposition de ouskel'n'or est la seule solution.

    pour zazaraignée, certaines opérations durent plus longue que d'autres il est plus claire si on affiche un message d'information du genre " Veuillez patienter, le calcul est en cours !" et ce message disparait dès que l'opération aura terminée.

    paul1804 = 18 avril : mon anniversaire

    Merci pour tout

    Paul

  7. #7
    Inactif  
    Avatar de jmfmarques
    Profil pro
    Inscrit en
    Décembre 2005
    Messages
    3 784
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2005
    Messages : 3 784
    Par défaut
    Pourquoi ne pas utiliser tout simplement (et comme on le fait généralement) l'objet Cursor ?

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Media query : rendre invisible un titre avec display
    Par binco dans le forum Mise en page CSS
    Réponses: 3
    Dernier message: 07/04/2014, 21h53
  2. [XL-2010] Macro vba exporter des colonnes selon titres
    Par ron13 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 15/06/2011, 11h48
  3. [XL-2003] VBA problème avec la une boucle for range.end(xlup).row après suppression de lignes
    Par JohnNC115 dans le forum Macros et VBA Excel
    Réponses: 21
    Dernier message: 25/01/2011, 10h21
  4. vba access 2003: Commande Wait et References
    Par beabzh dans le forum VBA Access
    Réponses: 2
    Dernier message: 19/06/2007, 09h54

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