Pb xlDialog

[Kalzang]

Bonjour à toutes et à tous !

Je cherche, pas le biais d'un userform, à ouvrir une boite de dialogue standard afin de pouvoir choisir une police de caractère, sa couleur etc...

Le tout afin d'insérer ensuite du texte au format adéquat dans une cellule.

Je tente donc ceci :

Application.Dialogs(xlDialogsFontProperties).Show

Et ça ne fonctionne pas. Au lieu d'afficher le dialog, ça m'ouvre un "Classeur 1" et une petite RefEdit 😕

Merci de bien vouloir éclairer ma lanterne 😀

 

[skoobi]

Re : Pb xlDialog

Bonjour,

essaye sans le "s" à dialogs:
Application.Dialogs(xlDialogsFontProperties).Show

 

[Kalzang]

Re : Pb xlDialog

Merci bien. Seulement, j'ai mal recopié le code, au départ j'avais bien retiré le s...

Merci quand même 🙂

 

[skoobi]

Re : Pb xlDialog

Re,

A tester:

cré une macro dans un module et mets-y le code puis fais appel à cette macro dans le USF.

 

[Kalzang]

Re : Pb xlDialog

Merci encore, mais c'est toujours pas ça 🙁

Je précise que j'ai le problème avec tous les xlDialogs d'ailleurs... par contre ça marche très bien si je lance le xlDialog depuis un contrôle dans une feuille excel.

Mais pas depuis un usf. M'est avis que ça ne doit pas être possible. Damned, 'vais devoir me taper une boîte de dialogue à la mimine je crois 😱

 

[skoobi]

Re : Pb xlDialog

Dernière piste,

démarre l'USF en non modal:

userform1.Show 0

 

[Kalzang]

Re : Pb xlDialog

Ah oui, il y a une différence : il ne m'ouvre plus un "Classeur 1", le RefEdit s'affiche dans la feuille active.

Mais toujours pas de boîte de dialogue... snif

 

[skoobi]

Re : Pb xlDialog

Et avec "userform1.Hide" écrit avant?

 

[Kalzang]

Re : Pb xlDialog

Bonjour,

Ca ne fonctionne tjrs pas...

Bon dimanche 🙂