Private Sub UserForm_Initialize()
With Label1: With .Font: .Name = "Calibri": .Size = 10: End With: .Caption = "FC" & Indice(1): End With
With Label2: With .Font: .Name = "Calibri": .Size = 10: End With: .Caption = "FC" & Indice(2): End With
End Sub
Function Indice$(n$)
Dim i%, c$, s$
For i = 1 To Len(n)
c = Mid$(n, i, 1)
Select Case Asc(c)
Case 48 To 57: s = s & ChrW(8320 + CLng(c)) 'chiffres
Case 40: s = s & ChrW(8333) '(
Case 41: s = s & ChrW(8334) ')
Case 43: s = s & ChrW(8330) '+
Case 45: s = s & ChrW(8331) '-
Case 61: s = s & ChrW(8332) '=
Case Else: s = s & c
End Select
Next
Indice = s
End Function