Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

VBA et affectation d'un nom

2 views
Skip to first unread message

Christian.Bernard

unread,
Oct 18, 2006, 7:42:38 AM10/18/06
to
Bonjour à tous

Voila, en enregistrant automatiquement la macro, je me retrouve avec cette
ligne de code
ActiveWorkbook.Names.Add Name:="TypeRad",
RefersToR1C1:="=Débit!R4C11:R171C11"

Mon souci, c'est que la plage de cellule repérée "=Débit!R4C11:R171C11" doit
être variable dans mon application, et est déterminée précédemment.

Quelqu'un a t'il une idée ?

Merci d'avance

Christian

michel thiviers

unread,
Oct 18, 2006, 8:09:31 AM10/18/06
to
En donnant un nom à la selection, n'est ce pas plus simple ?
Michel
"Christian.Bernard" <christian...@voila.fr> a écrit dans le message
de news: %23HcG%23pq8G...@TK2MSFTNGP04.phx.gbl...

Paul V

unread,
Oct 18, 2006, 8:27:58 AM10/18/06
to
Bonjour aussi,

un truc non testé du genre

maplage = Range("A1:B5").Address
ActiveWorkbook.Names.Add Name:="TypeRad", RefersToR1C1:=maplage

devrait t'aider.
Si tu veux une plage dynamique, fais une recherche sur le sujet, rien
qu'aujourd'hui il doit y avoir une dizaines de messages qui traitent du
sujet.

HTH

Paul V

"Christian.Bernard" <christian...@voila.fr> a écrit dans le message
de news: %23HcG%23pq8G...@TK2MSFTNGP04.phx.gbl...

Christian.Bernard

unread,
Oct 18, 2006, 9:00:43 AM10/18/06
to
Bonjour Paul V

Merci de m'avoir mis sur la voie

"Compteur" étant la dernière ligne de ma sélection, les lignes suivantes
fonctionnent en passant par la création d'un objet :

Set MaPlage = Range(Cells(4, 11), Cells(Compteur, 11))
ActiveWorkbook.Names.Add Name:="TypeRad", RefersToR1C1:=MaPlage

Bonne journée

Christian

"Paul V" <nob...@home.ir> a écrit dans le message de news:
euZjaDr8...@TK2MSFTNGP02.phx.gbl...

Paul V

unread,
Oct 18, 2006, 9:04:17 AM10/18/06
to
Merci, et bonne journée à toi aussi

Paul V
"Christian.Bernard" <christian...@voila.fr> a écrit dans le message

de news: OJkMnVr8...@TK2MSFTNGP04.phx.gbl...

0 new messages