Passer un USF ouvert d'un fichier à l'autre

carlos

XLDnaute Impliqué
Supporter XLD
Bonjour,
j'ai crée usf que j'ouvre sur le fichier 1.
Lorsque je passe sur le fichier 2 le usf n'apparait plus alors qu'il y a 2 ou 3 ans cela était possible.
J'ai pourtant mis: USF1.show 0.
Avez vous une réponse à me proposer?
Merci
Carlos
 

Dranreb

XLDnaute Barbatruc
Bonsoir.
Moi aussi je trouve ça très pénible. Avant un UserForm était une fenêtre à part entière, indépendante de toute application pour ce qui était de la gestion de son affichage, et c'était très bien comme ça. Maintenant c'est presque impossible de faire des UserForm non modaux indépendants.
Il y a à la rigueur possibilité avec des API de faire en sorte qu'il reste affiché, mais même alors, en cliquant dessus ça rappelle par derrière la fenêtre à partir de laquelle il avait été ouvert, et je n'ai pas trouvé comment éviter ça.
VB:
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 Sub UserForm_Activate()
   SetWindowPos GetForegroundWindow, -1, 0, 0, 0, 0, 3: End Sub
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas