Discussion :

[Johakr]

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 :

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

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

Merci d'avance pour votre aide !

[pgz]

Bonjour.

Tu peux essayer

Code :

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

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

[Johakr]

merveilleux !

Ca fonctionne nickel !

Merci beaucoup !

[mercatog]

Un autre variante

Code :

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

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 :

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

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