Discussion :

[dude91820]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[Philippe Tulliez]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dude91820]

Re,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Adr).Name.Name

j'obtiens une 'erreur 400'.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Msgbox(Adr)

m'affiche pourtant bien "$A$21"

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

[Invité]

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

[dude91820]

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.

[Marc-L]

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, …