comment récuperer l'entete de colonne (A,B ..AA,AB

[Sniker]

Bonjour,

Grâce à quelques Petits coups de pousse mon projet avance bien.
Lien sur XLD : Lien supprimé

Je bloque encore sur un point :

Comment puis-je récuperer l’entête de colonne (A, B … AA, AB …) à partir du numéro ? De A à Z c’est facile mais comment savoir que la 70em colonne c’est BR ?

certe avec 'Cells()' je peux m'en passer mais je voudrais l'afficher pour l'utilisateur.

Merci encore pour l’aide déjà apportée, et pour celle à venir …

 

[Monique]

Bonjour,

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

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

=STXT(ADRESSE(1;COLONNE();4);1;1+(COLONNE()>26))

 

[Hervé]

Re:comment récuperer l'entete de colonne (A,B ..AA

Bonsoir sniker, monique

en VBA :

MsgBox Left(ActiveCell.Address(0, 0), (ActiveCell.Column < 27) + 2)


salut

 

[Sniker]

Re:comment récuperer l'entete de colonne (A,B ..AA

Bonjour,

Merci pour les réponses, je cheche bien une solution en VBA.
Sauf que ce ne sont pas des cellules actives. J'ai juste une valeur d'index d'une combobox qui correspond au numéro de la colonne
que j'aimerais convertir ...

suis-je obligé de passer par une activation de cellule ?

Merci

 

[Hervé]

Re:comment récuperer l'entete de colonne (A,B ..AA

bonjour sniker, monique

Alors essayes comme ceci :

MsgBox Left(Cells(1, ComboBox1.ListIndex + 1).Address(0, 0), (Cells(1, ComboBox1.ListIndex + 1).Column < 27) + 2)


salut

 

[Bebere]

Re:comment récuperer l'entete de colonne (A,B ..AA

bonjour Sniker,Monique,Hervé
C=ton index
S = Cells(1, C).Address(1, 0)
LetCol = Left(S, InStr(1, S, '$') - 1)
à bientôt

 

[Sniker]

Re:comment récuperer l'entete de colonne (A,B ..AA

Merci beaucoup Monique, Hervé et Bebere !

J'ai adapté à mes besoins, vos deux dernières solutions, et ca tourne impecable.

Merci milles fois et à une prochaine fois sur XLD.