Discussion :

[ThierryAIM]

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

[ouskel'n'or]

J'ai mis 6 mois mais moi aussi j'ai un truc rigolo...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub ColonneEnLettre()
     MsgBox Split(ActiveCell.Address, "$")(1)
End Sub

Petite explication : Thierry enlève les $ aux colonnes avec ColumnAbsolute:=False, moi je les garde !
J'jète pas l'argent par les fenêtres, moi


NB - Cette syntaxe ne fonctionne pas dans VBA 97 (où split a une autre fonction)

[dadavyvy]

OK, je tente ma chance :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Replace(Chr(64 + Fix((ActiveCell.Column - 1) / 26)) & Chr(65 + ((ActiveCell.Column - 1) Mod 26)), Chr(64), "")

[ouskel'n'or]

OK, je tente ma chance :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MsgBox Replace(Chr(64 + Fix((ActiveCell.Column - 1) / 26)) & _
       Chr(65 + ((ActiveCell.Column - 1) Mod 26)), Chr(64), "")

C'est vrai que c'est beaucoup plus simple

A mon tour !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
     MsgBox Mid(ActiveCell.Address, 2, Len(ActiveCell.Address) - _
            Len(CStr(ActiveCell.Row)) - 2)

Je n'ai pas d'explication

NB -Fonctionne avec VBA 97... aussi

[illight]

Sinon ici :

http://www.developpez.net/forums/sho...d.php?t=227092

C'est pas le meme débat ?

[AlainTech]

J'osais à peine le dire...

Et, encore une fois, à part le plaisir d'écrire une belle fonction, à quoi cela sert-il?