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
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:
Code:
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
Normal : tu ne donnes qu'un seul nom a ta cellule nommée ; tu ne changes que la reference
teste:
Code:
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 !!!
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.
Re coco_lapin, Bonjour pierrejean,
Exact, encore falait il le savoir :
Code:
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
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
Code:
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