nommer une selection

[Fred]

Bonjour a tous

un casse tete for me

je voudrais nommer par le code une selection de cellules mais qui evolue
dans le style

Dim recaprow7 As Long 'sera le chiffre de la derniere cel remplis

recaprow7 = feuille2.Range("F65536").End(xlUp).row 'sert a trouver derniere celulle remplis de la colonne F

ActiveWorkbook.Names.Add Name:="SELECT1", =RECAP!$K$6:$K$18 <<la je sais pas comment faire ma selection F4 a J quelquechose, ce quelquechose etant mon chiffre dans ma variable recaprow7

Merci de votre aide


Fred

 

[@+Thierry]

Boinjour Fred, le Forum

Voici le code un peu remanié :

Sub Naming()
Dim L As Long

L = Sheets("RECAP").Range("K65536").End(xlUp).Row

ActiveWorkbook.Names.Add Name:="SELECT1", RefersTo:="=RECAP!$K$6:$K$" & L
End Sub

Ici je veux nommer une plage dans la colonne K de la feuille "Recap" depuis la Cellule "K6" jusqu'à la dernière cellule non vide de cette colonne K...

Bon Aprèm
@+Thierry