XL 2016 MsgBox personnalisée

Dranreb

XLDnaute Barbatruc

• 8 Août 2019

• #2

Bonsoir.
Il me semble être aussi tombé sur une impossibilité de passer en mode arrêt dans une procédure manipulant un VBComponent. Ce serait dû à ce qu'ainsi mis en chantier, le projet VBA ne serait plus assez cohérent avec son état au moment de la compilation pour pouvoir supporter le fonctionnement des dispositifs de débogage.
Personnellement je préfèrerais consacrer à cela un UserForm conçu préalablement avec suffisamment de boutons passe partout non visibles. Y changer cette propriété, leur position, leur Caption serait plus simple.

 

Dernière édition: 8 Août 2019

Vote positif 0 Vote négatif

Paco974

XLDnaute Nouveau

• 8 Août 2019

• #3

Dranreb à dit:

[
Bonsoir.
Il me semble être aussi tombé sur une impossibilité de passer en mode arrêt dans une procédure manipulant un VBComponent. Ce serait dû à ce qu'ainsi mis en chantier, le projet VBA ne serait plus assez cohérent avec son état au moment de la compilation pour pouvoir supporter le fonctionnement des dispositifs de débogage.
Personnellement je préfèrerais consacrer à cela un UserForm conçu préalablement avec suffisamment de boutons passe partout non visibles. Y changer cette propriété, leur position, leur Caption serait plus simple.

Cliquez pour agrandir...

Je pense que je vais adopter votre solution, beaucoup plus simple à gérer. Je vais encore patienter...et espérer une réponse à la manipulation d'un VBComponent avant de clore cette discussion.

Merci

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Août 2019

• #4

bonjour
un petit exemple de msgbox perso avec un userform

 

Pièces jointes

• faux msgbox sans gestion d'attente.xls

  53 KB · Affichages: 45

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Août 2019

• #5

Bonjour.
Moi j'aurais mis la fonction dans l'UserForm.

 

Vote positif 0 Vote négatif

Paco974

XLDnaute Nouveau

• 8 Août 2019

• #6

patricktoulon à dit:

bonjour
un petit exemple de msgbox perso avec un userform

Cliquez pour agrandir...

Merci

 

Vote positif 0 Vote négatif

Paco974

XLDnaute Nouveau

• 8 Août 2019

• #7

Dranreb à dit:

Bonjour.
Moi j'aurais mis la fonction dans l'UserForm.

Cliquez pour agrandir...

Je n'y avais pas penser, je vais tester cette solution.
Merci

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Août 2019

• #8

J'ai extrait de mon classeur de macros un UFmMsg que j'avais écrit, d'ailleurs assez peu utilisé.

 

Pièces jointes

• UFmMsg.xlsm

  33.8 KB · Affichages: 28

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Août 2019

• #9

le principe est simple comme l'userform est modal rien ne se fait tant qu'il n'est pas déchargé avec hide et on récupère une variable(public DU!!! userform et on ferme le userform
parti de la tout t'est permis comme style de msgbox

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Août 2019

• #10

Moi je considère qu'un UserForm de service doit se suffire à lui même, c'est à dire être équipé de toutes les méthodes et propriétés nécessaires à son utilisation et ne pas faire appel à des procédures externes ni variables Public.

 

Vote positif 0 Vote négatif

Paco974

XLDnaute Nouveau

• 8 Août 2019

• #11

Je suis en train d'écrire le code pour utiliser la fonction via un USF et je reviens vers vous.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 9 Août 2019

• #12

re
un exemple simple

 

Pièces jointes

• msgboxX.xlsm

  22.7 KB · Affichages: 28

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 9 Août 2019

• #13

Bonjour à tous,
Une question que je me pose, quel intérêt de toutes ces usines à gaz
Un Msgbox personnalisé peut n'être rien d'autre qu'un simple UsF... non ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Août 2019

• #14

Bonsoir.
C'est aussi à peu près mon avis.
Un peu comme ce UFmMsg muni d'une méthode Rép

 

Pièces jointes

• Temp.xlsm

  26.7 KB · Affichages: 14

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 9 Août 2019

• #15

Salut l'ami @Dranreb

Ou ceci tout "simplement"

 

Pièces jointes

• MsgBoxPerso_Test.xlsm

  20.2 KB · Affichages: 33

Vote positif 0 Vote négatif