Bonjour Circé (et bonjour aussi à tous ceux qui ont envie qu'on les salue...),
Inversement, cela ne me choquera pas si vous omettez de me dire bonjour dans les forums (ce qui ne vous interdit pas de le faire si ça vous fait plaisir) : le simple fait de me
répondre équivaut pour moi à une salutation très respectueuse (chacun perçoit les choses à sa façon).
Ceci dit, venons en au sujet concerné :
J'ai essayé ce qui suit (légèrement plus complet ?) :
Sub Superscript()
Dim FS, Tx
Tx = 0.8 'toujours préférer la programmation littérale dès qu'une variable est utilisée plusieurs fois
FS = Selection.Font.Size 'étrangement "With" semble mal fonctionner ici avec ma version de Word
Selection.Font.Size = FS * Tx
Selection.Font.Position = FS * (1 - 0.9 * Tx) 'la position dépend aussi de la taille
End Sub
Mais on comprend vite que ce n'est pas vraiment la bonne solution, car les caractères ainsi modifiés sont en réalité marqués dans une autre taille et une autre position, sans être marqués comme exposants... de ce fait, entre autres, cela ne s'annule pas
automatiquement si on actionne une seconde fois le bouton "exposant", et les proportions ne s'adaptent pas si on change globalement la taille de l'ensemble du texte contenant les exposants. Je vais essayer de trouver mieux.
Au revoir...