Comment mettre des lettres en exposant dans une formule

Bonsoir le forum,

Voici mon petit "problème", je cherche désespérément à mettre le "er" de "1er Salon" en exposant c'est à dire comme ça "1er" dans la formule suivante :

=SI(SOMME(Feuil2!B1-Feuil2!A1)=0;"";SI(SOMME(Feuil2!B1-Feuil2!A1)<=1;SOMME(Feuil2!B1-Feuil2!A1)&" Jour avant le 1er Salon ";SOMME(Feuil2!B1-Feuil2!A1)&" Jours avant le 1er Salon "))

Si quelqu'un peut me dire comment faire, je l'en remercie d'avance.

Bonjour

Directement dans la formule pas de solution trouvée

Pourquoi ne pas passer par le résultat de la formule comme tu as fait dans ce post

https://forum.excel-pratique.com/excel/probleme-de-validation-dans-macro-t28943.html

Dans lequel tu colories une partie du résultat

Bonjour

Sur le résultat de la formule

Voir fichier

Cordialement

Bonjour Banzaï64, Amadéus, le forum,

Un grand merci à vous deux pour vos réponses, et plus particulièrement à Amadéus pour sa solution.

Bonne fin d'après midi et encore merci

Bonsoir le forum,

Je reviens vers vous car je ne sais pas comment faire pour ajouter dans la macro ci-dessous la deuxième formule qui se situe dans la même feuille (la 1) mais dans la cellule A20

="Soit "&SI(SOMME(Feuil2!B3-Feuil2!A3)=0;"";SI(SOMME(Feuil2!B3-Feuil2!A3)<=1;SOMME(Feuil2!B3-Feuil2!A3)&" Jour avant le 2ème tour ";SOMME(Feuil2!B3-Feuil2!A3)&" Jours avant le 2ème Salon"))

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Macro d'Amadeus que je remercie vivement
If Not Application.Intersect(Target, Range("C4")) Is Nothing Then
With Range("C4")
.Formula = "=If(Feuil2!B1-Feuil2!A1=0,"""",If(Feuil2!B1-Feuil2!A1<=1,Feuil2!B1-Feuil2!A1&"" Jour avant le 1er Salon "",Feuil2!B1-Feuil2!A1&"" Jours avant le 1er Salon ""))"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   Application.CutCopyMode = False
End With
Target.Font.Superscript = False
If Range("C4").Value Like "*1er Salon*" Then
    Target.Characters(Len([C4]) - 8, 2).Font.ColorIndex = 3
Target.Characters(Len([C4]) - 8, 2).Font.Superscript = True
End If
End If
End Sub

d'avance merci beaucoup pour votre aide

Bonjour

Voir fichier

Cordialement

Bonjour Amadéus, le forum,

Une nouvelle fois, un grand merci pour ta réponse.

Bonne journée