Function DecAlph(c As Integer) As String
[COLOR="SeaGreen"]' =SI(A1<703;SI(A1>26;CAR(ENT((A1-1)/26)+64);"")&SI(A1;CAR(MOD(A1-1;26)+65);"");"")[/COLOR]
DecAlph = IIf(c < 703, IIf(c > 26, Chr((c - 1) \ 26 + 64), "") & _
IIf(c, Chr(((c - 1) Mod 26) + 65), ""), "")
End Function
Function AlphDec(s As String) As Integer
[COLOR="SeaGreen"]' =26*CODE(DROITE("@"&B1;2))+CODE(DROITE(DROITE("@"&B1;2);1))-1728[/COLOR]
If Len(s) Then AlphDec = 26 * Asc(Right$("@" & s, 2)) + Asc(Right$(s, 1)) - 1728 Else AlphDec = 0
End Function