[VBA-E]Boite de dialogue personnalisée

**MJMJ** · 26/03/2006, 12h59

Bonjour Comment avoir acces à des boites de dialogue personnalisées.
Je voudrais en modifier les textures ,les couleurs et les textes.
Merci

**MJMJ** · 26/03/2006, 15h13

Bonjour Ouskel'n'or C'est MJMJ celui qui tente de traduire et qui ne comprend pas grand chose à VBA.Cela ne fait que 8 jours que je m'y interresse et je n'ai pas commencé par des cours ou par des didactitiels, mais plutôt au feeling.Ce n'est surement pas la bonne méthode mais je suis assez pressé dans le fait de savoir si je peux récupérer ce programme. Question de choix pour mon futur proche!!!
Mais j'ai quand même terminé la traduction du projet et il a l'air de touner dans toutes ses fonctions.
Enfin j'espere.Maintenant je suis confronté au probleme de modification de boites de dialogue (Il doit y en avoir une vingtaine)Mais je n'ai aucune idée de l'endroit ou elles se trouvent.

Le projet tourne sous Excel 2003 et VBA
Merci de me suivre dans ma démarche
MJM

**SfJ5Rpw8** · 26/03/2006, 16h08

les boites de dialogues dont tu parle (boite de dialogue Excel 5.0 )... son parmi les feuilles de ton classeur excel ... pour cela affiche les onglets ..(masqué dans ta macro) par le menu excel Outils/Option/Affichage/Onglet de classeurs..

si tu dois en créer de nouvelles, il est plus simple (maintenant) d'utiliser les userForm ..(voir dans VBE..)

**MJMJ** · 26/03/2006, 21h10

le probléme si tu as testé les 2 feuilles .xls que je t'ai envoyé est que lorsque le lance Minute.xls ele charge la feulle de travail Saisie.xls.
Dans cette derniere il y a effectivement des onglets.
Mais comment ouvrir uniquement minute.xls ou doivent se trouver les boites de dialogue.Par exemple ceci

Workbooks("Minute.xls").DialogSheets("Boit_Enregou").EditBoxes("Edit Box 10").text = UCase(Workbooks("Minute.xls").DialogSheets("BoitNom").EditBoxes("Edit Box 4").text)
Call Enreg_ou_Ann

A+