definir des noms

Question

bonjour à toutes et tous;

je suis nouveau sur le forum, et aussi en vb, donc soyez indulgents si mes questions sont evidentes.

je programme en VBA EXCEL 2000.
j'ai besoin, dans la meme feuille de calcul, d'etablir des liens hypertext
faisant reference à des plages de cellules nommées (plage1,plage2,plage3), dans une boucle.

pour cela je defini mes nom avec

ActiveWorkbook.Names.Add Name:="Prod_A", RefersToR1C1:= _
                "=R9C8:R25C8"
puis j'etabli le lien avec :

    Selection.Hyperlinks(1).SubAddress = "prod_A"

mais je n'arrive pas à recuperer l'adresse de la cellule active afin de definir une plage à partir de celle ci

je voudrais obtenir quelque chose comme :


ActiveWorkbook.Names.Add Name:="Prod_A", referto (cells(toto,tata),cells(toto+25,tata))

merci d'avance à ceux ou celles qui pourrons me venir en aide.

nathtonath · Answer

Salut fdaix
La commeande suivante permet de te renvoyer l'adresse de la cellule active :
ActiveCell.Address
Bonne continuation
Nath

valtrase · Answer

Lut,
'*** tu peux utiliser cette syntaxe
Dim MyRange As Range
'*** Offset(Row,Column) d&#233;cale la s&#233;lection du nombre de ligne et colonne
'*** sp&#233;cifi&#233;
'*** donc dans ton cas    :
Set MyRange = Range(ActiveCell.Address & ":" & ActiveCell.Offset(25, 0).Address)
ActiveWorkbook.Names.Add Name:="Prod_A", RefersTo:=MyRange.Address
Bien d'autres solutions existent pour arriver au m&#234;me r&#233;sultat 
tu peux utiliser la propri&#233;t&#233; .Row et rajouter 25 &#224; celle-ci
la propri&#233;t&#233; .Resize si ton objet range est d&#233;ja d&#233;fini

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Definir des noms

2 réponses

Discussions similaires