OVH Cloud OVH Cloud

créer des noms de plage à l'aide d'un compteur

1 réponse
Avatar
titi
Bonjour,

voici la syntaxe où je bloque :

For i = 3 To 200
Worksheets("Feuil1").Range("D" & i, "E" & i).Select
ActiveWorkbook.Names.Add Name:="LundiP" & i, RefersToR1C1:= _
"='Feuil1'!R3C4:R3C5"
Next

Je voudrais remplacer le chiffre 3 dans ("='Feuil1'!R3C4:R3C5") par le
compteur i afin de faire varier la ligne

Je ne trouve pas la bonne syntaxe.

En fait, je dois nommer les cellules aisnsi :

LundiP3 qui fait référence à D3:E3
LundiP4 qui fait référence à D4:E4
LundiP5 qui fait référence à D5:E5
...

1 réponse

Avatar
Daniel
Bonjour.
Essaie :
ActiveWorkbook.Names.Add Name:="LundiP" & i, RefersToR1C1:= _
"='Feuil1'!R" & i & "C4:R" & i & "C5"
Cordialement.
Daniel
"titi" a écrit dans le message de news:
424bbca1$0$26395$
Bonjour,

voici la syntaxe où je bloque :

For i = 3 To 200
Worksheets("Feuil1").Range("D" & i, "E" & i).Select
ActiveWorkbook.Names.Add Name:="LundiP" & i, RefersToR1C1:= _
"='Feuil1'!R3C4:R3C5"
Next

Je voudrais remplacer le chiffre 3 dans ("='Feuil1'!R3C4:R3C5") par le
compteur i afin de faire varier la ligne

Je ne trouve pas la bonne syntaxe.

En fait, je dois nommer les cellules aisnsi :

LundiP3 qui fait référence à D3:E3
LundiP4 qui fait référence à D4:E4
LundiP5 qui fait référence à D5:E5
...