=UNICAR(9311+F10)
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s$, v%, k%
With Target
If .CountLarge > 1 Then Exit Sub
If .Column <> 1 Then Exit Sub
s = .Value: v = Val(s): If v < 1 Or v > 9 Then Exit Sub
s = Right$(s, 1): .Font.Size = 12 - (s = "b") * 6
k = 9311 - (s = "n") * 790 - (s = "b") * 810 + v
Application.EnableEvents = 0
.Value = Evaluate("=UNICHAR(" & k & ")")
Application.EnableEvents = -1
End With
End Sub
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim v%
With Target
If .CountLarge > 1 Then Exit Sub
If .Address(0, 0) <> "B1" Then Exit Sub
v = Val(.Value): If v < 1 Or v > 20 Then Exit Sub
Application.EnableEvents = 0
.Value = Evaluate("=UNICHAR(" & 9311 + v & ")")
Application.EnableEvents = -1
End With
End Sub
Unicar(12991) ça donne quoi comme résultat ?
malheureusement on ne peut pas aller au delà de 20...
Euh... c'est 53 semaines !dommage qu'ils n'aient
pas pensé aux 51 et 52 de 52 semaines !