[VBA-E] excel minimisé mais user form visible

**bill7** · 21/04/2007, 12h01

Bonjour,
je voudrais créer une appli dans laquelle la communication avec l utilisateur se fait via une (des) userforms.
Mais je voudrais qu'une fois l appli lancée, la fenetre principale excel se minimise en barre des taches, mais pas ma userform. Je veux que pendant que mon appli tourne je puisse ouvrir un autre fichier excel pour travailler dessus.
Jusqu'à présent j'ai trouvé des exemples qui rendent invisible (je veux pas ça) ou réduisent excel mais aussi ma userform en meme temps (je veux pas non plus).
Merci de votre aide,
Benoit

**SfJ5Rpw8** · 21/04/2007, 12h09

un simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub UserForm_Initialize()
  Application.WindowState = xlMinimized
End Sub

c'est pas bon ..?

**AlainTech** · 21/04/2007, 12h21

Envoyé par bill7

Je veux que pendant que mon appli tourne je puisse ouvrir un autre fichier excel pour travailler dessus.

Pour ça, l'idéal est d'ouvrir une autre instance d'Excel.

**bill7** · 21/04/2007, 12h37

pas mal bbil, mais ça me réduit aussi ma userform, et elle je ne veux pas qu elle soit minimisée ! ...

**SfJ5Rpw8** · 21/04/2007, 13h01

A bon pas chez moi - quelle est ta version d'Excel ?

**bill7** · 21/04/2007, 13h17

ma version est 2002 (10.2614.2625)

code du bouton qui lance ma usf; le bouton est sur une feuille du classeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub go_Click()
    demarrer
    While CONTINUER       
        Application.WindowState = xlMinimized
         Load UserForm1
        UserForm1.Show
    Wend
    Application.WindowState = xlMaximized
End Sub

Quand je clique, tout se réduit en barre des taches y compris le user form; si je clique sur la tache user form en bas, ça me l affiche en taille normale mais ça réaffiche aussi la fenetre excel derriere.
Je devrais peut être rajouter une instruction dans l initialisation de ma usf pour lui dire d'avoir une taille normale ?

**SfJ5Rpw8** · 21/04/2007, 13h25

pourquoi .. Visible ...? essai sans .. et place dans l'initiate de ton userform le code proposé...

à coté de cela ... à quoi sert ta boucle ...?

**bill7** · 21/04/2007, 13h43

pardon j avais essayé autre chose , mais j ai corrigé mon message apres quand je me suis aperçu.
Bon au clic sur le bouton dans ma feuille excel, j'ai tout qui passe en barre des taches (un bouton excel) et je dois cliquer dessus pour que ma user form apparaisse.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub go_Click()
    demarrer
    While CONTINUER             
        Load UserForm1
        UserForm1.Show
    Wend
    Application.WindowState = xlNormal
End Sub

code init de ma usf :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Initialize()
    Application.WindowState = xlMinimized
End Sub

Important : quand je fais mon clic bouton et que l editeur vba est ouvert (mode création) tout baigne, ça marche. Mais quand VBA est pas ouvert ça fait comme je t ai dit plus haut.
Je peux pas rajouter une instruction apres l initialisation de ma user form pour lui dire d avoir une taille normale ?

Ma boucle me permettra de passer d'une userform à une autre en passant par le meme point d entree.

**ouskel'n'or** · 21/04/2007, 16h40

Chuis comme bbil, je ne comprends pas ta boucle (en rouge dans le lien) et ta réponse ne nous éclaire pas, sauf si tu ne nous mets pas tout le code tel qu'il est "réellement" dans ton clic
Relis ce que je t'ai mis sur l'autre discussion

A+

**bill7** · 21/04/2007, 17h15

Voici le resultat que je veux :
exempleAppliAnglais.doc

Quant au code, j'ai supprimé la boucle, pour l instant elle ne sert à rien.
Voici donc le code du bouton Go de ma feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub go_Click()
    demarrer
    Load UserForm1
    UserForm1.Show
    Application.WindowState = xlNormal
End Sub

le code de demarrer dans un module:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub demarrer()
    CONTINUER = True
End Sub

le code de ma userform:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
    Application.WindowState = xlMinimized    
    nbQuestions = WorksheetFunction.CountA(Worksheets("phrases").Range("a:a"))
    initNoSeq
    Sheets("memoire").Cells.ClearContents
    etatQuestion
