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

  • Initiateur de la discussion Initiateur de la discussion PRy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
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 !!
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour