Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 User Form

  • Initiateur de la discussion Initiateur de la discussion Debie
  • Date de début Date de début
  • Mots-clés Mots-clés
    userform

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Debie

XLDnaute Nouveau
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
 
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 :
VB:
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 :
VB:
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.
 
Peut-être en partageant le fichier, on pourrait mieux saisir le souci
 
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
 

Pièces jointes

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

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
93
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
374
Réponses
2
Affichages
322
Réponses
10
Affichages
770
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…