Trouver la lettre de la colonne de la cellule active

Sofhy

XLDnaute Occasionnel
Bonjour à tous,

Je cherche à extraire la lettre de la colonne de la cellule active.

Par exemple, si je fais :

Code:
Sub Ma_Macro    
Y as String
Range B1.select
Selection.End(xlToRight).Offset(1, 0).Select
y = Selection.Address [COLOR="Blue"][B]ici, il me rapporte les coordonnées complètes,
par exemple E2. Comment faire pour qu'il me rapporte uniquement "E"[/B][/COLOR]
End Sub
J'ai trouvé pour rapporter les coordonnées complètes, le numéro de la ligne, mais la lettre de la colonne ... je coince.

Merci par avance pour votre aide,
Sofhy
 
G

Guest

Guest
Re : Trouver la lettre de la colonne de la cellule active

Bonjour Sofhy

Code:
Y= Split(Selection.Address,"$")(1)
A+

[Edit] Oups, j'avais mis un ; en lieu et place de la virgule:rolleyes: C'est corrigé
 
Dernière édition par un modérateur:

pierrejean

XLDnaute Barbatruc
Re : Trouver la lettre de la colonne de la cellule active

Bonjour Sofhy

Etudies ceci

Code:
Sub Ma_Macro()
Dim Y As String
Range("B1").Select
Selection.End(xlToRight).Offset(1, 0).Select
Y = Replace(Selection.Address(0, 0), Selection.Row, "")
MsgBox (Y)
End Sub
 
edit : salut Hasco
 

Sofhy

XLDnaute Occasionnel
Re : Trouver la lettre de la colonne de la cellule active

Bonjour Hasco, Bonjour PierreJean,

Les deux fonctionnes à merveille.

@Hasco
Avant ton edit, j'avais recherché sur Internet la fonction Split et du coup j'avais pu corriger. Et j'ai vu que si je mettais (2) au lieu de (1), il rapportait le numéro de la ligne.

@PierreJean
Je n'ai rien trouvé de très probant sur internet ou l'aide Excel concernant la fonction. Je sais que Selection.Address(0, 0) permet de retirer les $$. Mais comment fonctionne replace ? (histoire de comprendre :eek:)

Merci à vous deux et bonne journée,
Sophie
 

pierrejean

XLDnaute Barbatruc
Re : Trouver la lettre de la colonne de la cellule active

Re
x=replace(A,b,c)
x vaut A dans lequel on a remplacé b par c
Dans la macro fournie
Adress(0,0) ote les $ et replace ote le numero de ligne : ne reste donc que la (ou les ) lettre(s)
ote =remplace par ""
 

Sofhy

XLDnaute Occasionnel
Re : Trouver la lettre de la colonne de la cellule active

Re,

Ok,
Merci pour les explications.

A++
Sofhy
 

CB60

XLDnaute Barbatruc
Re : Trouver la lettre de la colonne de la cellule active

Bonjour
Il y a ça aussi.
HTML:
Sub Ma_Macro()
Dim Y As String
Range("B1").Select
Selection.End(xlToRight).Offset(1, 0).Select
Y = Chr(64 + Selection.Column())
MsgBox Y
End Sub
 

MJ13

XLDnaute Barbatruc
Re : Trouver la lettre de la colonne de la cellule active

Bonjour à tous

Hors sujet.
 
Dernière édition:

pierrejean

XLDnaute Barbatruc
Re : Trouver la lettre de la colonne de la cellule active

Re

a Bruno
Au mieux pour avoir une seule lettre !!!
Je te suggere de tester ta proposition
 

Sofhy

XLDnaute Occasionnel
Re : Trouver la lettre de la colonne de la cellule active

Bonjour à tous,

Après les explications de Pierre-Jean, je n'ai pas suivi la vie du post.
Merci CB60, Jean-Marcel et Pierre-Jean pour ces nouveaux codes.

Bonne journée,
:D Sofhy
 

CB60

XLDnaute Barbatruc
Re : Trouver la lettre de la colonne de la cellule active

re Tous
Merci PierreJean pour le test, je n'etais pas allé au dela de l'alphabet.
 

Discussions similaires


Haut Bas