création et utilisation d'une zone de donnée en VBA

Le
fuzzy
Bonjour,

Je souhaite définir une zone de données en VBA équivalente au menu
"insertion / Nom / définir"
Ces zones une fois définies seront utilisées dans plusieurs feuilles

J'ai cherché sur le forum et essayé le code ci-dessous mais il doit y
avoir qqch que je n'ai pas compris dans la syntaxe car ce que
j'espérais être ma zone de sélection crée site_planning contient la
valeur VRAI ..


' on compte le nb de ligne et de colonnes du planning
Sheets("planning").Select
line_planning = Range("A65535").End(xlUp).Row 'lignes
column_planning = Range("IV5").End(xlToLeft).Columns.Column

'
******************************************************************
' *********** définition des zones de données
*******
'
******************************************************************

Worksheets("planning").Select
zone2 = Worksheets("planning").Range(Cells(6, 3),
Cells(line_planning, 3)).Select
ActiveWorkbook.Names.Add Name:="site_planning",
RefersToR1C1:=zone2


Merci,
Fuzzy
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
fuzzy
Le #4866441
Oups, évidemment il y avait un select en trop et j'ai donc réessayer
avec

zone2 = Worksheets("planning").Range(Cells(6, 3),Cells(line_planning,
3))
ActiveWorkbook.Names.Add Name:="site_planning", RefersToR1C1:=zone2


Mais cela ne fonctionne tjrs pas, site_planning contient maintenant le
contenu de la plage :
={#N/A;"AGENCE FT PASSY PDV1";"BLD
LANNES";"BOULAINVILLIERS";"BRAZZAVILLE BIS";"CHAMP DE MARS
BIS";"CORTAMBERT";"DUPLEIX";"EMILE ZOLA SECTEUR 1 ET 2";"EMILE ZOLA
SECTEUR 3";"GRENELLE";"INGRES";"INVALIDES";"MINISTERE TELECOM
INDOOR";"PASSY";"PORTE DE LA M

.et non les références de la plage comme je l'espérais : =plannin g!$C
$6:$C$115
Daniel
Le #4866251
Bonjour.
Essaie :
Sheets("planning").Activate
Range(Cells(6, 3), Cells(line_planning, 3)).Name = "site_planning"
Cordialement.
Daniel

"fuzzy"
Oups, évidemment il y avait un select en trop et j'ai donc réessayer
avec

zone2 = Worksheets("planning").Range(Cells(6, 3),Cells(line_planning,
3))
ActiveWorkbook.Names.Add Name:="site_planning", RefersToR1C1:=zone2


Mais cela ne fonctionne tjrs pas, site_planning contient maintenant le
contenu de la plage :
={#N/A;"AGENCE FT PASSY PDV1";"BLD
LANNES";"BOULAINVILLIERS";"BRAZZAVILLE BIS";"CHAMP DE MARS
BIS";"CORTAMBERT";"DUPLEIX";"EMILE ZOLA SECTEUR 1 ET 2";"EMILE ZOLA
SECTEUR 3";"GRENELLE";"INGRES";"INVALIDES";"MINISTERE TELECOM
INDOOR";"PASSY";"PORTE DE LA M

.et non les références de la plage comme je l'espérais : =planning!$C
$6:$C$115
tissot.emmanuel
Le #4866241
Bonjour,

Essaye comme ceci:

Dim zone2 As Range

Set zone2 = Worksheets("planning").Range(Cells(6, 3),Cells(line_planning,3))

ActiveWorkbook.Names.Add Name:="site_planning", RefersTo:="=" &
zone2.Address

Cordialement,

Manu/


"fuzzy"
Oups, évidemment il y avait un select en trop et j'ai donc réessayer
avec

zone2 = Worksheets("planning").Range(Cells(6, 3),Cells(line_planning,
3))
ActiveWorkbook.Names.Add Name:="site_planning", RefersToR1C1:=zone2


Mais cela ne fonctionne tjrs pas, site_planning contient maintenant le
contenu de la plage :
={#N/A;"AGENCE FT PASSY PDV1";"BLD
LANNES";"BOULAINVILLIERS";"BRAZZAVILLE BIS";"CHAMP DE MARS
BIS";"CORTAMBERT";"DUPLEIX";"EMILE ZOLA SECTEUR 1 ET 2";"EMILE ZOLA
SECTEUR 3";"GRENELLE";"INGRES";"INVALIDES";"MINISTERE TELECOM
INDOOR";"PASSY";"PORTE DE LA M

.et non les références de la plage comme je l'espérais : =planning!$C
$6:$C$115
Daniel
Le #4866231
ou plutôt :
Sheets("Feuil2").Range(Cells(6, 3), Cells(line_planning, 3)).Name = _
"site_planning"
Daniel
"fuzzy"
Oups, évidemment il y avait un select en trop et j'ai donc réessayer
avec

zone2 = Worksheets("planning").Range(Cells(6, 3),Cells(line_planning,
3))
ActiveWorkbook.Names.Add Name:="site_planning", RefersToR1C1:=zone2


Mais cela ne fonctionne tjrs pas, site_planning contient maintenant le
contenu de la plage :
={#N/A;"AGENCE FT PASSY PDV1";"BLD
LANNES";"BOULAINVILLIERS";"BRAZZAVILLE BIS";"CHAMP DE MARS
BIS";"CORTAMBERT";"DUPLEIX";"EMILE ZOLA SECTEUR 1 ET 2";"EMILE ZOLA
SECTEUR 3";"GRENELLE";"INGRES";"INVALIDES";"MINISTERE TELECOM
INDOOR";"PASSY";"PORTE DE LA M

.et non les références de la plage comme je l'espérais : =planning!$C
$6:$C$115
fuzzy
Le #4866211
Merci !

la dernière solution fonctionne très bien et en plus c'est plus
simple que ce que j'avais fait !!

Fuzzy.
Publicité
Poster une réponse
Anonyme