automatiser le nommage de cellules sur 200 lignes

bonjour,

Sub noms()

For I = 1 To 200
Range(Cells(I, 1), Cells(I, 2)).Name = "Zone" & I
Next

End Sub

devrait convenir

Bonjour,

Je voudrais nommer les plages :
A1:B1 en "Zone1"
A2:B2 en "Zone2"
A3:B3 en "Zone3"
etc... jusq'à 200 lignes

pourriez vous me dire la méthode la plus simple pour automatiquement
incrémenter tous ces nommages ?

Merci,

essaie cei
Dim t As Integer
Dim c As String

Sub Macro1()
For t = 1 To 100
c = LTrim(Str(t))
ActiveWorkbook.Names.Add Name:="zone" & c, RefersToR1C1:="þuil1!R" & c
& "C1" & ":R" & c & "C2"
Next t
End Sub


--
Michel Angelosanto, Bordeaux
http://angelosa.free.fr
"cotiti" <cccc@nopub.com> a écrit dans le message de news:
4222d9d1$0$31845$636a15ce@news.free.fr...

Bonjour,

Je voudrais nommer les plages :
A1:B1 en "Zone1"
A2:B2 en "Zone2"
A3:B3 en "Zone3"
etc... jusq'à 200 lignes

pourriez vous me dire la méthode la plus simple pour automatiquement
incrémenter tous ces nommages ?

Merci,