chiffre de la colonne en lettre

[Creepy]

Bonjour à tous,

J'arrive plus à me souvenir comment convertir le resultat d'un

colonne = range('a8').end(xltoleft).column

pour pouvoir l'exploiter apres dans un range(colonne &'8').select par exemple.

Plus Simplement comment convertir le nombre d'une colonne à sa lettre correspondante.

Merci

++

Creepy

 

[PascalXLD]

Bonjour

chr(64+colonne) te donne le caractère mais au dessus de 26 tu es coincé

sinon tu as

cells(ligne, colonne) qui te donne le même résultat

Bon courage

 

[C@thy]

Avec macro :

Function ColumnLetter()
Dim C As Integer, L As Integer
With ActiveCell
C = .Column
If C > 26 Then L = 2 Else L = 1
ColumnLetter = Left$(.Address(0, 0), L)
End With
End Function

sans macro :
=SI(COLONNE()<=26;'';CAR(64+ENT(COLONNE()/26)))&CAR(65+MOD(COLONNE()-1;26))
ou :
=GAUCHE(ADRESSE(LIGNE();COLONNE();4);(COLONNE()>26)+1)

C@thy