Vba : trier les polices

Le
Jac
Bonjour à tous,

la macro suivante affiche dans un message la nom de chaque police du
système. J'aimerais qu'elles s'affichent en ordre alphabétique. Est-ce
possible ?

Sub LISTE_DES_POLICES()
For Each POLICE In FontNames
MsgBox POLICE, , " LISTE DES POLICES"
Next POLICE
End Sub

Merci d'avance.

Jac
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Geo
Le #20578341
Bonjour Jac
[ Cette réponse est faite sur le forum public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ]
Bonjour à tous,

la macro suivante affiche dans un message la nom de chaque police du système.
J'aimerais qu'elles s'affichent en ordre alphabétique. Est-ce possible ?



Oh ben oui,
Suffit de mettre les noms dans un tableau et trier le tableau.
Mais il y a des logiciels qui font ça très bien, avec exemples de texte
à l'appui, par exemple -au hasard - Nexus Font
http://xiles.net/programs/

--
A+
Jac
Le #20580911
Geo a écrit :
Bonjour Jac
[ Cette réponse est faite sur le forum public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ] Bonjour à tous,

la macro suivante affiche dans un message la nom de chaque police du
système. J'aimerais qu'elles s'affichent en ordre alphabétique. Est-ce
possible ?



Oh ben oui,
Suffit de mettre les noms dans un tableau et trier le tableau.



Aurais-tu un exemple de mise en tableau et de tri ?

Mais il y a des logiciels qui font ça très bien, avec exemples de texte à
l'appui, par exemple -au hasard - Nexus Font
http://xiles.net/programs/


Geo
Le #20582011
Bonjour
[ Cette réponse est faite sur le forum public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ]



Aurais-tu un exemple de mise en tableau et de tri ?



Pour mettre en tableau :
Déclaration
Dim MonTableau() as string
dim i as integer

Dimensionnement
redim Montableau( fontnames.count)

Dans la boucle affectation des noms
montableau(i) = police.name
i = i +1


Pour le tri, la méthode la plus simple à programmer :

for i = 0 to fontnames.count -1
for j= i+1 to fontnames.count
if MonTableau(i) < montableau ( j)
V = Montableau(i)
MonTableau(i) = montableau (j)
MonTableau(j) = v
end if
next j
next i

--
A+
Publicité
Poster une réponse
Anonyme