Mettre les chiffres en indice dans une formule chimique

Bonjour,

J'ai, dans les cellules A1:A10, des formules de composes chimiques (CH3COOH,Na2CO3, Na0,5OH...), et je souhaiterais realiser une macro qui met, dans ces cellules, uniquement les chiffres et les virgules en indice.

J'ai essaye avec :

Sub indicage()

Range ("F3:F31")

If IsNumber = True Then c.Font.Subscript = False

End If

End Sub

Je n'ai aucune idee de la raison pour laquelle ca merche pas (je ne suis pas bon en VBA)

Pouvez-vous m'aider svp ?

Merci d'avance

Bonjour ,

Ton code ne marche pas car tu test si la zone de valeur "F3:F31" est numérique .

Essaye avec ce code :

Sub indicage()
Dim i, j As Integer

For i = 1 To 10
mot = Range("A" & i).Value
For j = 1 To Len(mot)
If IsNumeric(Mid(mot, j, 1)) Then
With Range("A" & i).Characters(Start:=j, Length:=1).Font
        .Superscript = True
End With
'    c.Font.Subscript = False
End If
Next j
Next i
End Sub

Cordialement

Merci beaucoup c'est exactement ce que je voulais.