Retrouver la lettre d'une colonne avec son numéro

[Maxoverfred]

Comment puis je retrouver la lettre d'une colonne si je connais le numéro ?

Exemple: 7, j'aimerais qu'il me donne la valeur 'G'


Merci 😉

 

[Maxoverfred]

Je me réponds à moi-même

Function ColumnLetter(ColumnNumber As Integer) As String
If ColumnNumber > 26 Then

' 1st character: Subtract 1 to map the characters to 0-25,
' but you don't have to remap back to 1-26
' after the 'Int' operation since columns
' 1-26 have no prefix letter

' 2nd character: Subtract 1 to map the characters to 0-25,
' but then must remap back to 1-26 after
' the 'Mod' operation by adding 1 back in
' (included in the '65')

ColumnLetter = Chr(Int((ColumnNumber - 1) / 26) + 64) & _
Chr(((ColumnNumber - 1) Mod 26) + 65)
Else
' Columns A-Z
ColumnLetter = Chr(ColumnNumber + 64)
End If
End Function


Voilà

 

[Monique]

Bonjour,

Par formule :
=GAUCHE(ADRESSE(1;COLONNE();4);NBCAR(ADRESSE(1;COLONNE();4))-1)

pour la colonne A (donc 1)
=GAUCHE(ADRESSE(1;1;4);NBCAR(ADRESSE(1;1;4))-1)
la colonne G
=GAUCHE(ADRESSE(1;7;4);NBCAR(ADRESSE(1;7;4))-1)

 

[Mutzik]

Bonjour Brigitte, MaxoverFred,

je vais faire beaucoup plus simple

=CAR(D4+64) si le chiffre se trouve en D4

à +
Bertrand

 

[Pyrof]

Bonjour,

Voici une autre méthode

numero_col = 27
x = Split(Cells(1, numero_col ).Address, '$')(1)


A+

 

[Maxoverfred]

Merci à tous

 

[_Thierry]

Bonjour le Fil, le Forum

Une autre approche qui fait suite à ce Lien supprimé

NB pour cette démo je pars de la Cellule Active

Sub ColumnLetter()
Dim Cell As Range
Dim ColLetter As String
Dim ColNumber As Integer

Set Cell = ActiveCell

ColLetter = Left(Cell.Address(False, False), (Cell.Column < 27) + 2)
ColNumber = Cell.Column

MsgBox 'La Cellule Active se situe en Colonne ' & ColLetter & vbCrLf & _
&nbsp; &nbsp; &nbsp; &nbsp; 'Soit la Colonne Numéro ' & ColNumber

End Sub

Bonne Fin d'Aprèm
@+Thierry

 

[C@thy]

Bonjour tout le monde,

je tombe (a&iuml;e) sur cet 'ancien' fil et je viens rajouter mon grain de sel :

=GAUCHE(ADRESSE(LIGNE();COLONNE();4);(COLONNE()>26)+1)

😉 à tous les participants de ce fil

C@thy :evil:

 

[C@thy]

Re:Retrouver la lettre d'une colonne avec son numé

Ah oui oui, ça va bien, je suis bientôt en ouacances!!!

 

[C@thy]

Re:Retrouver la lettre d'une colonne avec son numé

Ah oui oui, ça va bien, je suis bientôt en ouacances!!!

 

[C@thy]

Re:Retrouver la lettre d'une colonne avec son numé

Ah ben ça alors, c'est parti tout seul et en plus 2 fois!!!

je voulais faire référence à ce fil :

Lien supprimé
Bizous