PB Msgbox

[sacapatates]

Bonjour,

Mon application cache excel au démarrage avec application.visible= false.

J'ai plusieurs userforms avec des zones de saisi et des contrôles qui lance des msgbox quand il y a des erreurs de saisi par exemple.

Mon problème est que quand le msgbox se lance, l'userform se cache.
Et quand je ferme le msgbox, mon userform réapparait, mais je voudrais trouver un moyen pour que le userform reste affiché.

Sachant que je n'ai pas ce problème si je ne cache pas excel.

Merci.

 

[sacapatates]

Re : PB Msgbox

Je viens de recréer un classeur pour tester, à priori ce n'est pas le application.visible= false qui cause le problème.

 

[Dull]

Re : PB Msgbox

Salut sacapatates, Jean-Marcel, le Forum,

As tu un

Me.Hide[COLOR=Green] ' ou UserForm1.Hide[/COLOR]

avant

MsgBox "......."

et un

UserForm1.Show

juste après

Si c'est le cas supprimes les et ça devrait aller

Bonne Journée

 

[sacapatates]

Re : PB Msgbox

@Jean-marcel: non je n ai pas mis de
application.screenupdating=false
Je n ai pas le droit de faire circuler le fichier excel...... même si j épure ....

@dull: non plus ^^

Merci

 

[sacapatates]

Re : PB Msgbox

J'ai aussi dans mes userform qui permet de réafficher/cacher excel à tout moment

Dim hwnd As Long
If voirexcel = True Then 'voirexcel est un boolean declaré en global
voirexcel = False
Application.Visible = False
Else
voirexcel = True
Application.Visible = True

hwnd = FindWindow(vbNullString, Me.Caption) 'reduire l'userform pour l avior en bas a gauche
ShowWindow hwnd, 2
End If

J'ai aussi des déclaration en début de chaque userform qui permet de réduire le userform

Private Declare Function SetWindowLong& Lib "User32" Alias "SetWindowLongA" (ByVal hwnd&, ByVal nIndex&, ByVal dwNewLong&)
Private Declare Function ShowWindow& Lib "User32" (ByVal hwnd&, ByVal nCmdShow&)


Private Declare Function FindWindowA& Lib "User32" _
    (ByVal lpClassName$, ByVal lpWindowName$)
Private Declare Function EnableWindow& Lib "User32" _
    (ByVal hwnd&, ByVal bEnable&)
Private Declare Function GetWindowLongA& Lib "User32" _
    (ByVal hwnd&, ByVal nIndex&)
Private Declare Function SetWindowLongA& Lib "User32" _
    (ByVal hwnd&, ByVal nIndex&, ByVal dwNewLong&)

Private Sub UserForm_Initialize()
    Dim hwnd As Long
    
    hwnd = FindWindowA(vbNullString, Me.Caption)
    SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) Or &H20000
End Sub
 
 
Private Sub UserForm_Activate()
    Dim hwnd As Long
    
    hwnd = FindWindowA("XLMAIN", Application.Caption)
    EnableWindow hwnd, 1
End Sub

Est ce que ca peut etre la cause de mon souci ?

merci