fermeture du userform

Version imprimable

26/10/2007, 15h27
stdebordeau

fermeture du userform

salut à tous
mon userform disparaît quand j'exécute l'un de ses boutons. Pourtant je n'ai écris aucune instruction du genre

Code:

userforme.hide

je souhaiterai garder mon userforme en vue tant que mon classeur est ouvert.
comment puis je faire?
d'avance merci
26/10/2007, 15h38
Jean-Philippe André
bonjour,

les deux principales (seules) fonctions pour faire disparaitre un userform sont :
Code:

1 2 3 Userform.Hide 'et Unload UserForm
pour avoir un userform constamment visible il faut mettre la propriété modal à true

Bonjour,
Si ton bouton active une feuille ou un autre UF c'est normal que le premier 'disparait', il passe au second plan.
Je ne sais pas si en VBA il y à la commande Zordre, ou alors ce devrait être possible par API pour le maintenir 'Audessus' des autre feuilles..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'DANS UN MODULE
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOMOVE = 2
Public Const SWP_NOSIZE = 1
Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
 
Public Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
 
'
'Place une forme en permanence (presque) au dessus du bureau.
'Mode = true la forme est au dessus du bureau, si False positionnement normal
'
Sub PlaceDessus(Fr As Form, Mode As Boolean)
Dim e As Integer
Dim i As Long
    If Mode Then
         i = SetWindowPos(Fr.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
    Else
         i = SetWindowPos(Fr.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
    End If
End Sub

Remplacer Form par UserControl
A+

26/10/2007, 16h18
stdebordeau

j'ai essayé mais le userform disparaît toujours.
mon bouton active effectivement une autre feuille, mais même lorsque je revient sur la feuille d'origine le userform est absent. quant à la propriété showmodal lorsque je la met true il m'est impossible d'accéder aux feuilles derrières le userform, ce qui ne m'arrange pas.

je n'ai pas très bien compris lorsque vous dites de remplacer form par usercontrol. quand j'écris "form as " la liste déroulante qui s'affiche ne contient pas usercontrol

Pour un UserForm il n'y a pas de hwnd, j'ai modifié légèrement le code
Testé, le UF reste au dessus des feuilles excel, tu peu le déplacer et écrire sur les feuilles.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
'COLLER DANS UN MODULE
Option Explicit
 
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOMOVE = 2
Public Const SWP_NOSIZE = 1
Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
 
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
 
Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, _
    ByVal wCmd As Long) As Long
Declare Function GetFocus Lib "user32" () As Long
 
'
'Place une forme en permanence (presque) au dessus du bureau.
'Mode = true la forme est au dessus du bureau, si False positionnement normal
'
Sub PlaceDessus(Fr As Long, Mode As Boolean)
Dim e As Integer
Dim i As Long
    If Mode Then
         i = SetWindowPos(Fr, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
    Else
         i = SetWindowPos(Fr, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
    End If
End Sub

Placer dans le UserControl

Code:

1
2
3
4
5
Private Sub UserForm_Activate()
    Dim hwnd As Long
    hwnd = GetFocus
    PlaceDessus hwnd, True
End Sub

Placer dans la 1er feuille

Code:

1
2
3
Private Sub Worksheet_Activate()
    UserForm1.Show 0
End Sub

J'ai testé, ca fonctionne..
A+

merci pour votre aide. mais il y'a toujours un problème
mon programme crée à chaque fois une nouvelle feuille qui devient la première.
j'ai essayé votre code avec la modification suivante:
au lieu d'insérer dans la première feuille(qui en fait ne la sera plus)
Code:

1 2 3 Private Sub Worksheet_Activate() userform1.Show 0 end sub
j'ai ajouté après la création de la feuille ("capcod") le code suivant:
Code:

1 2 3 4 5 6 7 8 9 10 proc = "Private Sub Worksheet_Activate()" & vbCrLf proc = proc & "userform1.Show 0" & vbCrLf proc = proc & "end sub" Sheets("capcod").Activate With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule ligne = .CountOfLines + 1 .InsertLines ligne, proc End With
à l'exécution excel plante complètement et se ferme

bonjour,

essaye ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Option Explicit
Dim Ws As Worksheet
Sub ajoute_fl()
 
Set Ws = Worksheets.Add
Call creationmacro
End Sub
Sub creationmacro()
Dim proc
Dim ligne
proc = "Private Sub Worksheet_Activate()" & vbCrLf
proc = proc & "userform1.Show 0" & vbCrLf
proc = proc & "end sub"
 
 With ThisWorkbook.VBProject.VBComponents(Ws.Name).CodeModule
        ligne = .CountOfLines + 1
        .InsertLines ligne, proc
    End With
End Sub

27/10/2007, 13h40
ouskel'n'or

Citation:

Envoyé par stdebordeau

mon userform disparaît quand j'exécute l'un de ses boutons

De quel bouton parles-tu ?
Le code du bouton, peut-être...
A+

Dans la macro qui ajoute une feuille tu ajoute le code suivant
Code:

1 2 3 4 5 Sub AjouteFeuille() Sheets.Add 'feuille ajoutée ou copiée... Sheets("capcod").Activate 'le nom de la feuille où il y a l'appel Sheets(1).Activate 'Réactive la nouvelle feuille End Sub
Le UF est de nouveau au dessus des autres.
Pour éviter des rappels non nécessaires j'ai modifié dans la feuille capcod...
Code:

1 2 3 4 5 Private Sub Worksheet_Activate() If Not UserForm1.Visible Then UserForm1.Show 0 End If End Sub
A+

Cette discussion va dans tous les sens ? Et si on reprenait au début ?
Quel est le problème de départ ?
Que veux-tu faire ? Accéder aux feuilles de calculs, ça, pour ma part j'ai compris et ShowModal = False le permet
Pourquoi faire ? Sélectionner une plage de cellule dans une feuille quelle qu'elle soit ? La ligne suivante le permet.

Code:

Set Plage = Application.InputBox("Sélectionner une cellule, une colonne, plusieurs...",Type:=8)

Maintenant, si c'est pour écrire dans une cellule, alors il te faut un bouton dans la feuille pour revenir sur ton userform
Pour créer une nouvelle feuille, puis créer un bouton dans cette feuille, puis écrire le code du bouton dans la feuille de code de la feuille ajoutée, c'est
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Sub Test() Dim FL As Worksheet Dim Proc(3), X, Y, H, L Dim LeBouton, NomBouton Set FL = ThisWorkbook.Worksheets.Add X = 400 Y = 20 H = 35 L = 100 Set LeBouton = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _ , DisplayAsIcon:=False, Left:=X, Top:=Y, Width:=L, Height:=H) NomBouton = ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name Proc(1) = "Private Sub " & NomBouton & "_Click()" Proc(2) = " userform1.Show" Proc(3) = "end sub" With ThisWorkbook.VBProject.VBComponents(FL.Name).CodeModule For i = 1 To 3 ligne = .CountOfLines + 1 .InsertLines ligne + i, Proc(i) Next End With End Sub
Est-ce que c'est ce que tu veux faire ? Parce que là... je ne sais pas où tu en es :(

merci a tous pour l'aide que vous essayez de m'apporter. mais je ne m'en sort toujours pas.
pour rappel ce que je souhaite c'est de garder mon userform bien en vue tant que mon classeur est ouvert et de pouvoir accéder aux feuilles derrière le userform sans problèmes. mon userform contient un bouton qui déclanche certaines procédures. seulement dès qu'elles finissent de s'exécuter le userform disparaît. je veux qu'il reste afficher sans avoir à créer un bouton sur la feuille pour le faire réapparaître.

je vais donc expliciter l'essentiel du programme pour vous permettre de mieux m'aider

j'ai un userform qui contient un combobox permettant de choisir 4 méthodes de provisionnement en actuariat et un bouton d'exécution de la méthode. chaque méthode qui implique de nombreux calculs est réalisée dans un module séparé. à l'exécution, des feuilles sont créées suivant le besoin de la méthode choisie. le problème est de garder le userform en vue pour changer très rapidement de méthode quand on le souhaite (créer un bouton de rappel du userform sur la feuille serait encombrant puisque les feuilles sont suurchargées de chiffres)

j'ai essayé le code de LeForestier mais à l'exécution excel plante complètement. le voici. je le présente tel qu'il est inséré dans le module consacré à la méthode "capcod" mais le code est similaire pour les autres méthodes.

la procédure suivante crée les feuilles et boutons nécessaires pour la méthode capcod

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub cap() 
 
Dim fe1 As Worksheet
Dim btcap1 As OLEObject 'premier bouton sur la feuille
Dim btcap2 As OLEObject  'deuxième bouton sur la feuille
 
Workbooks("module de provisionnement").Activate  'classeur dans lequel je travaille
Sheets(1).Activate
Set fe1 = Sheets.Add
fe1.Name = "capcod"   'ajout de la feuille "capcod"
Set btcap1 = fe1.OLEObjects.Add("Forms.Commandbutton.1") 'ajout du premier bouton dans "capcod"
btcap1.Name = "boutoncap1"
Set btcap2 = fe1.OLEObjects.Add("Forms.Commandbutton.1") 'ajout du deuxième bouton dans "capcod"
btcap2.Name = "boutoncap2"
 
With btcap1
        .Left = 500 'position horizontale
        .Top = 15 'position verticale
        .Width = 80 'largeur
        .Height = 30 'hauteur
        .Object.BackColor = RGB(235, 235, 200) 'Couleur de fond
        .Object.Caption = "Executer"
    End With
 
With btcap2
        .Left = 500 'position horizontale
        .Top = 300 'position verticale
        .Width = 80 'largeur
        .Height = 30 'hauteur
        .Object.BackColor = RGB(235, 235, 200) 'Couleur de fond
        .Object.Caption = "Executer"
    End With
 
End Sub

et ci dessous la procédure qui définie les actions des deux boutons insérés dans "capcod" et le code de Leforestier pour garder le userform en vue

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub proce() 
Dim proc As String
 
'exécute des procedures situées dans un module nommé capcod
proc = "sub boutoncap1_click()" & vbCrLf
proc = proc & "capcod.reperage" & vbCrLf
proc = proc & "capcod.chainladder" & vbCrLf
proc = proc & "capcod.lossratios" & vbCrLf
proc = proc & "end sub"
 
'insère le code du premier bouton dans la feuille "capcod"
Sheets("capcod").Activate
 With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
        ligne = .CountOfLines + 1
        .InsertLines ligne, proc
    End With
 
'même chose que précédemment pour le deuxième bouton
proc = "sub boutoncap2_click()" & vbCrLf
proc = proc & "capcod.cape" & vbCrLf
proc = proc & "end sub"
 
Sheets("capcod").Activate
  With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
        ligne = .CountOfLines + 1
        .InsertLines ligne, proc
    End With
 
 
'code de LeForestier pour garder le userform au dessus
proc = "Private Sub Worksheet_Activate()" & vbCrLf
proc = proc & "If Not UserForm1.Visible Then" & vbCrLf
proc = proc & "userform1.Show 0" & vbCrLf
proc = proc & "end if"
proc = proc & "end sub"
 
Sheets("capcod").Activate
 With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
        ligne = .CountOfLines + 1
        .InsertLines ligne, proc
    End With
 
 
End Sub

et dans un module (code de LeForestier)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Explicit
 
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOMOVE = 2
Public Const SWP_NOSIZE = 1
Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
 
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
 
Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, _
    ByVal wCmd As Long) As Long
Declare Function GetFocus Lib "user32" () As Long
 
'
'Place une forme en permanence (presque) au dessus du bureau.
'Mode = true la forme est au dessus du bureau, si False positionnement normal
'
Sub PlaceDessus(Fr As Long, Mode As Boolean)
Dim e As Integer
Dim i As Long
    If Mode Then
         i = SetWindowPos(Fr, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
    Else
         i = SetWindowPos(Fr, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
    End If
End Sub

à l'exécution excel plante et se ferme

j'oubliai
dans le userform (code de LeForestier)

Code:

1
2
3
4
5
Private Sub UserForm_Activate()
    Dim hwnd As Long
    hwnd = GetFocus
    PlaceDessus hwnd, True
End Sub

29/10/2007, 13h29
ouskel'n'or

Qu'est-ce qui fonctionne ? Qu'est-ce qui plante ? Sur quelle ligne ? Quel message ?
30/10/2007, 18h48
stdebordeau

lorsque je choisis une méthode et que j'exécute la méthode en cliquant sur le bouton du userform, excel reste inerte quelques seconde (impossible de faire qcq chose à l'écran) puis se ferme tout seul et le message qui apparaît me demande si je désire envoyer un rapport d'erreur à microsoft. je clique sur ne pas envoyer, et excel se relance tous seul en me demandant si je veux enregistrer la version du document récupéré automatiquement.
31/10/2007, 08h32
ouskel'n'or

Alors mets un point d'arrêt sur la première ligne de la première macro puis déroule ta macro en pas par pas en suivant l'avancement de la macro.
La ligne qui plante est la première qui ferme Excel, celle qui ne s'exécute pas (!)
Une fois repérée, tu nous dis ;)
A+