coco_lapin
XLDnaute Impliqué
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
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