Discussion :

[thorgal1612]

Bonjour

Je voudrais donner un nom à une plage de cellule par programmation

J'ai fait la manip sur la feuille en enregistrant la macro et voilàa ce que ça donner

Code :

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

1
2
3
4
    Range("E45: P45").Select
    ActiveWorkbook.Names.Add Name:="cotis", RefersToR1C1:= _
        "='SAL. BUREAU'!R45C5:R45C16"
    ActiveWorkbook.Names("cotis").Comment = ""

J'ai copier ce code dans mon programme mais après exécution, je vais voir mon document et le nom "cotis" n'apparaît pas dans la liste des noms,
pourtant si je vais voir dans gestionnaire de nom, il est bien présent (mais sans valeur associées).

Merci pour votre aide

[thorgal1612]

J'ai fait le test avec un fichier tout simple (en pièce jointe) et ça ne fonctionne pas

je n'ai pas réussi à le mettre en pièce jointe.
Le tableau est tout bête, 4 colonnes, trois lignes.

La macro

Code :

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

1
2
3
    Range("A5: D5").Select
    ActiveWorkbook.Names.Add Name:="test", RefersToR1C1:="=Feuil1!R5C1:R5C4"
    ActiveWorkbook.Names("test").Comment = ""

[thorgal1612]

J'ai trouvé...il faut enlever le commentaire et mettre Range

Code :

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

1
2
3
4
liste = Range("A5:D5").Address
ActiveWorkbook.Names.Add Name:="test", RefersToR1C1:=Range(liste)
 
'ActiveWorkbook.Names("test").Comment = ""