Utilisable dans une feuille de calcul, cette procédure peut soit renvoyer la lettre correspondant à la colonne de la cellule où elle est écrite si on l'appelle sans argument, soit la lettre corespondant à la colonne passée en paramètre.
Ex : je mets cette fonction en colonne C :
=AlphaCol() => renvoie C
la même fonction appelée ainsi :
=AlphaCol(2) => renvoie B
Il faut placer cette fonction dans un module du classeur pour pouvoir l'utiliser. Elle ne fonctionnera correctement que depuis une cellule Excel.
Option Explicit
Function AlphaCol$(Optional ByVal Col%)
'Ti 07-07-04
Dim Target As Range
Set Target = Application.Caller
If Col <> 0 Then Set Target = Target.EntireRow.Cells(, Col)
AlphaCol = Target.Address(True, False)
AlphaCol = Left(AlphaCol, InStr(1, AlphaCol, "$") - 1)
End Function