Nom de colone

Re : Nom de colone

bonjour fgrassi

et bienvenue sur XLD

teste cette macro

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+ 🙂

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

Re : Nom de colone

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

🙂

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

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