XL 2010 Nommer une plage dynamiquementvia offset + reference à un numero de feuille

[Profane]

Bonjour à tous,
voila j'aimerai nommé une plage dynamiquement MAIS en me referant à son numéro
dans l'exemple Feuil2
j'insiste ce n'est pas le nom de l'onglet ,

macro qui ne fonctionne pas...
Sub VerificationColonne()

Set WS1 = Sheets(Feuil2.Name)

WS1.Activate
Dim J As Integer

With WS1
..............
...........
ActiveWorkbook.Names.Add Name:="EG", RefersToR1C1:="=OFFSET('WS1'!R2C" & J & ",,,COUNTA('WS1'!C" & J & ")-1)"

end with
end sub

alors problème de syntaxe ??

@+ et merci d avance pour aide
Cordialement

 

[Dranreb]

Bonjour.
Je ne vois pas d'erreur à priori. Vérifiez si J est bien > 0
Remarque: Sheets(Feuil2.Name) C'est idiot ! C'est Feuil2 tout simplement.

Ah ! Si, c'est peut être plutôt ça que vous vouliez faire, en fait :

ActiveWorkbook.Names.Add Name:="EG", RefersToR1C1:="=OFFSET('" & Feuil2.Name & "'!R2C" & J & ",,,COUNTA('" & Feuil2.Name &"'!C" & J & ")-1)"

 

[Profane]

Bonjour Dranreb
c'est exactement ce que je voulais , c'est merveilleux
pour la petite histoire je ne peux pas me baser sur le nom de l'onglet car celui ci évolue, in ne me restait que la valeur de la feuille pour le faire
merci encore
Bonne journée