Cellules nommées par macro

[coco_lapin]

Bonjour le forum,

Je lance le code suivant pour créer des cellules nommées sur tous les onglets d'un classeur mais les cellules nommées effacent celle de l'onglet précédent.

Voici le code et le classeur en annexe comme exemple.

Sub Création_cellules_nommées()
For i = 1 To 2
Sheets(i).Select
Nom_onglet = Sheets(i).Name
ActiveWorkbook.Names.Add Name:="Debut_NR", RefersToR1C1:="=" & Nom_onglet & "!R" & 2
Next i
End Sub

 

[Efgé]

Re : Cellules nommées par macro

Bonjour coco_lapin,
Je ne pense pas que l'on puisse donner le même nom à des cellules ou plages différentes dans un même classeur.
Pour contourner le problème:

Sub Création_cellules_nommées()
For i = 1 To 2
Sheets(i).Select
  Nom_onglet = Sheets(i).Name
  ActiveWorkbook.Names.Add Name:="Debut_NR" & i, RefersToR1C1:="=" & Nom_onglet & "!R" & 2
Next i
End Sub

Cordialement

 

[pierrejean]

Re : Cellules nommées par macro

Bonjour coco_lapin

Normal : tu ne donnes qu'un seul nom a ta cellule nommée ; tu ne changes que la reference

teste:

Sub Création_cellules_nommées()
For i = 1 To 2
  Nom_onglet = Sheets(i).Name
  ActiveWorkbook.Names.Add Name:="Debut_NR" & i, RefersToR1C1:="=" & Nom_onglet & "!R" & 2
Next i
End Sub

Edit : Plus rapide Efgé mais je vois que nous sommes en phase !!!

 

[coco_lapin]

Re : Cellules nommées par macro

Merci efgé et pierrejean pour vos réponses mais mon besoin est d'avoir le même nom de la cellule nommée.

Excel arrive à le faire lorsque l'on fait un copier/coller d'un onglet.
Voir l'exemple en annexe et en faisant Insertion/Nom/Définir dans les 2 onglets nous voyons bien le même nom pour les 2 cellules nommées.

 

[Efgé]

Re : Cellules nommées par macro

Re coco_lapin, Bonjour pierrejean,
Exact, encore falait il le savoir :

Sub Création_cellules_nommées()
For i = 1 To Sheets.Count
  ActiveWorkbook.Names.Add Name:="Debut_NR" & i, RefersToR1C1:="=[B][COLOR=red]'[/COLOR][/B]" & Sheets(i).Name & "[COLOR=red][B]'[/B][/COLOR]!R" & 2
Next i
End Sub

Cordialement

 

[pierrejean]

Re : Cellules nommées par macro

Re
Dans ce cas (a l'utilisation) le nom doit etre accompagné de la feuille ou du fichier pour qu'Excel s'y retrouve

Teste ceci pour la creation

Sub Création_cellules_nommées()
For i = 1 To 2
  Nom_onglet = Sheets(i).Name
  ActiveWorkbook[COLOR=blue].Sheets(i).[/COLOR]Names.Add Name:="Debut_NR", RefersToR1C1:="=" & Nom_onglet & "!R" & 2
Next i
End Sub

 

[coco_lapin]

Re : Cellules nommées par macro

J'ai un peu tardé à vous répondre, j'étais en réunion.

pierrejean ta solution marche très bien. Il fallait y penser.

Merci à tous les deux pour votre réactivité.