problème méthode Names.add

Bonjour tlm !

J'ai une ligne de code qui me permet d'assigner un name à une cellule (enfin du moins ce que je voudrais faire).

Cette ligne a été modifiée à partir de l'enregistreur de macro afin de l'intégré dans une boucle (i) mais ça ne fonctionne pas.

Malheureusement, le code passe au travers sans créer le name.

Code:

---

Sheets("L" & i & Tabs(j)).Range("G5").Names.Add Name:="Title_line_" & i, RefersToR1C1:="='L" & i & " Line Charac'!R5C7"

---

Est ce que ma ligne est correct ? Cela fait 2 heures que je bidouille et je ne voit toujours pas ce qui est faux :(

J'ai également unprotect la page avant d'ajouter le name mais rien n'y fait :cry:

Merci d'avance pour votre aide !

Bonjour.

Tu peux essayer

Code:

---

ThisWorkbook.Names.Add Name:="Title_line_" & i, RefersToR1C1:="='L" & i & " Line Charac'!R5C7"

---

Car le parent de la collection Names est l'appli ou le classeur.

Cordialement,

PGZ

merveilleux !

Ca fonctionne nickel !

Merci beaucoup !

Un autre variante

Code:

---

1 2 3 4 5

Dim Sh As Worksheet   Set Sh = Sheets("L" & i & tabs(j)) Sh.Names.Add Name:="Title_line_" & i, RefersTo:=Sh.Cells(5, 7) Set Sh = Nothing

---

Ou bien

Code:

---

Sheets("L" & i & tabs(j)).Range("G5").Name = "Title_line_" & i

---