Discussion :

[fpo13129]

Bonjour je sais et je connais la solution Application.ScreenUpdating = False que j'ai mis en place dans ma nouvelle macro mais voilà l'affaire n'a pas voulu fonctionner ...
lorsque je lance la macro l'exécution est correcte , l'écran ne se met pas à jour , je reste sur le premier formulaire.
mais des que j'ouvre un formulaire bis par la méthode show, la fenêtre est masquée et je n'ai plus de formulaire à l'écran, j'ai une page vide excel, il me faut aller le chercher dans les fenêtre d'excel masquées.
Si je supprime Application.ScreenUpdating = False, je vois mes écrans se mettre à jour et le formulaire bis est correctement affiché à l'écran.

Merci pour votre aide, je n'arrive pas à trouver une solution tout seul.
à bientôt

[Jean-Philippe André]

Salut,

l'instruction qui annule

Code :

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

Application.ScreenUpdating = False

est

Code :

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

Application.ScreenUpdating = True

Est-ce que l'utiliser au moment opportun n'est pas une solution envisageable ici ?

[patmeziere]

Bonjour
la seule solution de vraiment valable dans ce contexte qui est (si j'ai bien compris le truc)je le rappelle:

garder le userform en premier plan avec application.screenupdanting=false

est
l'utilisation des api window (getactivewindow ou findWindow) et avec le handle utiliser SetWindowPos
pour le bloquer au premier plan
patrick

[patmeziere]

du genre comme ceci :

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
'patricktoulon
'a l'ouverture le userform est bloqué en premier plan
#If VBA7 Then
    Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
    Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
#Else
    Private 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
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If
Private Sub UserForm_Activate()
    #If VBA7 Then
        Dim Handle As LongPtr
    #Else
        Dim Handle As Long
    #End If
    Application.ScreenUpdating = False
    Handle = FindWindow(vbNullString, UserForm1.Caption)
    SetWindowPos Handle, -1, 0&, 0&, 0&, 0&, (&H1 Or &H2 Or &H46) 'force l'userform au premier plan
End Sub