lettres de l'aphabet correspondant à une colonne.

[sony]

Bonjour forum,

Je cherche une fonction qui me renvoie les lettres de l'aphabet correspondant à la colonne.
Ex:
MaFonction(colonne 1) = "A"
MaFonction(colonne 28) = "AB"

 

[PhiBou]

Salut Sony, Le Forum

Essaie ceci :

=SI(A1<27;CAR(COLONNE()+64);CAR(ENT((COLONNE()-1)/26)+64)&CAR(64+MOD(COLONNE();26)))

Bonne fin après-midi

PhiBou

 

[Monique]

Bonjour,

ça aussi :
=GAUCHE(ADRESSE(1;COLONNE();4);NBCAR(ADRESSE(1;COLONNE();4))-1)

 

[PhiBou]

Re,

Et oui, avec cette sacrée fonction ADRESSE !!!

Merci Monique

 

[Pat5]

Re Bonsoir

Adapter de MVPS

Sub NomColonne()

Dim maCellule As Range

Set maCellule = Range("A1")
Range("A1").Value = maCellule

MsgBox Left(Cells(1, maCellule).Address(0, 0), Len(Cells(1, maCellule).Address(0, 0)) - 1)

End Sub


Tu mets un chiffre dans la cellule " A1 " et tu récupère le lettre de la colonne

Salut

Pat5 ;o)

 

[Ti]

Encore une, utilisable dans une feuille de calcul, qui 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

Function AlphaCol$(Optional ByVal Col%)
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

Il faut placer cette fonction dans un module du classeur pour pouvoir l'utiliser. Elle ne fonctionnera correctement que depuis une cellule Excel.