Microsoft 365 Récupérer le nom d'une cellule

[PPA]

Bonjour à tous,

Je suis nouveau sur ce forum et je pose ma première question
Je voudrais récupérer le nom de la cellule active.
J'ai testé : Nom_Cellule$ = Activecell. name.name sans succès
Ma cellule active est pourtant bien nommée.

Une idée à me conseiller ?
Merci

 

[Lolote83]

Salut PPA,
Chez moi, cela fonction avec Nom_Cellule$=ActiveCell.Name.Name
Essaye avec Nom_Cellule$=ActiveCell.Name.NameLocal
Sans conviction
@+ Lolote83

 

[Phil69970]

Bonjour @PPA, @Lolote83

Je dirais plutôt

Nom_Cellule$ = ActiveCell.Address

*Edit Bonjour Sylvain
Oups j'ai cru que c'était l'adresse de la cellule et pas le nom de la cellule🙄

@Phil69970

 

[sylvanu]

Bonjour PPA,
Pourtant cela devrait marcher, voir PJ.
Ne pas oublier le "On Error Resume Next" dans le cas où la cellule ne serait pas nommée.

 

[PPA]

Merci de votre retour.

Grâce à l'astuce de Sylvanu, l'insertion de "On Error Resume Next" a pu déceler le problème.
En effet je constate que les noms des cellules ne sont pas reconnus.
Et pourtant ils sont bien attribués aux cellules.

Après plusieurs bidouillages je constate que je n'arrive pas à récupérer le nom d'une des cellules nommées, car le "nom" porte sur deux cellules : Image 1 --> Cellules (A4:B4) = nom_1.

Si chaque cellule porte un "nom différent, ça fonctionne très bien : Image 2 --> Cellule (A4) = "nom_1. & cellule (B4) = "nom_1.T"

Alors ma question: comment puis-je récupérer le nom de ma cellule "A4" en sachant que la cellule B4 porte le même "nom".

Bon week-end à tous

 

[patricktoulon]

bonjour

et ben dit donc
msgbox [A4].mergearea.name

 

[PPA]

Merci pour vos réponses, mais ça ne marche toujours pas.
J'ai essayé de multiple combinaisons. Rien à faire pour récupérer le nom de ma cellule active qui fait partie d'un ensemble de cellule ayant le même nom
Je réitère mon problème.
Je veux récupérer le nom de la cellule active (par exemple en C20) dont le nom fait référence aux cellules C12:C25
Si le nom ne porte que sur une seule cellule, je récupère bien le nom de la cellule C20

 

[PPA]

Merci pour vos réponses, mais ça ne marche toujours pas.
J'ai essayé de multiple combinaisons. Rien à faire pour récupérer le nom de ma cellule active qui fait partie d'un ensemble de cellule ayant le même nom
Je réitère mon problème.
Je veux récupérer le nom de la cellule active (par exemple en C20) dont le nom fait référence aux cellules C12:C25
Si le nom ne porte que sur une seule cellule, je récupère bien le nom de la cellule C20

😱 Je me répond à moi même
J'ai trouvé la bêtise.
Je viens de la vielle école ou j'avais appris à déclarer les variables string en ajoutant tout simplement le caractère "$" à la fin du nom de la variable et le signe "%" pour les variables "integer"
En fait, il faut déclarer ma variable qui récupère le "nom" comme tout bon programmateur ferait avec l'instruction: Dim Nom_Cellule_Active As String

Vraiment bête de ma part.
Un tout grand merci à vous tous pour le temps passé.

 

[patricktoulon]

Bonjour
c'est la même chose
dim nom_cellule$
nom_cellule = .........

 

[Phil69970]

Bonjour @PPA , le fil

Je viens de la vielle école ou j'avais appris à déclarer les variables string en ajoutant tout simplement le caractère "$" à la fin du nom de la variable et le signe "%" pour les variables "integer"
En fait, il faut déclarer ma variable qui récupère le "nom" comme tout bon programmateur ferait avec l'instruction: Dim Nom_Cellule_Active As String

🤔Comme Patrick l'a écrit String et ($) c'est pareil simplement c'est plus court à écrire😉
C'est un peu comme si tu écrivais :
Maman et mère, tu fais référence à la même personne à part qu'il y en a un qui est plus court à écrire.

Déclaration de variables (raccourci)

Il existe différents types de variables leurs raccourcis pour Dim en VBA. Exemple : Dim A as Integer ou Dim A% est équivalent. Boolean Les variables de type...

forum.excel-pratique.com

@Phil69970

 

[job75]

Bonjour PPA, le forum,

Si la plage C12:C25 est nommée "toto" et que l'on sélectionne C20 cette macro récupèrera le nom "toto" :

Sub Cherche_nom()
Dim nom As Name
On Error Resume Next
For Each nom In ThisWorkbook.Names
    If Intersect(Evaluate(nom.Name), ActiveCell) Is Nothing Then Else MsgBox "La cellule " & ActiveCell.Address(0, 0) & " est dans la plage nommée '" & nom.Name & "'"
Next
End Sub

A+