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

PPA · 29 Avril 2021

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 · 29 Avril 2021

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

Phil69970 · 29 Avril 2021

Bonjour @PPA, @Lolote83

Je dirais plutôt

Code:

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 · 29 Avril 2021

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 · 30 Avril 2021

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 · 30 Avril 2021

bonjour

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

PPA · 12 Mai 2021

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 · 13 Mai 2021

PPA à dit:
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 · 13 Mai 2021

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

Phil69970 · 13 Mai 2021

Bonjour @PPA , le fil

PPA à dit:
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 · 13 Mai 2021

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" :

VB:

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+

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

PPA

XLDnaute Nouveau

Lolote83

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

PPA

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

PPA

XLDnaute Nouveau

PPA

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Déclaration de variables (raccourci)

job75

XLDnaute Barbatruc

Discussions similaires