Microsoft 365 UserForm entête masqué - afficher en Me.ShowModal = False

ChTi160

XLDnaute Barbatruc

• 24 Juin 2021

• #2

Bonjour Lionel
Je sais que la méthode d'affichage (Show) du userform selon quelle est modal ou non joue sur la possibilité d'interagir sur la feuille.
A voir donc.
Bonne fin de journée
Jean marie
Ps .ta feuille n'est pas protégée ?

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 24 Juin 2021

• #3

Bonjour Jean-Marie,

Merci pour ton message
NON ma feuille n'est pas protégée,
lionel,

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 24 Juin 2021

• #4

Bonjour Lionel, jeanMarie, le forum

Pour compléter le post de chti160

Par défaut, un UserForm est "modal" ce qui implique que vous ne pouvez pas travailler sur une feuille tant que l'UserForm est ouvert.

En mode "non modal", vous pouvez travailler sur une feuille tout en ayant un UserForm ouvert. Pour cela, ajoutez un "0" à l'ouverture :

Mon_UserForm.Show 0

Astuce VBA : UserForm non modal

Comment travailler sur une feuille Excel tout en ayant un UserForm ouvert en VBA ...

www.excel-pratique.com

@Phil69970

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 24 Juin 2021

• #5

Bonjour Phil69970,
Merci d'être là toi aussi

"En mode "non modal", vous pouvez travailler sur une feuille tout en ayant un UserForm ouvert. Pour cela, ajoutez un "0" à l'ouverture"

C'est ce que j'ai fait mais .... y'a pas moyen il ne veut pas me laisser la main pendant l'affichage le gredin Grrrrrrr!
lionel,

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 24 Juin 2021

• #6

Re
Tu n'as pas un morceau de code qui serait ou remettre ton userform en mode modal?
Regarde dans ton code ini ou act ou ailleurs!
Je poste depuis mon téléphone.
Jean marie

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 24 Juin 2021

• #7

Re-Bonjour Jean-Marie,

Dans le fichier joint il y a plusieurs codes notamment celui qui permet de ne pas afficher l'entête de L'UserForm.
ça prendrait beaucoup de place dans un message.
Tu voudrais télécharger le fichier pour voir, ce serait mieux
@plus,
lionel,

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 24 Juin 2021

• #8

Re

Si j'ai bien compris et sous réserve
La boucle ....

VB:

While Timer < TimeDebut + 3.8
Wend

....ne permet pas de rendre la main à la feuille ce qui me semblerait logique car si elle perd la main elle ne peut plus la reprendre pour arrêter le timer.

@Phil69970

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Juin 2021

• #9

Bonjour Lionel, ChTi160, Phil69970,

Il suffit de mettre DoEvents dans la boucle :

VB:

While Timer < TimeDebut + 6.8
DoEvents
Wend

A+

 

Pièces jointes

• UserForm_test(1).xlsm

  31.5 KB · Affichages: 4

Vote positif 0 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 24 Juin 2021

• #10

Bonjour Gérard,
Gérard est venu et la lumière fut
Mais comment fais-tu ???

Encore MERCI et RESPECT continuel pour tes tours de magie !!!
lionel

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 24 Juin 2021

• #11

Re
Je ne suis toujours pas sur ordi lol
Merci Gérard
Bonne fin de journée
Jean marie

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 24 Juin 2021

• #12

Pas de souci Gérard ma donné la solution.

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 24 Juin 2021

• #13

Re
Comme Dab ! lol
Jean marie

 

Vote positif 0 Vote négatif