Variable dans un objet range()

Bonjour à tous,

J'ai un fichier excel contenant un certain nombre de cellules nommées et je cherche à renommer celles-ci à l'aide d'un suffixe déterminé à partir du nom de la feuille active.
Pour cela je balaye la plage contenant mes cellules nommée et je stock l'adresse de la cellule dans une chaine de caractère. Mon problème est que l'objet range ne reconnait pas ma variable Adr comme une adresse de type "$A$20" et j'obtiens une erreur 400.

Code:

---

1 2 3 4 5 6 7 8 9

Dim Adr, CellName As String For Each Cell In ActiveSheet.UsedRange.Columns("A:O").Cells Adr = Cell.Address CellName = Range(Adr).Name.Name If CellName <> "" Then MsgBox (CellName) End If Next

---

Je ne parviens pas à trouver la syntaxe correcte pour récupérer le nom de ma cellule nommée.
J'espère avoir été assez explicite , je vous remercie par avance de votre aide.

Cordialement dude,

Bonjour,

Citation:

---

Je ne parviens pas à trouver la syntaxe correcte pour récupérer le nom de ma cellule nommée.

---

Exemple pour connaître le nom donné à une cellule à l'aide du gestionnaire des noms : MsgBox [B]range("A2")/B].Name.Name

Attention qu'il faut prévoir la détection des erreurs car si la cellule n'est pas nommée, la procédure renverra une erreur
Exemple

Code:

---

1 2 3 4 5 6 7 8 9

Sub T() Dim rng As Range, c As Range Set rng = Range("O2:O4") On Error Resume Next For Each c In rng Debug.Print c.Name.Name Next On Error GoTo 0 End Sub

---

Il reste évidemment la possibilité de passer par la collection Names

Re,

Dans la variable Adr je stocke un chaîne de caractère du type "$A$21".
Si j'écrit

Code:

---

1 2	x = Range("$A$21").Name.Name Msgbox(x)

---

J'ai le résultat "Nom de la cellule $A$21".

Alors que lorsque j'écris

Code:

---

Range(Adr).Name.Name

---

j'obtiens une 'erreur 400'.

Code:

---

Msgbox(Adr)

---

m'affiche pourtant bien "$A$21"

Je ne sais pas si j'ai su expliquer correctement. =x

Bonjour, dans la mesure où je ne sais pas à quoi correspondent Name.Name et Adr?????!!!

Adr c'est un String qui contient l'adresse de la cellule balayée.
.Name.Name c'est une méthode qui me permet de récupérer le nom attribuée à la plage.

Sur ma feuille j'ai un certain nombre de cellules dont le nom est du type SXX_MODELNAME_VariableName
Par exemple si je suis au STEP1 d'un modèle TC03 ma feuille aura pour nom STEP01_TC03 et l'ensemble de mes cellules va commencer par S01_TC03_Variable Name
Mon objectif est d'adapter l'ensemble des noms de mes cellules au nom attribué à ma feuille.

Pour cela je balaye chaque cellule et je récupère son adresse avec Cell.Address que je stocke ensuite dans la variable "Adr".
Je cherche ensuite à récupérer le nom de la cellule associé à cette adresse si celui-ci existe est different de "".
Pour récupérer le nom je fais CellName := Range(Adr).Name.Name mais le fait de passer une variable en argument de Range() me retourne une erreur.
Pourtant si je fait CellName := Range("$A$1").Name.Name je récupère bien le nom de ma cellule.

Je cherche un moyen fonctionnel de faire passer une adresse de cellule stockée dans une variable en argument de l'objet Range.
Excusez moi si le problème n'est pas clair, je suis un novice en programmation.

Bonjour,

j'ai l'impression que c'est très compliqué pourtant pour quelque chose de très basique !

Au cas où, voir du côté de la fonction Evaluate, sait-on jamais ! …

Sinon l'erreur ne provient pas de ta variable Adr de type Variant (!) mais du fait de la non gestion d'erreur
quand la cellule n'est pas associée à un nom comme cela t'a pourtant déjà été évoqué !

______________________________________________________________________________________________________
Je suis Paris, Charlie, …

Bon l'erreur vient effectivement des cellules sans noms, je chercherai demain une condition me permettant de considérer uniquement les cellules déjà nommées.
Merci pour votre aide.

Bonjour,
Sauf erreur de ma part, il me semble que tu confonds Cellule nommée (créé à l'aide du gestionnaire des noms) et adresse de cellule nativement présente.
Si tu souhaites placé la référence d'une cellule dans une variable et ensuite utiliser cette dernière, rien de plus simple.
Exemple

Code:

---

1 2 3

Dim adr As String adr = "$A$5" Range(adr).Value = 10

---

Dans cet exemple, nous écrirons la valeur 10 dans la cellule A5 de la feuille active.

Citation:

---

Envoyé par dude91820

je chercherai demain une condition me permettant de considérer uniquement les cellules déjà nommées.

---

Soit parcourir la collection Names de la feuille de calculs soit utiliser une p'tite fonction …

Non je parle de bien de cellules nommées dans le gestionnaire de noms excel, comme je l'ai expliqué dans mon message précédent j'ai attribué des noms à un certain nombre de cellules.
Ces noms sont tous de type "SXX_MODELNAME_VariableName" et je tire du nom de la feuille les infos nécéssaire pour renommer la partie ""SXX_MODELNAME".

C'est pour cette raison que je chercher uniquement les cellules nommées afin de pouvoir stocker leur valeur et ensuite les modifier.

Bonjour,
Et bien comme je l'ai aussi signalé dans une de mes premières interventions, il te suffirait de parcourir la collection Names
Exemple

Code:

---

1 2 3 4

Dim n As Name For Each n In ThisWorkbook.Names MsgBox n.Name & " - " & n.RefersTo Next

---

En effet j'avais pas vu ton premier message Philippe, en tous cas merci beaucoup pour vos réponses j'essaye ça demain et je mettrai Résolu !
Bonne soirée à vous !
cdlt,

Edit :
ça fonctionne nice, merci encore !