Function colnum(colalpha As String) As Integer
[COLOR="Teal"]'renvoie le rang d'une chaîne alphanumérique ; ex : AN donne 40.[/COLOR]
Dim n As Integer
For n = 1 To Len(colalpha)
colnum = 26 * colnum + Asc(UCase(Mid$(colalpha, n, 1))) - 64
Next
End Function
Function colalph(col As Integer) As String
[COLOR="Teal"]'renvoie l'en-tête de la colonne de rang "col" ; ex : 40 donne AN.[/COLOR]
If col > 26 Then colalph = Chr(64 + Int((col - 1) / 26))
colalph = colalph + Chr(65 + (col - 1) Mod 26)
End Function