OVH Cloud OVH Cloud

Nommer un champ à géométrie variable dans macros

1 réponse
Avatar
Jean-Paul V
Bonjour
J'ai une base de donn=E9es dans une feuille Excel.La=20
premi=E8re ligne est nomm=E9e TITREDATABASE,si j'ex=E9cute les=20
deux instructions suivantes :
Application.Goto Reference:=3D"TITREDATABASE"
Range(Selection, Selection.End(xlDown)).Select
ma Base de donn=E9e est noircie pr=EAt =E0 recevoir un nom ,=20
quelle est :
1) l'instruction suivante afin de donner =E0 la zone=20
noircie le nom "DATABASE" (=E9quivalent =E0 Insertion Nom ..)
2) quelle serait cette instruction si je voulais dans la=20
foul=E9e d=E9finir une zone d'impression definie par cette=20
zone noircie.

1 réponse

Avatar
papou
Bonjour
Sub DefinirZones()
ThisWorkbook.Names.Add "DATABASE", Range(Range("TITREDATABASE"), _
Range("TITREDATABASE").End(xlDown).Address).Address
ActiveSheet.PageSetup.PrintArea = Range(Range("TITREDATABASE"), _
Range("TITREDATABASE").End(xlDown).Address).Address
End Sub

Cordialement
Pascal

"Jean-Paul V" a écrit dans le message
de news:443801c4a052$0ff56780$
Bonjour
J'ai une base de données dans une feuille Excel.La
première ligne est nommée TITREDATABASE,si j'exécute les
deux instructions suivantes :
Application.Goto Reference:="TITREDATABASE"
Range(Selection, Selection.End(xlDown)).Select
ma Base de donnée est noircie prêt à recevoir un nom ,
quelle est :
1) l'instruction suivante afin de donner à la zone
noircie le nom "DATABASE" (équivalent à Insertion Nom ..)
2) quelle serait cette instruction si je voulais dans la
foulée définir une zone d'impression definie par cette
zone noircie.