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

Macros et VBA Excel Discussion :

Rendre un UserForm invisible ponctuellement


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé Avatar de Oh!Tofocus
    Profil pro
    Inscrit en
    Août 2007
    Messages
    217
    Détails du profil
    Informations personnelles :
    Âge : 60
    Localisation : France

    Informations forums :
    Inscription : Août 2007
    Messages : 217
    Par défaut Rendre un UserForm invisible ponctuellement
    Salut à tous

    Dans le code d'un Userform je fais appel à un Msgbox
    je voudrais pouvoir faire disparaitre l'UserForm pendant le choix de la Msgbox
    pour que l'utilisateur puisse voir la feuille de calcul sous l'Userform.
    j'essaye
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    mon_Userform.visible = False
    MsgBox "admirez la feuille de calcul"
    mon_Userform.visible =True
    mais ça ne marche pas

    Erreur de compilation:
    Nombre d'arguments incorrect ou affectation de propriété incorrecte

    Avez vous une solution ?

  2. #2
    Expert confirmé

    Homme Profil pro
    Inscrit en
    Août 2005
    Messages
    3 317
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2005
    Messages : 3 317
    Par défaut
    bonsoir

    Tu peux tester

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub CommandButton1_Click()
        Me.Hide
        MsgBox "Coucou"
        Me.Show
    End Sub

    michel

  3. #3
    Membre confirmé Avatar de Oh!Tofocus
    Profil pro
    Inscrit en
    Août 2007
    Messages
    217
    Détails du profil
    Informations personnelles :
    Âge : 60
    Localisation : France

    Informations forums :
    Inscription : Août 2007
    Messages : 217
    Par défaut
    OK ça marche
    Merci SilkyRoad

  4. #4
    Membre confirmé Avatar de Oh!Tofocus
    Profil pro
    Inscrit en
    Août 2007
    Messages
    217
    Détails du profil
    Informations personnelles :
    Âge : 60
    Localisation : France

    Informations forums :
    Inscription : Août 2007
    Messages : 217
    Par défaut
    En fait non ça ne marche pas si bien que ça

    la boucle dans laquelle UserForm1.hide & UserForm1.Show sont integrés ne se poursuie pas et on revient à la fenetre initiale

    testez ce code vous comprendrez

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Private Sub CommandButton2_Click()
    For r = 1 To 10
    UserForm1.Hide
    MsgBox "coucou"
    Range("a" & r).Value = r
    UserForm1.Show
    ' ici apres le premier passage le for next est interompu !
    Next r
    End Sub

  5. #5
    Membre éclairé
    Profil pro
    Inscrit en
    Août 2007
    Messages
    95
    Détails du profil
    Informations personnelles :
    Âge : 41
    Localisation : France

    Informations forums :
    Inscription : Août 2007
    Messages : 95
    Par défaut
    Hello,
    je ne sais pas exactement ce que tu cherches à faire mais ton code me paraît assez bizarre.
    Si tu regardes séquentiellement ce qui se passe, tu fais userform.show suivi par userform.hide avec strictement rien au milieu, ce qui ne doit pas servir à grand chose...

    Est-ce que quelque chose du genre:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    Private Sub CommandButton2_Click()
    UserForm1.Hide
    For r = 1 To 10
        MsgBox "coucou"
        Range("a" & r).Value = r
    Next r
    UserForm1.Show
    End Sub
    pourrait te convenir? (je n'ai pas testé, tu me diras si c'est bon??)

  6. #6
    Membre éprouvé
    Inscrit en
    Janvier 2007
    Messages
    132
    Détails du profil
    Informations personnelles :
    Âge : 58

    Informations forums :
    Inscription : Janvier 2007
    Messages : 132
    Par défaut
    Bonjour, essaye avec ça
    Dans un module:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    Global I As Integer
     
    Public Sub Lanceur()
    For I = 1 To 10
    UserForm1.Show
    ' ici apres le premier passage le for next est interompu !
    Next
    End Sub
    Puis
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub CommandButton2_Click()
    UserForm1.Hide
    MsgBox "coucou"
    Range("a" & I).Value = I
    End Sub
    Testé et approuvé
    Slts

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

Discussions similaires

  1. Comment rendre des cellule invisible (inexistante)
    Par pierrot10 dans le forum Général JavaScript
    Réponses: 1
    Dernier message: 26/09/2005, 09h05
  2. Rendre le prog "invisible"
    Par sorry60 dans le forum C++Builder
    Réponses: 3
    Dernier message: 23/03/2005, 12h06
  3. [CF][C#/PPC] Comment rendre la TitleBar invisible ?
    Par Griswold dans le forum Windows Mobile
    Réponses: 6
    Dernier message: 03/03/2005, 09h36
  4. rendre visible ou invisible une picture (icon)
    Par Robleplongeur dans le forum MFC
    Réponses: 3
    Dernier message: 18/05/2004, 12h23
  5. Rendre le curseur invisible sur une fenêtre donnée
    Par Meuhmeuh dans le forum C++Builder
    Réponses: 3
    Dernier message: 22/11/2002, 12h25

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