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

XL 2016 VBA - Comment savoir dans le code d'un UserForm s'il a été ouvert en vbModal ou vbModeless ?

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Dudu2
  • Date de début Date de début

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 !

S'inscrire

Dudu2

XLDnaute Barbatruc
Bonjour,

La question est dans le titre.

Merci pour toute indication.

Bonne journée.
 
Dernière édition:
Solution
Tu as mis le doigt sur quelque chose d'inattendu !
Si Obj est un Frame TypeOf Obj Is UserForm = True !!!

Je trouve cela très étrange et je ne sais pas si cela fait sens mais je dirais que c'est un bug car le TypeOf Frame existe bel et bien.

Le bon code est donc:
VB: 
'-------------------------------------
'Mode d'affichage du UserForm
'
'- Obj est soit un Control du UserForm
'          soit un UserForm
'
'- Return: vbModal (1)
'          vbModeless (0)
'          Erreur (-1)
'-------------------------------------
Function UserFormShowMode(ByVal Obj As Object) As Integer
    On Error Resume Next
    
    'Cherche l'objet au sommet de la hiérarchie
    Do While Err.Number = 0
        Set Obj =...
Trier par date Trier par votes
En fait j'ai stupidement ramé parce que j'avais pas fait de Err.Clear après la recherche de l'objet au sommet de la hiérarchie et je massérais dans cette erreur. Mais bon finalement, c'est super simple.
 
Vote positif 0 Vote négatif
ben oui c'est simple
c'est ce que j'utilise dans mon placementusf dans mon calendar (on arrete a l'erreur .parent c'est tout)
comme quoi j'ai bien fait de te tarabiscoter quand même
là c'est universel et typeof ou typename bye!!bye!!
 
Vote positif 0 Vote négatif
je vois que tu utilise encore un test typeof pour le -1 au cas ou l'object injecté serait n'importe quoi et n'aboutirais pas a un userform
je l'ai zappé dans ma version me semble t il
mais au moins là c'est bien le dernier des éléments tout en haut de la hiérarchie qui passe dans typeof

les deux font la paire 🤣 🤣
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

  • Question Question
XL 2021 VBA - Comment savoir dans quel mode (vbModal / vbModeless) est affiché un UserForm
3 4 5
Réponses
60
Affichages
1 K
Rheeem
R
  • Résolu(e)
XL 2021 VBA - Comment activer l'Application après avoir affiché un UserForm vbModeless
2
Réponses
28
Affichages
481
patricktoulon
  • Résolu(e)
XL 2016 VBA - Comment savoir si un Handle de Window est celui d'une Window Excel
Réponses
10
Affichages
268
Dudu2
  • Question Question
XL 2010 gestion userform
Réponses
1
Affichages
252
Dranreb
Exporter en pdf ou imprimer un userform en mode photo
Réponses
0
Affichages
115
patricktoulon
  • Résolu(e)
XL 2016 VBA - Question complexe ! Activer la Feuille ou le UserForm selon la position du curseur de la souris
Réponses
5
Affichages
1 K
Dranreb
T
  • Résolu(e)
Microsoft 365 Tester si un fichier est ouvert dans OneDrive
Réponses
2
Affichages
201
ThierryP
T
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
254
mikeduff
M
F
  • Résolu(e)
Microsoft 365 DatePicker dans Userform pour Excel365 ?
Réponses
12
Affichages
596
patricktoulon
N
  • Résolu(e)
Microsoft 365 Optimisation formule recherche valeur en fonction de plusieurs critères
Réponses
5
Affichages
181
Nounours4173
N
A
  • Question Question
XL 2021 Recherche 2 codes en VBA si existe avec mise en couleur
Réponses
1
Affichages
176
job75
A
  • Question Question
Microsoft 365 VBA et "Slicer" dans un TCD (source modèle de données)
Réponses
2
Affichages
140
Amilo
A
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
364
Dégé59
D
  • Résolu(e)
XL 2010 Userform Plein Ecran VBA7
2
Réponses
16
Affichages
533
cathodique
C
  • Question Question
Microsoft 365 Liste déroulante dynamique / dépendante d'un critère ou plus, *sans* VBA ? Une sorte d'Unique à conditions ? + ordre alpha ?
Réponses
8
Affichages
286
JHA
J
J
  • Question Question
Microsoft 365 userform avec contrôle image
Réponses
12
Affichages
350
JULLIEN Philippe
J
L
  • Résolu(e)
Power Query DataSource.Error : Exécution d'une requête dont le fichier source est ouvert
2
Réponses
23
Affichages
501
Leché
L
T
  • Résolu(e)
Microsoft 365 Déverrouiller un projet VBA par code
2
Réponses
20
Affichages
608
ThierryP
T
O
  • Question Question
XL 2021 Conversion d'un CSV
Réponses
5
Affichages
191
dysorthographie
  • Question Question
XL 2021 VBA - Event / RaiseEvent Comment ça marche ? Timer avec SetTimer()
Réponses
8
Affichages
297
Dudu2
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…