Nom de la colonne

[Robby]

Bonjour,
Je souhaite connaitre le nom de la colonne ou ma cellule est active.
Je connais:
NumeroDeLaColonne = ActiveCell.Column
mais l'information tiré et une valeur décimal. Et moi je souhaite récupérer l'information sous forme: AA ou B ou BI, enfin, un nom de colonne.
Pouvez-vous m'aider ?
Salutations.

 

[michel]

bonjour Robby

tu peux essayer

Sub LettresNumeroColonne()
Dim NumeroDeLaColonne As Integer
Dim Valeur As Integer, Z As Integer

NumeroDeLaColonne = ActiveCell.Column
If NumeroDeLaColonne <= 26 Then
MsgBox Chr(NumeroDeLaColonne + 64)
Else
Valeur = Application.RoundDown(NumeroDeLaColonne / 26, 0)
If Valeur = NumeroDeLaColonne / 26 Then Valeur = Valeur - 1
Z = (NumeroDeLaColonne - (26 * Valeur)) + 64
MsgBox Chr(Valeur + 64) & Chr(Z)
End If
End Sub


bonne soirée
MichelXld

 

[robby]

Super ca marche bien.
Je parcours mon bouquin "Excel & VBA" pour comprendre la démarche de ce que tu me présente. En attendant c'est super.
Merci

 

[Jean-Marie]

Bonjour

En utilisant la propriete .address d'Une cellule

MsgBox Mid(ActiveCell.Address, 2, IIf(Mid(ActiveCell.Address, 3, 1) = "$", 1, 2))

@+Jean-Marie

 

[robby]

encore mieux !
MERCI.

 

[Ti]

sur ce fil, d'autres réponses ont été apportées récemment à cette question.

<http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=100808&t=100726>