VBA - MsgBox personnalisé paramétrable en taille et couleur de texte, de boutons et en position V12

[Dudu2]

Dudu2 a soumis une nouvelle ressource:

VBA - MsgBox paramétrable en taille et couleur de texte - VBA - MsgBox configurable in text size and color

Le fichier à télécharger contient:

1. Le UserForm SimpleMsgBoxPerso à importer dans le projet VBA.
2. Le Module_Test comme exemple de mise en œuvre.

Les principales caractéristiques:

• Permet d'afficher l'équivalent d'un MsgBox standard pour les valeurs de boutons de 0 à 768 (saufs parametres helpfile & context).
  Voir...

En savoir plus sur cette ressource...

 

[Sined69]

Dudu2 a soumis une nouvelle ressource:

VBA - MsgBox paramétrable en taille et couleur de texte - VBA - MsgBox configurable in text size and color



En savoir plus sur cette ressource...

bonjour
je viens de charger les fichiers et mis en œuvre le test et ça plante systématiquement. Impossible de voir la fonctionnalité de ce nouveau Msg.Box

 

[Dudu2]

Bonjour,
Tu parles du fichier tel que téléchargé directement de la ressource ? Ou d'un fichier à toi ?
Ça plante comment ? Message d'erreur et copie d'écran du debugger STP.
Ta version d'office ? 32 ou 64 bits ?
Ta version de Windows ?

 

[Dudu2]

Télécharge la dernière version (V10) dans laquelle j'ai supprimé l'API GetDpiForWindow() qui n'est probablement pas supportée par ta version de Windows.

 

[Sined69]

Télécharge la dernière version (V10) dans laquelle j'ai supprimé l'API GetDpiForWindow() qui n'est probablement pas supportée par ta version de Windows.

Je parle du fichier téléchargé et exécuté tel quel. J'obtiens l'erreur 438 et cela bug au niveau de "msg.Box"

Bonjour,
Tu parles du fichier tel que téléchargé directement de la ressource ? Ou d'un fichier à toi ?
Ça plante comment ? Message d'erreur et copie d'écran du debugger STP.
Ta version d'office ? 32 ou 64 bits ?
Ta version de Windows ?

Je parle du fichier téléchargé. Il plante et affiche le message erreur d'exécution 438 et plante au niveau de "msg.box" . Je suis sous W10 famille avec excel 2007. Merci

 

[Sined69]

Télécharge la dernière version (V10) dans laquelle j'ai supprimé l'API GetDpiForWindow() qui n'est probablement pas supportée par ta version de Windows.

Je parle du fichier téléchargé et exécuté tel quel. J'obtiens l'erreur 438 et cela bug au niveau de "msg.Box"

 

[Sined69]

Je parle du fichier téléchargé et exécuté tel quel. J'obtiens l'erreur 438 et cela bug au niveau de "msg.Box"

Bonjour
je viens de télécharger la version V10 et j'obtiens la même erreur.

 

[Dudu2]

Bonjour,
Excel “Erreur d’exécution 438: l’objet ne prend pas en charge cette propriété ou cette méthode”.
Difficile pour moi de trouver l'objet en question sans pouvoir reproduire.
Le code s'arrête au niveau de l'appel de la fonction Msg.Box() mais ce n'est pas là que se trouve l'erreur mais dans le code de Msg.Box().
Je vais essayer de trouver un Office 2007. Ceci dit, tu pourrais passer à Office 2021 pour moins d'1 Euro (lien que j'ai utilisé pour le mien).

 

[Dudu2]

J'ai installé Office 2007 et testé. Je crains de ne pas pouvoir t'aider car je n'ai aucune erreur en Excel 2007 Windows 10 Famille.

 

[Dudu2]

Le fait que l'erreur ne se manifeste pas au bon endroit lorsqu'on appelle une fonction publique d'un UserForm rend le debug difficile.
Essaie ce fichier et dis-moi l'ErrorIndex qui s'affiche.

 

[Sined69]

Le fait que l'erreur ne se manifeste pas au bon endroit lorsqu'on appelle une fonction publique d'un UserForm rend le debug difficile.
Essaie ce fichier et dis-moi l'ErrorIndex qui s'affiche.

bonjour
Merci de t'intéresser à mon problème.
J'ai chargé le dossier Custom MsgBox _ Test et je le fait fonctionner sans problème. aucune erreur n'apparait. Cela semble fonctionner correctement. Mais si je fais tourner le programme V10 ça bug toujours.

 

[Dudu2]

Mais si je fais tourner le programme V10 ça bug toujours.

Alors ça, c'est plus qu'étonnant ! Le classeur de test est directement basé sur le classeur de la V10.
Tu es sûr de ne pas te tromper de fichier. Je remets la V10 dans ce Post.
Supprime d'abord tous les fichiers que tu as.

 

[Sined69]

Alors ça, c'est plus qu'étonnant ! Le classeur de test est directement basé sur le classeur de la V10.
Tu es sûr de ne pas te tromper de fichier. Je remets la V10 dans ce Post.
Supprime d'abord tous les fichiers que tu as.

Bon jour
Je viens de recharger la version V10 et Oh! surprise cela fonctionne parfaitement. Je ne comprend pas ce qui a pu se passer. J'ai même commencer à tester la fonction et ai réussi !!! Je ne suis pas un spécialiste loin s'en faut de VBA mais grâce à tes conseils j'ai réussi, grand merci<;
Dans le même style, as tu créé un fonction InputBox custom avec les même possibilités.
Je te remercie pour ton aide précieuse.

 

[Dudu2]

En fait j'ai fait ce MsgBox personnalisé pour simuler les MsgBox classiques dont je trouve que la police est trop petite et pour répondre aux besoins de formats de texte et de position exprimés dans les forums.
Mais j'avais fait aussi cet autre MsgBox personnalisé plus complet qui permet des boutons non conventionnels avec du texte ce qui s'avère pratique pour proposer des choix plus explicites. Et parallèlement aussi un InputBox personnalisé.

 

[Sined69]

En fait j'ai fait ce MsgBox personnalisé pour simuler les MsgBox classiques dont je trouve que la police est trop petite et pour répondre aux besoins de formats de texte et de position exprimés dans les forums.
Mais j'avais fait aussi cet autre MsgBox personnalisé plus complet qui permet des boutons non conventionnels avec du texte ce qui s'avère pratique pour proposer des choix plus explicites. Et parallèlement aussi un InputBox personnalisé.

Bonjour
J'ai téléchargé le InputBox personnalisé et ça fonctionne bien. le seul souci que j'ai c'est le positionnement de l' "inputBox". Le positionnement par indication d'une cellule ne marche pas très bien à l'écran. Peut être ai-je loupé quelque chose. Mais a part ça je suis super satisfait de ces 2 fonctions personnalisées.
Merci encore pour ce travail excellent.