gestion des zones nommées

Merci

cependant si je lui demande d'en faire plusieurs cela plante des la 2eme ro utine

la formule n'est plus la meme

j'ai fais du copier collé et changé le nom mais ca plante

grrrrrr
Sub DD2()

Dim A As Integer, Nom As String
With ActiveWorkbook
For Each sh In .Worksheets
A = A + 1
Nom = "Magic" & A
.Names.Add Name:="" & Nom & "", RefersTo:= _
"=OFFSET(" & sh.Name & "!R2C1,COUNTA(" & sh.Name & "!C1)-3,0, 3)"
Next


End With
dd3
End Sub

Sub dd3()
Dim A As Integer, Nom As String
With ActiveWorkbook
For Each sh In .Worksheets
A = A + 1
Nom = "bebe" & A
.Names.Add Name:="" & Nom & "", RefersTo:= _
"=OFFSET(" & sh.Name & "!R2C1,COUNTA(" & sh.Name & "!E1)-3,0, 3)"
Next


End With
End Sub

Il n'y a aucune raison :

'----------------------------------------
Sub test1()
Dim A As Integer, Nom As String
With ActiveWorkbook
For Each sh In .Worksheets
A = A + 1
Nom = "Magic" & A
.Names.Add Name:="" & Nom & "", RefersTo:= _
"=OFFSET(" & sh.Name & "!R2C1,COUNTA(" & sh.Name & "!C1)-3,0,3)"
Next
End With
End Sub

'----------------------------------------
Sub test2()
Dim A As Integer, Nom As String
With ActiveWorkbook
For Each sh In .Worksheets
A = A + 1
Nom = "bebe" & A
.Names.Add Name:="" & Nom & "", RefersTo:= _
"=OFFSET(" & sh.Name & "!R2C1,COUNTA(" & sh.Name & "!C1)-3,0,3)"
Next
End With
End Sub
'----------------------------------------

MichD
---------------------------------------------------------------

Bonjour MichD

alors je te dis un grand merci

cela a parfaitement fonctionné

ce que je faisais en manuel en 4 jours, je l'ai fais en 1 heure

parfait

merci encore une fois