propriété "Name" s'un objet 'Range'

Bonjour,

J'essaye de mettre a jour le champs "Name" d'un objet Range, mais celui ci me dit : <Erreur définie par l'application ou par l'objet>

Voila mon code simplifié mais qui plante commeme:

Code:

---

1 2 3 4 5 6

Sub test() Dim r As Range ThisWorkbook.Worksheets(1).Cells(2, 2).Select Set r = Selection Set r.Name = "TEST" End Sub

---

Il plante a la derniere instruction.

Qqn a t-il une idée?

Merci d'avance

Effectivement.
Que veux-tu faire ? Pourquoi n'utilises-tu pas simplement r ?
Tu peux aussi simplifier

Code:

---

Set r = ThisWorkbook.Worksheets(1).Cells(2, 2)

---

Ce n'est pas la cellule que je veux mettre a jour mais le champs name de son range

Veux-tu nommer la cellule ? Si c'est ça, alors tu peux t'inspirer de ça

Code:

---

ActiveWorkbook.Names.Add Name:="TEST", RefersTo:=Worksheets(1).Cells(2, 2)

---

Citation:

---

Envoyé par yedid

Ce n'est pas la cellule que je veux mettre a jour mais le champs name de son range

---

Si ma réponse ne correspond pas, essaie de préciser ta demande... Qu'appelles-tu champ ? Tu crées un formulaire ?

Je voudrais mettre un flag sur une cellule en passant par la propriété 'Name'
C'est pour ca que je met à jour son champs.
Or parfois il m'accepte la mise à jour (r.Name = "TEST"), parfois il me dis <Erreur définie par l'application ou par l'objet> car il ne reconnait pas r.Name

Travailles-tu sur plusieurs fichiers simultanément ?

Non mais par contre je pense avoir identifier le pb.
Parfois mon nom que je met a jour possede un espace à l'interieur, ce qui plante la propriété name car elle n'attend qu'une chaine de caractere sans espace.
Qu'en pense tu?

Exact ! Un nom dans une feuille ne doit pas comporter d'espace.