Discussion :

[stdebordeau]

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 :

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

userforme.hide

je souhaiterai garder mon userforme en vue tant que mon classeur est ouvert.
comment puis je faire?
d'avance merci

[Jean-Philippe André]

bonjour,

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

Code :

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

1
2
3
Userform.Hide
'et
Unload UserForm

pour avoir un userform constamment visible il faut mettre la propriété modal à true

[LeForestier]

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 :

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
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+

[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

[LeForestier]

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 :

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
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 :

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

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 :

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

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

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

[stdebordeau]

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 :

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

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 :

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

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