Discussion :

[yedid]

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 :

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

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

[ouskel'n'or]

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

Code :

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

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

[yedid]

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

[ouskel'n'or]

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

Code :

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

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

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 ?

[yedid]

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

[ouskel'n'or]

Travailles-tu sur plusieurs fichiers simultanément ?

[yedid]

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?

[ouskel'n'or]

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