Personnaliser une cellule

Bjr

Je voudrais personnaliser une cellule .

Quand elle contient une lettre ( ou plusieurs) avec un nombre je voudrais que ce nombre soit en mis automatiquement en exposant

BD5 = BD et petit 5 en exposant

Merci

T

Bonjour,

Tu peux tester la macro suivante et l'adapter à ta situation ...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
' Modifier la cellule comme désiré
If Target.Address <> "$C$4" Then Exit Sub
Target.Characters(Start:=1, Length:=Len(Target) - 1).Font.Superscript = False
Target.Characters(Start:=Len(Target), Length:=1).Font.Superscript = True
End Sub

En espèrant que cela t'aide ...

Bonjour,

Bonjour james007,

Une autre façon de procéder.

Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Address = "$A$1" Then
        For i = 1 To Len(Target)
            If IsNumeric(Mid(Target, i, 1)) Then _
               Target.Characters(i, 1).Font.Superscript = True
        Next i
    End If
End Sub

Bonjour

Merci à tous . Je pensais que ça pouvait se faire plus simplement, je vais essayer

Cdt

T

Tacentaure a écrit :

Bonjour

Merci à tous . Je pensais que ça pouvait se faire plus simplement, je vais essayer

Cdt

T

De rien ...

Si tu trouves plus simplement ... surtout il ne faut pas hésiter à partager ta solution avec le Forum ...