EXCEL: CONVERTIR UNE COLONNE EN CHIFFRE OU CARACTÈRE

Function xlColumnValue(strColumnIndex As String) As String
' ------------------------------------------------------------------------------
'
' These function changes the Column Number of a cell in character(s)
' or vice versa.
'
' Return: Column Number or Character
'
' ------------------------------------------------------------------------------

    strColumnIndex = ucase(strColumnIndex)
    
    Select Case Asc(strColumnIndex)
        Case 36       ' Absolute Column
            xlColumnValue = xlColumnValue(Mid(strColumnIndex, 2, _
                                      InStr(2, strColumnIndex, "$") - 2))
        Case 48       ' 0 in first character
            MsgBox "The number 0 is invalid.", vbExclamation, "Null Denied"
        Case 49 To 57 ' Number to Char
            If strColumnIndex < 27 Then
                xlColumnValue = Chr(strColumnIndex + 65 - 1)
            Else
                If strColumnIndex Mod 26 <> 0 Then
                    xlColumnValue = Chr(strColumnIndex \ 26 + 65 - 1) + _
                                              Chr(strColumnIndex Mod 26 + 65 - 1)
                Else
                    xlColumnValue = Chr(strColumnIndex \ 26 + 65 - 2) + _
                                              Chr(90)
               End If
            End If
        Case 65 To 90 ' Char To Number
            xlColumnValue = Asc(strColumnIndex) - 65 + 1
            If Len(strColumnIndex) > 1 Then
                xlColumnValue = xlColumnValue * 26 + Asc(Right(strColumnIndex, 1)) - 65 + 1
            End If
        Case Else
            MsgBox "Not yet implemented or Error", vbExclamation, "Error"
    End Select
End Function