End Sub

le code initnoseq dans un module:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub initNoSeq()
    NO_SEQ = 0
End Sub

le code etatQuestion dans mon user form:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub etatQuestion()
    lib.Caption = "réponse R       suivant S       précédent P       menu M"
    Randomize
    numQuestion = Int((nbQuestions * Rnd) + 1)
    question.Caption = Sheets("phrases").Cells(numQuestion, 1)
    reponse.Caption = ""
    empile (numQuestion)
End Sub

Et donc mon problème : quand je clique sur le bouton c est que tout passe en bas y compris ma user form. Je vous envoie mon classeur (iciAnglais.zip), il n y a pas de brevet dessus.

**ouskel'n'or** · 21/04/2007, 20h07

J'ai vu ton fichier mais il n'apporte rien. Par contre, ton code, lui explique une chose : Ta ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Application.WindowState = xlMinimized

est placée dans l'userform et ça, je pense que c'est pas bien

Tu dois avoir une macro dans un module standard qui ouvre le 1er userform.
Place cette ligne dans cette macro, avant ouverture de l'userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Ouvrir()
    Application.WindowState = xlMinimized
    Load UserForm1
    UserForm1.Show
    Application.WindowState = xlNormal
End Sub

**bill7** · 21/04/2007, 20h59

Non, ça ne change rien

: en mode débug ça fonctionne (le clic sur mon bouton réduit bien excel mais la form apparait), mais en mode normal je dois cliquer sur excel minimisé en barre des taches pour que ma form aparaisse.
Si quelqu'un a une idée voici le classeur, il n'y a qu à cliquer sur le bouton "go"
Anglais.zip

**ouskel'n'or** · 21/04/2007, 22h19

J'ai testé et ça fonctionne chez moi. A tout hasard, as-tu pensé d'éliminer le "minimized" de tout le code de ton userform ?

**bill7** · 21/04/2007, 22h31

J'ai créé une userform2 avec rien dedans, et si c est elle que je lance ça me donne le meme résultat : apres le clic bouton tout se minimise en 1 bouton excel en barre de tache, je dois cliquer sur ce bouton de la barre des tâches pour afficher la form. Donc ça vient pas du code de ma form.
Ca marchait aussi chez bbil ... ?

**ouskel'n'or** · 21/04/2007, 22h43

Ok, ton bouton se trouve sur ta feuille de calcul. Je n'ai pas vu que tu l'aies indiqué.
J'ai donc placé le bouton dans une barre d'outils et ce code fonctionne.
de même que Application.visible = false... et true

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub ouvreUSF()
    demarrer
    'Application.Visible = False
    Application.WindowState = xlMinimized
    'While CONTINUER
        Load UserForm1
        UserForm1.Show
    'Wend
    'Application.Visible = True
    Application.WindowState = xlMaximized
End Sub

A+

**ouskel'n'or** · 21/04/2007, 22h48

Une autre solution qui fonctionne
Dans le clic du bouton placé dans la feuille de calculs, tu peux tester ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub go_Click()
     Application.Run "anglais.xls!ouvreUSF"
End Sub

et dans le module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub ouvreUSF()
    demarrer
    Application.WindowState = xlMinimized
        Load UserForm1
        UserForm1.Show
    Application.WindowState = xlMaximized
End Sub

Tu dis

**bill7** · 21/04/2007, 22h58

je ne sais pas mettre le bouton dans une barre de calcul, et ce n'est pas ce que je veux (mais bon je veux bien essayer). Par contre pour essayer, j appelle ouvreUSF à l ouverture du classeur (dans le code de thisWorkbook) sans passer par le bouton et ça change rien au résultat.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
    ouvreUSF
End Sub

**ouskel'n'or** · 21/04/2007, 23h08

Regarde ma dernière réponse, elle fonctionne depuis un bouton placé dans la feuille de calculs

**bill7** · 21/04/2007, 23h09

non, ton autre solution avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Run "anglais.xls!ouvreUSF"

non plus ne change rien à mon résultat ...

**ouskel'n'or** · 21/04/2007, 23h19

Je n'insiste pas.

Tiens, puisque j'ai fait tout ça, au moins que ce ne soit pas pour rien
Pièce jointe 12447

[VBA-E] excel minimisé mais user form visible

Macros et VBA Excel

Discussions similaires

Partager

Partager