Nom de colone

[fgrassi]

[Résolu] Nom de colone

Bonjour,

je cherche le moyen en vba de récupérer le nom d'une colone.

Exemple j'ai nommé toute la colone A avec l'identifiant 'OUTILS'

Comment retrouver OUTILS en VBA.

MErci

 

[pierrejean]

Re : Nom de colone

bonjour fgrassi

et bienvenue sur XLD

teste cette macro

Sub test()
x = ActiveWorkbook.Names("Outils").RefersTo
y = Split(x, "!")
MsgBox ("La zone nommée Outils est dans la feuille  " & y(0) & " à l'adresse " & Replace(y(1), "$", ""))
End Sub

 

[Bigfish]

Re : Nom de colone

Bonjour,

je trouves ta question un peu vague car tu ne nous dit pas par rapport à quoi.

Est-ce par rapport à une cellule, une feuille ou autre ?

Bien que pierrejean ai surement repondu à ta question je permet de donner une solution qui renvois le nom de la plage nomée qui contient la cellule active

Sub test()
Dim MaPlageNome As String, i As Long, TestIntersection As Range
For i = 1 To ActiveWorkbook.Names.Count
MaPlageNome = ActiveWorkbook.Names(i).Name
On Error Resume Next
Set TestIntersection = Application.Intersect(ActiveCell, Sheets("sheet2").Range(MaPlageNome))
If Not TestIntersection Is Nothing Then MsgBox MaPlageNome & " = " & Range(MaPlageNome).Address
Next
End Sub

A+ 🙂

 

[GIBI]

Re : Nom de colone

Bonsoir,

Pour récupérer le nom d'un objet range

Range("a2").Name.Name (2 fois name)


ou

= Columns(2).Name.Name

GIBI

 

[Bigfish]

Re : Nom de colone

Oui GB mais cela suppose que range("a2") ou Columns(2) soit l'adresse exact de la plage nomée.

🙂

 

[fgrassi]

Re : Nom de colone

Merci GIBI pour ta réponse, ça marche impec.

Il me reste plus qu'à modifier cette formule de telle sorte que je me réfère à la cellule courante pour trouver son nom du style

= Columns('activecell.quelquechose').Name.Name

 

[fgrassi]

Re : Nom de colone

et voila ce que je cherchais, si ça peut servir à d'autres :

Columns(ActiveCell.Column).Name.Name
'trouve le nom de la colonne courant en fonction de la cellule où l'on se trouve.

Super forum
Merci