Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Geo
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+
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/
[ 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
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 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/
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+
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
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
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