Nom d'une cellule

[bobo14]

Question surement basique :

Je sais définir le nom d'une cellule en VB
ActiveWorkbook.Names.Add(MonNom,$A$1)

Mais je suis incapable de trouver le nom d'une cellule en renvoyant son adresse

Ex = MonNom=TrouverNom($A$1)

Comment faire ?

Merci d'avance de vos réponses

 

[chti59554]

Re : Nom d'une cellule

Question surement basique :

Je sais définir le nom d'une cellule en VB
ActiveWorkbook.Names.Add(MonNom,$A$1)

Mais je suis incapable de trouver le nom d'une cellule en renvoyant son adresse

Ex = MonNom=TrouverNom($A$1)

Comment faire ?

Merci d'avance de vos réponses

menu: insertion,nom, définir tous les noms contenus dans le classeur apparaissent

 

[bobo14]

Re : Nom d'une cellule

Moi, c'est le code VB que je cherche pour trouver le nom d'une cellule

 

[BOISGONTIER]

Re : Nom d'une cellule

Bonjour,

Function NomChamp(c)
NomChamp = ""
For Each n In ActiveWorkbook.Names
If "=" & c = n Then
NomChamp = n.Name
End If
Next n
End Function

Sub essai()
MsgBox NomChamp("Feuil1!$B$4")
MsgBox NomChamp("Feuil1!$D$2")
End Sub

Noms de cellules et noms de champs
http://boisgontierjacques.free.fr/fichiers/Barre/BarreNomsChamps2.xls


JB
Formation Excel VBA JB