Bonjour,
l'opération inverse, conversion de Alpha vers Num:
Function Convert_Num(Valeur As String) As Long
Dim Result As Long, i As Long, p As Long, Val_Num As Long
Dim Car As String
For i = Len(Valeur) To 1 Step -1
Car = Mid(Valeur, i, 1)
If i = Len(Valeur) Then
Result = Int(Asc(Car) - 64)
Else
p = Len(Valeur) - i
Puissance = 1
Do While p > 0
Puissance = Puissance * 26
p = p - 1
Loop
Val_Num = Int(Asc(Car) - 64) * Puissance
Result = Result + Val_Num
End If
Next i
Convert_Num = Result
End Function
Cdlt