Récupération de la lettre de la colonne dans une cellule

[Frm]

Bonsoir,

Je cherche à mettre dans une formule de type indirect, la valeur de la colonne.


Merci d'avance

François

 

[TooFatBoy]

Re : Récupération de la lettre de la colonne dans une cellule

Avec ça, ça devrait marcher :
=SI(COLONNE()>26;CAR(ENT((COLONNE()-1)/26)+64);"") & CAR(MOD(COLONNE()-1;26)+65)

 

[TooFatBoy]

Re : Récupération de la lettre de la colonne dans une cellule

Houhou !!! On est là, il faut changer de page.

 

[TooFatBoy]

Re : Récupération de la lettre de la colonne dans une cellule

T'es sûr que tu ne veux vraiment pas regarder la deuxième page ???
J'avais pourtant trouvé une jolie formule...

 

[kiki29]

Re : Récupération de la lettre de la colonne dans une cellule

Salut,une autre approche sous forme de fonctions personnalisées, donc à placer dans un Module Standard pour pouvoir les appeler soit via le menu Excel Insertion | Fonctions Catégories : Personnalisées soit par exemple si A1=16384 A2=NumCol2Lettre(A1) qui donne XFD

Les limites : A à FXSHRXW | 1 à 2147483647
Ce qui même avec Excel 2007 ( 16384 Colonnes ) laisse de la marge
Il y a peut-être plus simple ou concis.

Public Function Lettre2NumCol(ByVal Chaine As String) As Long 
Dim i As Long, ValeurCh As Long, v As Long 
Const ChaineAlpha As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
    For i = 1 To Len(Chaine) 
        ValeurCh = InStr(1, ChaineAlpha, Mid(UCase(Chaine), i, 1)) 
        v = v * 26 + ValeurCh 
    Next 
    Lettre2NumCol = v 
End Function 
   
Public Function NumCol2Lettre(ByVal NumCol As Long) As String 
Dim i As Long, x As Long, s As String 
    For i = 6 To 0 Step -1 
        x = (26 ^ (i + 1) - 1) / 25 - 1 
        If NumCol > x Then 
            s = s & Chr(((NumCol - x - 1) \ 26 ^ i) Mod 26 + 65) 
        End If 
    Next i 
    NumCol2Lettre = s 
End Function

 

[job75]

Re : Récupération de la lettre de la colonne dans une cellule

Bonsoir à tous, et malgré l'heure tardive, essayez :
=STXT(CELLULE("Adresse");2;1+(COLONNE()>26))
Bonne nuit

 

[kjin]

Re : Récupération de la lettre de la colonne dans une cellule

Bonsoir,
Function LetCol(NoCol)
LetCol = Split(Cells(1, NoCol).Address, "$")(1)
End Function

=letcol(59) donnera "BG"
Crédit à son auteur
A+
kjin

 

[TooFatBoy]

Re : Récupération de la lettre de la colonne dans une cellule

Bonsoir à tous, et malgré l'heure tardive, essayez :
=STXT(CELLULE("Adresse");2;1+(COLONNE()>26))
Bonne nuit

Chez moi ça donne "A" pour chaque colonne de A à Z puis ça donne "A$", mais je me suis peut-être trompé.

 

[job75]

Re : Récupération de la lettre de la colonne dans une cellule

Oui, je n'avais pas testé ! Essayez :
=STXT(CELLULE("Adresse";x);2;1+(COLONNE()>26))
où x est la référence de la cellule contenant la formule (A1 pour la cellule A1)
A+

 

[BOISGONTIER]

Re : Récupération de la lettre de la colonne dans une cellule

Bonjour,

No colonne en A1:

=SUBSTITUE(SUBSTITUE(ADRESSE(1;A1);"$";"");"1";"")


Remarque: La fonction Adresse(noLig;noCol) donne une adresse.

=ADRESSE(3;4) donne D3

JB
Formation Excel VBA JB

 

[abcd]

Re : Récupération de la lettre de la colonne dans une cellule

Bonjour,

Une variante :
=SUBSTITUE(ADRESSE(1;COLONNE();4);1;"")

abcd

 

[TooFatBoy]

Re : Récupération de la lettre de la colonne dans une cellule

Bonjour,

Une variante :
=SUBSTITUE(ADRESSE(1;COLONNE();4);1;"")

abcd

Wahou !! Splendide !!!
La grande classe !!
J'adore !!!!!

 

[pierrejean]

Re : Récupération de la lettre de la colonne dans une cellule

bonjour a tous

Une autre fonction personnalisée

 

[BOISGONTIER]

Re : Récupération de la lettre de la colonne dans une cellule

Function lettre(c)
  lettre = Split(Cells(1, c).Address, "$")(1)
End Function

JB

 

[pierrejean]

Re : Récupération de la lettre de la colonne dans une cellule

Bravo JB

Encore une:

Function lettreb(num As Integer)
 lettreb = Replace(Cells(1, num).Address(0, 0), "1", "")
End Function

 

[Viniasco]

Bonjour
Je déterre le sujet juste pour remercier ce forum et ses membres, qui m'ont une fois de plus bien dépannés.