XLS : Gestionnaire de Symbole Ascii, Unicode ou issue d'une Police 1.1

[Lu76Fer]

Lu76Fer a soumis une nouvelle ressource:

XLS : Gestionnaire de Symbole Ascii, Unicode ou issue d'une Police - Chargez gratuitement votre “panier” avec un maximum de symbole pour vos applications

Gestionnaire de Symbole Ascii, Unicode ou issue d'une Police​

L'outil est découpé en 4 feuilles (Onglets)

• Polices Symboliques : sélectionnez des symboles Ascii avec des polices comportant des motifs iconiques
• Symboles Unicode : sélectionnez des symboles Unicode à partir...

En savoir plus sur cette ressource...

 

[Lu76Fer]

Petite mise à jour : version 1.1​

J'ai fait des tests sur une version Excel 2007 de ce petit utilitaire et je me suis rendu compte que l'affichage des polices Unicode était lente, du coup voici une version améliorée :

• Prise en compte des versions précédentes : en cherchant j'ai noté qu'il existait un nouveau moteur d'affichage qui existerait depuis la sortie d'Office 2013.
• Modification de la fonction d'affichage de tous les symboles Ascii de toutes les polices DisplayAllFontsInNewWkb du module LibTools pour définir un texte libre dans la cellule [A1].
• Ajout d'une fonction pour rechercher une police de script disponible : GetScriptFont du module Code. J'utilisais une police qui n'était pas présente sur ma Config.

Voici le code utilisé pour accélérer l'affichage sur les versions antérieures ne bénéficiant pas d'un moteur d'affichage efficace :

Dim oldGM As Boolean    'Ancien moteur graphique
    oldGM = (CInt(Replace(Application.Version, ".", ",")) < 15)
    If oldGM Then Application.EnableEvents = False: Application.ScreenUpdating = False
    'Routine d'affichage ...
    'Routine d'affichage ...
    If oldGM Then Application.EnableEvents = True: Application.ScreenUpdating = True: DoEvents