XL 2019 Afficher via une formule deux textes avec une taille de police différente dans une même cellule

PRy

XLDnaute Nouveau
Bonjour à toutes et tous,

à lire les sujets du forum, je ne suis pas encore à la hauteur pour répondre à 99% des sujets exposés.... donc je viens encore avec une question.... d'ergonomie.
Je voudrais afficher deux textes avec deux hauteurs de police différentes dans la même cellule. Est-ce possible ?
Voici la formule à l'heure actuelle : =ARRONDI((O1/K1*100);2) &"%" &CAR(10) &"( // Comptes arrêtés)" ce qui donne l'affichage de la cellule suivant :
1612972100151.png


J'aimerai donc que l'expression ( // Comptes arrêtés) soit affichée en petits caractères (taille 8 ou 6) mais que le résultat 29,8% garde sa taille !!

Merci de votre aide précieuse !

Cordialement
 

Staple1600

XLDnaute Barbatruc
Bonsoir

Sans VBA, ce n'est point possible.
Avec si ;)
VB:
Sub test()
strVal = Format(Application.Round([O1] / [K1], 2), "0.00%") & Chr(10) & "( // Comptes arrêtés)"
pos = InStr(strVal, "(")
ActiveCell = strVal
ActiveCell.Characters(Start:=pos, Length:=21).Font.Superscript = True
ActiveCell.ColumnWidth = 14
End Sub
 

PRy

XLDnaute Nouveau
Bonsoir

Sans VBA, ce n'est point possible.
Avec si ;)
VB:
Sub test()
strVal = Format(Application.Round([O1] / [K1], 2), "0.00%") & Chr(10) & "( // Comptes arrêtés)"
pos = InStr(strVal, "(")
ActiveCell = strVal
ActiveCell.Characters(Start:=pos, Length:=21).Font.Superscript = True
ActiveCell.ColumnWidth = 14
End Sub
Merci pour cette proposition....
Je vais donc transformer mon fichier pour accepter les macros....
En tout cas merci beaucoup !!
 

Statistiques des forums

Discussions
315 096
Messages
2 116 175
Membres
112 677
dernier inscrit
Justine11