Bonjour =E0 tous,=20
j'aimerais savoir comment =E9crire une macro qui permette de=20
lister les polices d'un fichier excel.
Car si l'une ou plusieur des polices utilis=E9es ne fait pas=20
partie des polices natives d'excel il les remplace par une=20
de ces polices par d=E9faut, du coup on ne sait pas qu'elle=20
etait la police d'origine !!! Il faudrait donc les=20
connaitre avant que celui-ci ne les remplace, peut-etre=20
avant l'ouverture du fichier ?
Quelqu'un sait-il comment cr=E9=E9r une telle macro et en=20
quelle language l'=E9crire ??? ou du moins ou puis-je=20
trouver ce genre d'infos ???
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
Olivier
bonjour,
Sub test() dim i as Integer i = 1 Dim truc As Range For Each truc In ActiveSheet.UsedRange Range("AA" & i).Value = " ligne: " & truc.Row & " col : " & truc.Column Range("AB" & i) = truc.Font.Name i = i + 1 Next End Sub
tu trouveras en colonne AA et AB les fontes pour chaque cellule specifiée par le N° de ligne et de colonne de la plage utilisée dans la feuille active
Olivier
"franck" a écrit dans le message de news: 969b01c3ea67$f1f12670$ Bonjour à tous, j'aimerais savoir comment écrire une macro qui permette de lister les polices d'un fichier excel. Car si l'une ou plusieur des polices utilisées ne fait pas partie des polices natives d'excel il les remplace par une de ces polices par défaut, du coup on ne sait pas qu'elle etait la police d'origine !!! Il faudrait donc les connaitre avant que celui-ci ne les remplace, peut-etre avant l'ouverture du fichier ? Quelqu'un sait-il comment créér une telle macro et en quelle language l'écrire ??? ou du moins ou puis-je trouver ce genre d'infos ???
bonjour,
Sub test()
dim i as Integer
i = 1
Dim truc As Range
For Each truc In ActiveSheet.UsedRange
Range("AA" & i).Value = " ligne: " & truc.Row & " col : " & truc.Column
Range("AB" & i) = truc.Font.Name
i = i + 1
Next
End Sub
tu trouveras en colonne AA et AB les fontes pour chaque cellule specifiée
par le N° de ligne et de colonne de la plage utilisée dans la feuille active
Olivier
"franck" <franck.racine@worldonline.fr> a écrit dans le message de news:
969b01c3ea67$f1f12670$a401280a@phx.gbl...
Bonjour à tous,
j'aimerais savoir comment écrire une macro qui permette de
lister les polices d'un fichier excel.
Car si l'une ou plusieur des polices utilisées ne fait pas
partie des polices natives d'excel il les remplace par une
de ces polices par défaut, du coup on ne sait pas qu'elle
etait la police d'origine !!! Il faudrait donc les
connaitre avant que celui-ci ne les remplace, peut-etre
avant l'ouverture du fichier ?
Quelqu'un sait-il comment créér une telle macro et en
quelle language l'écrire ??? ou du moins ou puis-je
trouver ce genre d'infos ???
Sub test() dim i as Integer i = 1 Dim truc As Range For Each truc In ActiveSheet.UsedRange Range("AA" & i).Value = " ligne: " & truc.Row & " col : " & truc.Column Range("AB" & i) = truc.Font.Name i = i + 1 Next End Sub
tu trouveras en colonne AA et AB les fontes pour chaque cellule specifiée par le N° de ligne et de colonne de la plage utilisée dans la feuille active
Olivier
"franck" a écrit dans le message de news: 969b01c3ea67$f1f12670$ Bonjour à tous, j'aimerais savoir comment écrire une macro qui permette de lister les polices d'un fichier excel. Car si l'une ou plusieur des polices utilisées ne fait pas partie des polices natives d'excel il les remplace par une de ces polices par défaut, du coup on ne sait pas qu'elle etait la police d'origine !!! Il faudrait donc les connaitre avant que celui-ci ne les remplace, peut-etre avant l'ouverture du fichier ? Quelqu'un sait-il comment créér une telle macro et en quelle language l'écrire ??? ou du moins ou puis-je trouver ce genre d'infos ???
