XL 2019 User Form

[Debie]

Bonjour,
J'utilise un UserForm avec des choix de liste, de case à cocher et fonction du choix utilisateur, une fois le bouton Valider, cela m'amène sur la bonne feuille d'un classeur.
Sur ce classeur, j'ai un bouton également qui me permet de revenir au userForm.....Sauf que si l'utilisateur a ouvert un autre classeur excel en parallèle, le userform ne s'affiche plus.

Cela doit être très con mais je ne trouve pas.

Merciiiii

 

[Dranreb]

Bonjour.
Vous décrivez en somme un UserForm tel qu'ils fonctionnaient simplement, autrefois, il y a très longtemps, et qui était bien pratique.
Pour ce genre d'UserForm, pour Microsoft, je mets ça en tête :

Option Explicit
         #If VBA7 Then
Private Declare PtrSafe Function GetForegroundWindow Lib "user32" () As Long
Private Declare PtrSafe 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 PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
   (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
   (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
         #Else
Private Declare Function GetForegroundWindow Lib "user32" () As Long
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 GetWindowLong Lib "user32" Alias "GetWindowLongA" _
   (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
   (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
            #End If
Private hWnd As Long

Et plus loin :

Private Sub UserForm_Activate()
   hWnd = GetForegroundWindow
   SetWindowLong hWnd, -8, 0 ' Pour le rendre indépendant de toute autre fenêtre.
   SetWindowPos hWnd, -1, 0, 0, 0, 0, &H43 ' Pour le forcer à rester affiché.
   End Sub

Remarque: Sa propriéte ShowModal doit être à False.

 

[Debie]

Bonjour Dranreb,
Merci pour ta rapidité mais cela ne fonctionne pas.

 

[halecs93]

Bonjour,
J'utilise un UserForm avec des choix de liste, de case à cocher et fonction du choix utilisateur, une fois le bouton Valider, cela m'amène sur la bonne feuille d'un classeur.
Sur ce classeur, j'ai un bouton également qui me permet de revenir au userForm.....Sauf que si l'utilisateur a ouvert un autre classeur excel en parallèle, le userform ne s'affiche plus.

Cela doit être très con mais je ne trouve pas.

Merciiiii

Peut-être en partageant le fichier, on pourrait mieux saisir le souci

 

[Debie]

Peut-être en partageant le fichier, on pourrait mieux saisir le souci

C'est pas faux...
J'ai copié mon ficher en enlevant les données pour des raisons de confidentialité mais voici le souci.
Si j'ouvre le ficher tout seul, en cliquant sur valider, ca marche....Et retour au menu pareil....
Si j'ouvre un autre ficher excel à coté, cela fonctionne plus...

Merciiiii

 

[cathodique]

C'est pas faux...
J'ai copié mon ficher en enlevant les données pour des raisons de confidentialité mais voici le souci.
Si j'ouvre le ficher tout seul, en cliquant sur valider, ca marche....Et retour au menu pareil....
Si j'ouvre un autre ficher excel à coté, cela fonctionne plus...

Merciiiii

Il fallait nous dire que l'application Excel est rendu invisible. Connerie.....

 

[Debie]

ah désolé

 

[halecs93]

C'est pas faux...
J'ai copié mon ficher en enlevant les données pour des raisons de confidentialité mais voici le souci.
Si j'ouvre le ficher tout seul, en cliquant sur valider, ca marche....Et retour au menu pareil....
Si j'ouvre un autre ficher excel à coté, cela fonctionne plus...

Merciiiii

tentative

 

[cathodique]

ah désolé

dans les 2 cas la visibilité de l'application est à false. Revoir ton code à l’initialisation du formulaire.

il me semble qu'il est impossible d'avoir 2 sessions d'excel, une visible et l'autre invisible.

 

[Debie]

dans les 2 cas la visibilité de l'application est à false. Revoir ton code à l’initialisation du formulaire.

il me semble qu'il est impossible d'avoir 2 sessions d'excel, une visible et l'autre invisible.

ok merci, j'ai modifié dans ce sens.