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 : xlti@wanadoo.fr
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
Date de création : 24/05/2005 - 19:11
Dernière modification : 25/05/2005 - 20:42
Catégorie : Cel / Col / Lig
Page lue 3357 fois
 Prévisualiser la page
 Imprimer la page
|
OOo
OOo
Membres: 1661
Membre en ligne: 0
Anonymes en ligne: 83
Haut 
