mikael2403
XLDnaute Junior
Bonjour,
J'ai le code suivant intégré dans une macro :
Je souhaite que le "(2)" apparaisse en exposant.
J'ai ajouté le code ci-dessous que j'ai inséré grace à l'enregistreur de macro mais ça ne fonctionne pas car selon le texte inséré dans la cellule, le "(2)" commence à partir du 25 ou du 23 caractères.
Y a -t-il une autre solution ?
Merci beaucoup pour votre aide.
Mikael.
J'ai le code suivant intégré dans une macro :
Code:
If Range("P2") >= "2" Then Range("A14") = "Terminaux" Else Range("A14") = "Terminal"
If Range("N2") >= "2" Then Range("A33") = "Services" Else Range("A33") = "Service"
If Range("N2") < 2 And Range("O2") < 2 Then Range("G30") = "Total Offre et Service (2)" _
Else: If Range("O2") < 2 And Range("N2") >= 2 Then Range("G30") = "Total Offre et Services (2)" _
Else: If Range("O2") >= 2 And Range("N2") < 2 Then Range("G30") = "Total Offres et Service (2)" _
Else: Range("G30") = "Total Offres et Services (2)"
Je souhaite que le "(2)" apparaisse en exposant.
J'ai ajouté le code ci-dessous que j'ai inséré grace à l'enregistreur de macro mais ça ne fonctionne pas car selon le texte inséré dans la cellule, le "(2)" commence à partir du 25 ou du 23 caractères.
Code:
With Range("I30").Characters(Start:=23, Length:=3).Font
.name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = True
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Y a -t-il une autre solution ?
Merci beaucoup pour votre aide.
Mikael.