CONVERTIR LES RÉFÉRENCES DE COLONNE EXCEL DE CHIFFRE EN LETTRE

Function xlColumnValue($strColumnIndex){
/*
' ------------------------------------------------------------------------------
'
' These function changes the Column Number of a cell in character(s)
' or vice versa.
'
' Return: Column Number or Character
'
' TALBI Anis - 04-2009 - msdos@free.fr
'
' ------------------------------------------------------------------------------
*/
    $strColumnIndex = strtoupper($strColumnIndex);
    // Suppression des $ si présent
    if (strpos($strColumnIndex,"\$")>=0){
    	$strColumnIndex = ereg_replace("\\$","",$strColumnIndex);
	}
    
    switch (ord($strColumnIndex)){
        Case 48:       // 0 in first character
            Return FALSE;
            break;
        Case (ord($strColumnIndex)>=49 and ord($strColumnIndex)<=57): // Number to Char
            If ($strColumnIndex<27){
                $xlColumnValue = Chr($strColumnIndex + 65 - 1);
			}Else{
                If ($strColumnIndex % 26 <> 0) {
                    $xlColumnValue = Chr($strColumnIndex / 26 + 65 - 1) . Chr($strColumnIndex % 26 + 65 - 1);
				}Else{
                    $xlColumnValue = Chr($strColumnIndex / 26 + 65 - 2) . Chr(90);
				}
			}
			return $xlColumnValue;
            break;
        Case (ord($strColumnIndex)>=65 and ord($strColumnIndex)<=90): // Char To Number
            $xlColumnValue = ord($strColumnIndex) - 65 + 1;
            If (strlen($strColumnIndex) > 1){
                $xlColumnValue = ($xlColumnValue * 26) + (ord(substr($strColumnIndex, -1)) - 65 + 1);
			}
            return $xlColumnValue;
            break;
        default:
            return false;
            break;
	}
}