bonsoir,
as-tu le droit à cela:
zz = "A"
Select Case UCase(zz)
Case "A"
inn = 10
Case "B"
inn = 11
Case "C"
inn = 12
'etc...
End Select
OU ENCORE à cela:
lettre = Array("A", "B", "C", "D", "E", "F" )
For i = 0 To 5
If lettre(i) = UCase(zz) Then
inn = i + 10
Exit For
End If
Next
OU ENCORE a cela?
inn = InStr(1, "ABCDEF", UCase(zz)) + 9
Cordialement