Un petit truc rigolo retrouvé par hasard (ce n'est pas de moi, mais je n'ai plus l'auteur)

Comment connaître en lettre (A, B, AC, BD, ...) la colonne active :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox Left(ActiveCell.Address(ColumnAbsolute:=False), (ActiveCell.Column < 27) + 2)
End Sub
Etonnant, non ?

Petite explication de texte :
ActiveCell.Address(ColumnAbsolute:=False) renvoie l'adresse relative, donc sans le $

ActiveCell.Column < 27 renvoie true ou false, soit en VB, -1 ou 0

Left renvoie donc :
-1+2=1 caractère si ActiveCell.Address <= 26 (de A à Z)
0+2=2 caractères si ActiveCell.Address > 26 (de AA à ....)

il fallait juste y penser